求助：vb 6.0和access 2003连接问题

Question

非常急，想系统地学时间很紧
请详细地讲一下如何设置连接
谢谢

Answer 1

dim conn as new adodb.connection
with conn
    .connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb"
    .open
    .commandtimeout = 300
end with

Answer 2

只把这段代码加入form就可以了吗？
不行啊

Answer 3

上面只是连接串，你要设置dataset。

Answer 4

如何设置dataset？
我这里想买本书都难啊，没书店，太偏僻了

Answer 5

dim conn as new adodb.connection
dim rs   as new adodb.recordset
with conn
    .connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb"
    .open
    .commandtimeout = 300
end withif rs.state=adstateopen then rs.close
rs.open "select * from 表名",conn,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=rs
rs.close
conn.close

Answer 6

我把mshflexgrid1改成了datagrid1
加了表名
test改为数据库名后，还是没数据啊只加这段代码就可以吗？
我真的很菜。。

Answer 7

ding!
大家一起交流吧！
对计算机，，软件开发感兴趣的朋友请加群7166214
多多的交流。

Answer 8

把数据库Test放到当前目录下，然后把查询语句中具体的表名改一下就能用了'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 你要显示的表名称", cn, adOpenKeyset,adLockReadOnly '<----具体的表名自己改
    Set DataGrid1.DataSource = rs    '把记录集的记录显示到DataGrid1
    Exit Sub
err:
    MsgBox err.Description
End Sub