Question

vb怎样调用自己做好的access2007的数据？

Answer 1

看你用什么控件
--------------------------------------
VBS都能调用
Dim Conn
Dim DBPath
Set conn=createobject("adodb.connection")
DBPath = "数据库绝对路径"
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set conn=createobject("adodb.recordset")
sql="select * from 表"
rs.open sql conn,1,1
rs("字段")
rs.close
--------------------------------------------------
gridData+adodc控件

dbConnectStr = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & DatePath & ";DefaultDir=" & App.Path & "\" & ";"
dbStr = "SELECT * FROM 表"
Set gridData.DataSource = Nothing
Adodc1.RecordSource = ""
Adodc1.ConnectionString = ""
Adodc1.ConnectionString = dbConnectStr
Adodc1.RecordSource = dbStr
Adodc1.Refresh
If Adodc1.Recordset.Fields.Count = 0 Then
gridData.ClearFields
Else
Set gridData.DataSource = Adodc1.Recordset
gridData.ClearFields
gridData.ReBind
End If