[VB6] Scoprire se esiste una riga in una tabella MySQL

[Fenix'89]

Come posso fare per sapere se una riga esiste in una tabella senza usare il metodo on error??????

[Stefano1984Mn]

Intendi se una tabella è vuota o è gia popolata?

Se è per questo potresti usare Count che ti dice quante righe ci sono.

[Fenix'89]

la tabella è già popolata

però nel centro della tabella alcuni record potrebbero essere stati eliminati

quindi se per esempio io cerco di andare nella riga con ID = 6 che è stata eliminata mi da errore

[Stefano1984Mn]

Puoi fare una select dalla tabello con WHERE id = 6 e poi vedere se all'interno del recorset cè qualcosa o no.

per esempio;

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM nometabella WHERE id = 6 ", cn, adOpenForwardOnly, adLockReadOnly, adCmdText

If Not rs.EOF Then

end if

Se va detro all'if vuol dire che la riga che cerchi esiste

[Fenix'89]

Grazie mille funziona perfettamente

[Stefano1984Mn]

Di niente




CHE SONNO

[Fenix'89]

Però c'è un piccolo problemino

questo è il mio codice

Set GetString = New ADODB.Recordset
GetSting.Open "SELECT * FROM furniture WHERE id = 2 ", conn, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not GetString.EOF Then
MsgBox "Ci sono dati"
Else
MsgBox "non ci sono dati"
End If

sia che ci siano dati che non mi esce sempre msgbox "Ci sono dati"
si può risolvere?

[Stefano1984Mn]

cosè questa?

adCmdText

[Stefano1984Mn]

Scusa che domanda del cavolo

ma vedi che ti fa la query sempre con id = 2

se la vuoi cambiare devi mettere un parametro


Set GetString = New ADODB.Recordset

GetSting.Open "SELECT * FROM furniture WHERE id = '" & Text1.text & "' ", conn, adOpenForwardOnly, adLockReadOnly, adCmdText

If Not GetString.EOF Then
MsgBox "Ci sono dati"
Else
MsgBox "non ci sono dati"
End If

per esempio la text1.text dove ci sarà scritto che id vuoi vedere se ce nella tabella ok?

[Fenix'89]

si lo so però anche provando a cambiare id manualmente mi da sempre lo stesso messaggio