.net & Visual FoxPro error

[V.V. Singh]

Hi Everyone,

This is my code for making a connection to a Visual FoxPro free table and
querying it.

I get the following error message

File iddxstrippunc.p rg does not exist

I have tested the dsn through access link tables and it seems to work fine.

Any help would be appreciated.

Thanks,

V.V.

*************** *************** *************** ************

Dim oConn = CreateObject("a dodb.connection ")

Dim mdconnString As String

Dim MDWSql As String

Dim oRS As ADODB.Recordset

mdconnString = "Provider=vfpol edb;DSN=vfxpdsn "

oConn.Connectio nString = mdconnString

Try

oConn.Open() ' Open VFP Connection

If oConn.State = ADODB.ObjectSta teEnum.adStateO pen Then

MsgBox("Connect ion was Successful")

Else

MsgBox("Connect ion Failed")

End If

oConn.BeginTran s()

MDWSql = "SELECT * FROM patients where externalid = ""CB1855"""

oRS = oConn.Execute(M DWSql)

Catch ex As Exception

MsgBox(ex.Messa ge)

Close()

End Try

[Anders]

The only thing I can think of that would make a simple query try to call a
program or procedure would be if there was some fancy indexing using a
user-defined-function.

-Anders
Den 05-08-31 09.09, i artikeln eh************* @tk2msftngp13.p hx.gbl, skrev
"V.V. Singh" <vv*****@high er-reason.com>:

Hi Everyone,

This is my code for making a connection to a Visual FoxPro free table and
querying it.

I get the following error message

File iddxstrippunc.p rg does not exist

I have tested the dsn through access link tables and it seems to work fine.

Any help would be appreciated.

Thanks,

V.V.

*************** *************** *************** ************

Dim oConn = CreateObject("a dodb.connection ")

Dim mdconnString As String

Dim MDWSql As String

Dim oRS As ADODB.Recordset

mdconnString = "Provider=vfpol edb;DSN=vfxpdsn "

oConn.Connectio nString = mdconnString

Try

oConn.Open() ' Open VFP Connection

If oConn.State = ADODB.ObjectSta teEnum.adStateO pen Then

MsgBox("Connect ion was Successful")

Else

MsgBox("Connect ion Failed")

End If

oConn.BeginTran s()

MDWSql = "SELECT * FROM patients where externalid = ""CB1855"""

oRS = oConn.Execute(M DWSql)

Catch ex As Exception

MsgBox(ex.Messa ge)

Close()

End Try