[VB6] Query sql che non va

[rambco]

Public Function sckRegister(Dati As String) As String
    Dim objRs As ADODB.Recordset
    Dim strsql As String

    Set objRs = New ADODB.Recordset

    strsql = "INSERT INTO Utente (Username,[Password],nome,cognome)" _
    & " VALUES ( '" & Word(Dati, 2) & "' , '" & Word(Dati, 3) & "','" & Word(Dati, 4) & "','" & Word(Dati, 5) & "');"
        
    objRs.Open strsql, cn
    
    sckRegister = ".OkRegister&" & objRs("ID") & "&"

    Set objRs = Nothing
    
End Function

mi dice impossibile trovare l'oggetto riferito all'insieme o qualcosa del genere !

[JamesD]

L'sql che hai eseguito è una query di inserimetno!
Per potere acquisire dati da una o più tabelle devi eseguire una query di selezione!
Facendo objRs("ID") tenti di leggere il valore del campo ID della tua tabella facendo però riferimento ad un recordset che in realtà non contiene i valori della tabella perchè aperto utilizzando una insert!

[rambco]

quidni ovvio facendo un select con max sull'id !

[optime]

Originariamente inviato da rambco
quidni ovvio facendo un select con max sull'id !

cosa vuol dire????

[rambco]

Public Function sckRegister(Dati As String) As String
    Dim objRs As ADODB.Recordset
    Dim strsql As String

    Set objRs = New ADODB.Recordset

    strsql = "INSERT INTO Utente (Username,[Password],nome,cognome)" _
    & " VALUES ( '" & Word(Dati, 2) & "' , '" & Word(Dati, 3) & "','" & Word(Dati, 4) & "','" & Word(Dati, 5) & "');"
        
    cn.Execute strsql
        
    objRs.Open "SELECT MAX(ID) as ID FROM Utente", cn
    
    sckRegister = ".OkRegister&" & objRs("ID") & "&"

    Set objRs = Nothing
    
End Function