急需各位朋友的援助请速来啊

Question

我的QQ是15656464
也可用QQ联戏啊

Answer 1

dim rs as recodset
dim db as database
dim sql as string
set db=opendatabase(app.path +("phone.mdb"))
sql="select * from 表名"
set rs=db.openrecordset(sql)
数据库必须和工程文件放在同一个目录下才可以用app.path,
否则就得写出具体的路径名。
如果打开的是一个表，则：
set=db.openrecordset("表名")

Answer 2

dim rs as recordset
dim db as adodb.Connection
dim strpath as string
dim straccess as string
strpath = App.Path & "\tsg.mdb"
straccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strpath & ";Persist Security Info=False"
Set db= New ADODB.Connection
db.open straccess
rs.open "select * from 表名"
如果要条件就在select 查询后面加上where “条件表达式” 就可以了。