> 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
>
>