Delete record from .DBF using ADO

[Ted Young]

Is it possible to delete a record from a .DBF file using ADO?
I am able to connect to the table/db using the code below. But when the
DELETE method executes I am getting an error message stating "Query Based
Delete Failed. The row to delete could not be found"
I know the result set found the entry becuase EOF is false and the recordcount
is 1.Any ideas would be GREATLY appreciated.Thanks!
objWHSConn.ConnectionString = "DRIVER=Microsoft Visual FoxPro Driver (*.dbf);UID=;Deleted
= Yes;Null=Yes;Collate = Machine;BackgroundFetch = Yes;Exclusive = No;SourceType
= DBF;SourceDB=c:\WHS"objWHSConn.Open
objWHSRS.Open "SELECT * FROM WHS WHERE Loan_No ='" & strLoanNumber & "'",
objWHSConn, adOpenStatic, adLockBatchOptimistic
objWHSRS.Filter = "Loan_No ='" & strLoanNumber & "'"objWHSRS.Delete
objWHSRS.UpdateBatch

[Ted Young]

I was able to get a SELECT statement to work but not a DELETE statment with
the connection object. I am getting an error that states "[ODBC Visual FoxPro
Driver] Command contains unrecognized keyword"

Any ideas?

'DOES NOT WORK
objWHSConn.Execute "DELETE * FROM WHS WHERE Loan_No ='" & strLoanNumber &
"'"

'DOES WORK
objWHSConn.Execute "DELETE * FROM WHS WHERE Loan_No ='" & strLoanNumber &
"'"




"Ted Young" <tyoung@mlnusa.com> wrote:
>
>Is it possible to delete a record from a .DBF file using ADO?
>I am able to connect to the table/db using the code below. But when the
>DELETE method executes I am getting an error message stating "Query Based
>Delete Failed. The row to delete could not be found"
>I know the result set found the entry becuase EOF is false and the recordcount
>is 1.Any ideas would be GREATLY appreciated.Thanks!
>objWHSConn.ConnectionString = "DRIVER=Microsoft Visual FoxPro Driver (*.dbf);UID=;Deleted
>= Yes;Null=Yes;Collate = Machine;BackgroundFetch = Yes;Exclusive = No;SourceType
>= DBF;SourceDB=c:\WHS"objWHSConn.Open
>objWHSRS.Open "SELECT * FROM WHS WHERE Loan_No ='" & strLoanNumber & "'",
>objWHSConn, adOpenStatic, adLockBatchOptimistic
>objWHSRS.Filter = "Loan_No ='" & strLoanNumber & "'"objWHSRS.Delete
>objWHSRS.UpdateBatch