Q: ODBC connection

[JIM.H.]

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;Con nect 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.

[Patrick.O.Ige]

Try Using:-
OLE DB, OleDbConnection (.NET)

Database container (.DBC):
----------------------------------
"Provider=vfpoledb.1;Data Source=C:\MyDbFolder\MyDbContainer.dbc;Collating
Sequence=machine"

Free table directory:
---------------------------
"Provider=vfpoledb.1;Data Source=C:\MyDataDirectory\;Collating
Sequence=general"

Force the provider to use an ODBC DSN:
------------------------------------------------
""Provider=vfpoledb.1;DSN=MyDSN""

This should help you..
If not POST ur Error..
Enjoy
Patrick




"JIM.H." wrote:

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;Con nect 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.

[Patrick Olurotimi Ige]

Jim did that connection string WORK for u..
Patrick
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!