估计你是说使用ADO类的方法,ADO类的执行效率要比ADO控件要高。 这种方法属于比较专业的方法。使用其实也很简单. 你可以参考一下我以下的做法访问数据库Dim conn As New ConnectionPrivate Sub Command1_Click() Dim rs As New Recordset Dim rsRecordCount As Long Dim X As Long rs.Open "Select Count(*) As C From 表1", conn, adOpenStatic, adLockReadOnly rsRecordCount = rs!C rs.Close If rsRecordCount >= 1 Then rs.Open "Select * From 表1", conn, adOpenStatic, adLockReadOnly For X = 1 To rsRecordCount List1.AddItem rs!字段1 & " " & rs!字段2 If X < rsRecordCount Then rs.MoveNext Next X rs.Close End If Set rs = Nothing End SubPrivate Sub Form_Load() conn.Open "Microsoft.Jet.OLEDB.4.0;Data Source=C:\YouAccess.mdb" End SubPrivate Sub Form_Unload(Cancel As Integer) conn.Close Set conn = Nothing End Sub
这种方法属于比较专业的方法。使用其实也很简单.
你可以参考一下我以下的做法访问数据库Dim conn As New ConnectionPrivate Sub Command1_Click()
Dim rs As New Recordset
Dim rsRecordCount As Long
Dim X As Long
rs.Open "Select Count(*) As C From 表1", conn, adOpenStatic, adLockReadOnly
rsRecordCount = rs!C
rs.Close
If rsRecordCount >= 1 Then
rs.Open "Select * From 表1", conn, adOpenStatic, adLockReadOnly
For X = 1 To rsRecordCount
List1.AddItem rs!字段1 & " " & rs!字段2
If X < rsRecordCount Then rs.MoveNext
Next X
rs.Close
End If
Set rs = Nothing
End SubPrivate Sub Form_Load()
conn.Open "Microsoft.Jet.OLEDB.4.0;Data Source=C:\YouAccess.mdb"
End SubPrivate Sub Form_Unload(Cancel As Integer)
conn.Close
Set conn = Nothing
End Sub
http://download.csdn.net/source/1371356
你用控件或ADODB都无所谓了,能完成任务就好
DAO肯定没有ADO效率高,
ADODB 拼连接字符串速度很好。
ADODC 有些人喜欢绑定用……