.net & Visual FoxPro error

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
Wed Aug 31 07:53:01 CDT 2005

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 ehyoysfrFHA.904@tk2msftngp13.phx.gbl, skrev
"V.V. Singh" <vvsingh@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
>
>