---

Hej!

Jeg har været i gang med en Update funktion i VB6.0 men jeg kan ikke får
min kode til at køre. I koden her under vil jeg opdatere en post med nye
informationer fra nogen text felter men jeg får en fejlmelding om at
"Query-based update failed because the row to update could not be found"
og hvis jeg prøver at tjekke hvilken record den har hentet så er det den
rigtige record det er godt nok underligt. Dog har jeg sat kolonen URL
til at være unique i MySQL er det derfor jeg ikke får lov til at
opdatere?


Dim objConnection As ADODB.Connection
Dim objRecordset As ADODB.Recordset

'connect to database
ConnectToDatabase objConnection
Dim strSQL As String

strSQL = "Select * from sites WHERE Idnr =" & txtURLId.Text
Set objRecordset = New ADODB.Recordset
On Error GoTo ErrorHandler
objRecordset.Open strSQL, objConnection, adOpenForwardOnly,
adLockOptimistic, adCmdText

lblSQL = objRecordset("URL")

Debug.Print "Revideret " & txtURLId.Text

If objRecordset("Idnr") = txtURLId.Text Then

objRecordset("Description") = txtDescr.Text
objRecordset("Title") = txtTitle.Text
objRecordset("Keyword") = txtKeyw.Text
objRecordset("Kword") = txtSogKeyw.Text
objRecordset("Points") = lblPoints
objRecordset("Lastmod") = lblLastmodif
objRecordset("Lastvisit") = lblDato
objRecordset("Size") = lblSize
objRecordset("popup") = lblPOP
objRecordset.Update
End If

objRecordset.Close
Set objRecordset = Nothing
DisconnectFromDatabase objConnection


ErrorHandler:
Select Case Err.Number ' Evaluate error number
Case Err.Number = 16
lblError = "ingen fejl"
Case 3021 ' EOF or BOF
MsgBox "Search Finished We Quit now"
End
Case Else
lblSQL = "Error " + Str(Err.Number) + Err.Description &
vbCritical

End Select

Forslag til en update funktion modtages med glæde.

Ps. det lille If then med Idnr var bare et hack til at sikre at det var
den rigtige record

Mvh. Mogens