引用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;Jet OLEDB:DataBase password=12345;" '无密码的连接方式 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 表1", cn, 3, 2 Set DataGrid1.DataSource = rs Exit Sub err: MsgBox err.Description End Sub
ProviderName="System.Data.OleDb" SelectCommand="SELECT * FROM [表名字]"></asp:SqlDataSource>
access有两种密码可以设置的
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;Jet OLEDB:DataBase password=12345;"
'无密码的连接方式
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 表1", cn, 3, 2
Set DataGrid1.DataSource = rs
Exit Sub
err:
MsgBox err.Description
End Sub