General information
Category:
Database DAO/RDO/ODBC/ADO
Yes I am using ADO and the codes as below:
Private Sub OpenConnection1()
If Not (mCN1 Is Nothing) Then
mCN1.Close
Set mCN1 = Nothing
End If
' Create a new connection
Set mCN1 = New Connection
With mCN1
.ConnectionString = "DSN=Visual FoxPro Tables;UID=;PWD=;SourceDB=" & mAXIOMADir & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
.CursorLocation = adUseServer
.Open
End With
End Sub
please help me.. thanks
Regards
Winan
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only