ADO s Visual Fox Pro
1 отговора
66 прегледа
Re: ADO s Visual Fox Pro
'-------DAO
' от References сложи DAO 2.5/3.5
'или DAO 3.51 - каквото там имаш
'-------ADO
' Забравих
'Пак от References ...-> М$ ActiveX Data Objects .....Library
Enjoy
' Тва в модул
Global DB As Database
Global rs As Recordset
'това във формата
Private Sub Form_Load()
Set DB = OpenDatabase(App.Path, True, False, "dBASE 5.0")
End Sub
' от References сложи DAO 2.5/3.5
'или DAO 3.51 - каквото там имаш
'-------ADO
Public Function GetConnectionString(ByVal mFolder As String) As String
GetConnectionString = "Driver={Microsoft dBASE Driver (*.dbf)};Dbq=" & mFolder
End Function
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
------------------
------------------
' Забравих
'Пак от References ...-> М$ ActiveX Data Objects .....Library
Enjoy
Редактирано от ToViDebne на