title image


Smiley Probleme mit SQL Statement
Hallo,



folgender Code:

Public Function save_finger(ByVal finger As String, Optional ByVal member As String = "") As Boolean

On Error Resume Next

Dim nId As String



' neuen Datensatz hinzufügen

adoConnection.Execute "INSERT INTO finger (finger) VALUES ('" & finger & "')"



' Autowert des gerade hinzugefügten Datensatzes ermitteln

Dim oRs As New ADODB.RecordSet

Set oRs = adoConnection.Execute("SELECT SCOPE_IDENTITY() As Id")

nId = oRs.Fields("fnr")



' Fingerabdruck bei Member speichern

If member "" Then

sql = "UPDATE member SET fnr ='" & nId & "' Where id='" & member & "'"



If nId = 0 Then

MsgBox "Fingerabdruck nicht gespeichert", vbCritical

Else

adoConnection.Execute sql

End If

Else

MsgBox "Keinen Member angegeben", vbCritical

End If



oRs.Close

End Function



nId ist aber immer leer, weil auch kein Datensatz angelegt wird. Woran liegt das? Die ado connection steht und funktioniert



Danke und Gruß



Kerstel
Die menschliche Intelligenz ist eine Konstante, das Problem ist die Bevölkerungszahl

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: