G
Guest
Hello,
Here is my function:
Private Sub myLiveConn()
Dim strConn As String = "Driver={Microsoft Visual FoxPro
Driver};UID=;SourceType=DBF;SourceDB=F:\Report
Data\appt.dbf;Null=No;Deleted=Yes;Exclusive=No;Connect Timeout=10"
Dim Conn As OdbcConnection = New OdbcConnection(strConn)
Conn.Open()
Dim Da As New OdbcDataAdapter
Dim Ds As New DataSet
Dim cmdSelect As New OdbcCommand
cmdSelect = Conn.CreateCommand
cmdSelect.CommandText = "SELECT * FROM pat"
Da.SelectCommand = cmdSelect
Da.Fill(Ds, "pat")
End Sub
I get an error at conn.open() line: ERROR [IM001] [Microsoft][ODBC Driver
Manager] Driver does not support this function
What is problem?
Thanks,
Jim.
Here is my function:
Private Sub myLiveConn()
Dim strConn As String = "Driver={Microsoft Visual FoxPro
Driver};UID=;SourceType=DBF;SourceDB=F:\Report
Data\appt.dbf;Null=No;Deleted=Yes;Exclusive=No;Connect Timeout=10"
Dim Conn As OdbcConnection = New OdbcConnection(strConn)
Conn.Open()
Dim Da As New OdbcDataAdapter
Dim Ds As New DataSet
Dim cmdSelect As New OdbcCommand
cmdSelect = Conn.CreateCommand
cmdSelect.CommandText = "SELECT * FROM pat"
Da.SelectCommand = cmdSelect
Da.Fill(Ds, "pat")
End Sub
I get an error at conn.open() line: ERROR [IM001] [Microsoft][ODBC Driver
Manager] Driver does not support this function
What is problem?
Thanks,
Jim.