VBÁ¬½ÓDBFÊý¾Ý¿âÊÂÀý£¡

ÈçÌ⣺

ÇóvbʹÓÃODBCÁ¬½ÓDBFÊý¾Ý¿âµÄ´úÂë

---

VB code:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"
Adodc1.RecordSource = "select * from JWCK_BM"
Adodc1.Refresh
End Sub

jwl_dbfÊÇVFPÊý¾Ý¿âODBCÃû³Æ

---

ÒýÓÃ

VB codePrivateSub Form_Load()
    Adodc1.ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Data  Source=jwl_dbf"
    Adodc1.RecordSource="select * from JWCK_BM"
    Adodc1.RefreshEnd Sub
jwl_dbfÊÇVFPÊý¾Ý¿âODBCÃû³Æ

ѧϰ

---

ÏȽ¨Á¢ODBC£¬¿´¿´Äܲ»ÄÜÁ¬½Ó¡£

---

VB code:

'Á¬½ÓDBF
connStr = "Provider=MSDASQL.1;" & _
"Driver=Microsoft Visual FoxPro Driver;" & _
"SourceDB=" & App.Path & "\;" & _
"Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF"
conn.Open connStr
rs.CursorLocation = adUseClient
sql = "select * from ¹¤×ʱí" '¹¤×ʱíΪdbfÎļþÃû³Æ
rs.Open sql, conn, adOpenDynamic, adLockOptimistic