.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.prg 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("adodb.connection")

Dim mdconnString As String

Dim MDWSql As String

Dim oRS As ADODB.Recordset

mdconnString = "Provider=vfpoledb;DSN=vfxpdsn"

oConn.ConnectionString = mdconnString

Try

oConn.Open() ' Open VFP Connection

If oConn.State = ADODB.ObjectStateEnum.adStateOpen Then

MsgBox("Connection was Successful")

Else

MsgBox("Connection Failed")

End If

oConn.BeginTrans()

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

oRS = oConn.Execute(MDWSql)

Catch ex As Exception

MsgBox(ex.Message)

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.phx.gbl, skrev
"V.V. Singh" <vv*****@higher-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.prg 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("adodb.connection")

Dim mdconnString As String

Dim MDWSql As String

Dim oRS As ADODB.Recordset

mdconnString = "Provider=vfpoledb;DSN=vfxpdsn"

oConn.ConnectionString = mdconnString

Try

oConn.Open() ' Open VFP Connection

If oConn.State = ADODB.ObjectStateEnum.adStateOpen Then

MsgBox("Connection was Successful")

Else

MsgBox("Connection Failed")

End If

oConn.BeginTrans()

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

oRS = oConn.Execute(MDWSql)

Catch ex As Exception

MsgBox(ex.Message)

Close()

End Try