Hello:
I have a guy who is writing code for me using BVB6.
Using a SSH tunnel connection to my web host server
where I have a Mysql database. He is using ADO datagrid
to show all the records in my database. Allow Deletes is
set to yes.
PROBLEM: When I try to delete a record I get a Lost Connection to
MySQL server during query run-time error '-2147467259 (80004005)'
He has looked and looked and can't find the problem, saying that
ADO is not very stable way of doing code. I requested that he use ADO
so that it is easy for me to add fields to the datagrid.
--------------------------------------------------------
Private Sub cmdDelete_Click()
Dim nresponse
nresponse = MsgBox("Do you really want to delete this record?", 20,
"Delete Record")
If nresponse = 6 Then
' Delete the current record
Adodc3.Recordset.Delete
' If the record deleted was the last record, this will update
the last customer number
'DatLastCustNo.Refresh
Adodc3.Refresh
' After the current record has been deleted, there is no
current record. We need to
' use a move method to jump to a valid record
Adodc3.Recordset.MoveFirst
End If
End Sub
-----------------------------------------------------------
Any help with this problem sure would be appreciated.
Thanks for your time
Bill Dannels
