طريفة ربط الفيجوال مع جداول الفوكس برو عن طريق الكود

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Private Sub Command1_Click()

' set strings

sConnect = "Provider=vfpoledb.1;Data Source=C:\SS\DATA\DADA.dbc;Collating Sequence=machine;"

sSQL = "select * from product "

' open connection

Set cn = New Connection

cn.Open sConnect

' create a recordset using the provided collection

Set rs = New Recordset

rs.CursorLocation = adUseClient

rs.Open sSQL, cn, adOpenForwardOnly, adLockPessimistic

'''''''''''''''''''''''100% End Sub