[VB6-Access] Controllo dati già inseriti

[RaouL_BennetH]

Premessa: connessione al DB con ADO

Problema: vorrei controllare che un nome che inserisco in una textbox, se già presente nel db me lo segnali.

ho questo codice:



ver = ver & "SELECT Codice FROM tblCode" & vbCrLf
set rs = cn.Execute(ver)

if txtCodice.Text = rs("Codice") Then

msgbox "Codice già in memoria!", vbOkOnly

Else

ver = ver & "INSERT INTO tblCode(Codice)" & vbCrLf
ver = ver & "VALUES('" & txtCodice.Text & "')" & vbCrLf
Set rs = cn.Execute(ver)

End If



Ma ottengo come errore un bel Runtime 3021 :(

[matpez]

Io metterei una WHERE dove passi appunto il valore contenuto nella textbox, a quel punto controlli che il recordset contenga un valore, se lo contiene allora hai un doppione, altrimenti lo inserisci!

Come hai fatto tu va bene, ma presuppone che il record sia il primo posto, altrimenti se la select te ne tira fuori più di uno nn riusci a fare quello che volevi fare tu :)

Per controllare che il recordset abbia un valore basta che metti: if not rs.eof then

[RaouL_BennetH]

Originariamente inviato da matpez
Io metterei una WHERE dove passi appunto il valore contenuto nella textbox, a quel punto controlli che il recordset contenga un valore, se lo contiene allora hai un doppione, altrimenti lo inserisci!

Come hai fatto tu va bene, ma presuppone che il record sia il primo posto, altrimenti se la select te ne tira fuori più di uno nn riusci a fare quello che volevi fare tu :)

Per controllare che il recordset abbia un valore basta che metti: if not rs.eof then

Grazie :)

Non credo di aver capito molto bene però....



if not rs.EOF Then

ver = ver & "SELECT Codice FROM tblCode" & vbCrLf
ver = ver & "WHERE Codice LIKE ' " & txtCodice.Text & "' " & vbcrlf
set rs = cn.Execute(ver)

if txtCodice.Text = rs("Codice") Then

msgbox "Codice già in memoria!", vbOkOnly

Else

ver = ver & "INSERT INTO tblCode(Codice)" & vbCrLf
ver = ver & "VALUES('" & txtCodice.Text & "')" & vbCrLf
Set rs = cn.Execute(ver)

End If
End If


Posso provare così?

Thx. RaouL.

[RaouL_BennetH]

ok, era un pò più semplice:



ver = ver & "SELECT Codice FROM tblCode" & vbCrLf
ver = ver & "WHERE Codice LIKE ' " & txtCodice.Text & "' " & vbcrlf
set rs = cn.Execute(ver)

If not rs.EOF then
msgbox "Codice già in memoria!!", vbCritical

else

ver = ver & "INSERT INTO tblCode(Codice)" & vbCrLf
ver = ver & "VALUES('" & txtCodice.Text & "')" & vbCrLf
Set rs = cn.Execute(ver)

End If




Grazie mille Matpez :)

[matpez]

Prego :p