给几个例子你: Sub Main() Set conn = New ADODB.Connection GlobalConnString = "driver={Microsoft access driver (*.mdb)};Dbq=tianyin.mdb;uid=;pwd=;defaultdir=" & App.Path & "\data" conn.Open GlobalConnString End SubDim adoCnn As New adodb.Connection Dim adoCmm As New adodb.Command Dim adoRec As New adodb.Recordset
adoCmm.ActiveConnection = adoCnn adoCmm.CommandType = adCmdText adoCmm.CommandText = "select * from Customers" Set adoRec = adoCmm.Execute Set MSHFlexGrid1.DataSource = adoRec
现在有三种连接数据库方法 DAO,ODBC,ADO 最好的方法就是ADO了
Dim adoCnn As New adodb.Connection Dim adoCmm As New adodb.Command Dim adoRec As New adodb.Recordset ADO Dim adoCnn As New adodb.Connection Dim adoCmm As New adodb.Command Dim adoRec As New adodb.Recordset adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\dvbbs6.MDB;Persist Security Info=False" adoCmm.ActiveConnection = adoCnn adoCmm.CommandType = adCmdText adoCmm.CommandText = "select * from [user]" Set adoRec = adoCmm.Execute Set MSHFlexGrid1.DataSource = adoRec
ado 高效
dao 灵活
Sub Main()
Set conn = New ADODB.Connection
GlobalConnString = "driver={Microsoft access driver (*.mdb)};Dbq=tianyin.mdb;uid=;pwd=;defaultdir=" & App.Path & "\data"
conn.Open GlobalConnString
End SubDim adoCnn As New adodb.Connection
Dim adoCmm As New adodb.Command
Dim adoRec As New adodb.Recordset
adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=App.Path & "*.MDB";Persist Security Info=False"
adoCmm.ActiveConnection = adoCnn
adoCmm.CommandType = adCmdText
adoCmm.CommandText = "select * from Customers"
Set adoRec = adoCmm.Execute
Set MSHFlexGrid1.DataSource = adoRec
DAO,ODBC,ADO
最好的方法就是ADO了
Dim adoCmm As New adodb.Command
Dim adoRec As New adodb.Recordset
ADO
Dim adoCnn As New adodb.Connection
Dim adoCmm As New adodb.Command
Dim adoRec As New adodb.Recordset
adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\dvbbs6.MDB;Persist Security Info=False" adoCmm.ActiveConnection = adoCnn
adoCmm.CommandType = adCmdText
adoCmm.CommandText = "select * from [user]"
Set adoRec = adoCmm.Execute
Set MSHFlexGrid1.DataSource = adoRec