7,763
社区成员
发帖
与我相关
我的任务
分享
Dim gcn As New ADODB.Connection, rs As New ADODB.Recordset
gcn.CommandTimeout = 10000
gcn.CursorLocation = adUseClient
gcn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strpath & ";" & "Extended Properties=""DBASE IV;"";"
rs.open "select * from a", gcn, 3, 3
conn.Close