假设数据目录为"C:\temp",数据表名为:ttable
dim conn as new adodb.connection
Dim rs As New ADODB.Recordsetconn = "Provider=MSDASQL.1; " & _
"Persist Security Info=False; " & _
"Driver={Microsoft Visual FoxPro Driver}; " & _
"SourceDB=c:\temp;" & _
"SourceType=DBF;" & _
"Exclusive=No;"cnn.Open connrs.CursorLocation = adUseClient
rs.Open "select * from ttable", cnn, adOpenKeyset, adLockPessimistic
dim conn as new adodb.connection
Dim rs As New ADODB.Recordsetconn = "Provider=MSDASQL.1; " & _
"Persist Security Info=False; " & _
"Driver={Microsoft Visual FoxPro Driver}; " & _
"SourceDB=c:\temp;" & _
"SourceType=DBF;" & _
"Exclusive=No;"cnn.Open connrs.CursorLocation = adUseClient
rs.Open "select * from ttable", cnn, adOpenKeyset, adLockPessimistic
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货