dim Connect as new adodb.connection,i as long dim chkrs as new adodb.recordset connect.open "pro....." Chkrs.Open "select * from [dBASE III;DATABASE=C:\SampleUpdate\].[sample.DBF]", Connect, adOpenStatic, adLockOptimistic for i=0 to chrs.fields.count-1 msgbox chkrs.fields(i).name next i
chkrs.Open "select * from [dBASE III;DATABASE=D:\数据\].[query.DBF]", Connect, adOpenStatic, adLockOptimisticfrom语法出错
问题已经解决,使用的ADO,文件DSN,谢谢amstar Connect.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Print" chkrs.Open "query", Connect, adOpenStatic, adLockOptimistic For i = 0 To chkrs.Fields.Count - 1 List1.AddItem chkrs.Fields(i).Name Next i If Check
dim chkrs as new adodb.recordset
connect.open "pro....."
Chkrs.Open "select * from [dBASE III;DATABASE=C:\SampleUpdate\].[sample.DBF]", Connect, adOpenStatic, adLockOptimistic
for i=0 to chrs.fields.count-1
msgbox chkrs.fields(i).name
next i
Connect.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Print"
chkrs.Open "query", Connect, adOpenStatic, adLockOptimistic
For i = 0 To chkrs.Fields.Count - 1
List1.AddItem chkrs.Fields(i).Name
Next i
If Check