access+vf

Question

谁能告诉我,vb怎么与access或者vf建立联系，谢谢，急。

Answer 1

'打开地FOXPRO
dim Mydb as adodb.connection
dim MyDBFRec as adodb.recordset
dim MyDBFsql as string
set Mydb=new adodb.connection
set MyDBFRec=new adodb.recrodsetMyDB.Open "Provider=MSDASQL.1;Persist Security Info=false;Extended
Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & (App.Path & "\dbf") & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"   '\dbf是放aa的文件夹
MyDBFsql = "select * from aa"     'aa为DBF表
With MyDBFRec
    .LockType = adLockOptimistic
    .Open MyDBFsql, MyDB, , , adCmdText
end with 
'MyDBFsql到于打开ACCESS库，那你就添加一个ADO控件，在CONNECTION属性里面设好之后，就复制下来就行了