[vb6] ado e controllo record

[RaouL_BennetH]

Salve, la mia domanda è questa:

mi collego ad un db tramite ADO, e vorrei fare un controllo del genere quando inserisco un nuovo nominativo del db:

Se un campo particolare, è già memorizzato, come faccio a fargli fare il controllo in modo che mi dia una msgbox tipo "CODICE GIA' PRESENTE" ?


thx


RaouL.

[RaouL_BennetH]

Originariamente inviato da RaouL_BennetH
Salve, la mia domanda è questa:

mi collego ad un db tramite ADO, e vorrei fare un controllo del genere quando inserisco un nuovo nominativo del db:

Se un campo particolare, è già memorizzato, come faccio a fargli fare il controllo in modo che mi dia una msgbox tipo "CODICE GIA' PRESENTE" ?


thx


RaouL.

Come non detto

Risolto mezzo secondo dopo averci pensato un "pò" più intensamente...

Sorry.

[cionci]

Metti il campo indicizzato con un vincolo di unicità...

[RaouL_BennetH]

Originariamente inviato da cionci
Metti il campo indicizzato con un vincolo di unicità...

Ecco....mettendo il campo indicizzato nel database, ho un bel pò di problemi:

'prima controllo che i dati inseriti non siano già presenti nel db

isql = ""
isql = isql & "SELECT Codice" & vbCrLf
isql = isql & "FROM tblanagrafica" & vbCrLf

Set rs = cn.Execute(isql)
    If Val(txtCodice.Text) = rs("Codice") Then
       MsgBox "Codice Scheda già Presente!", vbOKOnly
    Else 'altrimenti, se non ci son problemi....
 
'aggiungo i dati scritti nel database
isql = ""
isql = isql & "INSERT INTO tblanagrafica(Cognome, Nome, Mansione, Codice)" & vbCrLf
isql = isql & "VALUES (' " & txtCognome.Text & " ', ' " & txtNome.Text & " ', ' " & Combo1.Text & " ', ' " & txtCodice.Text & " ' )" & vbCrLf
       Set rs = cn.Execute(isql)
       
           MsgBox "Dati Inseriti Correttamente!", vbOKOnly
                   txtCognome.Text = ""
                   txtNome.Text = ""
                   Combo1.Text = ""
                   txtCodice.Text = ""
    End If

Però, in questo modo mi funziona solo se ho già almeno un record inserito

Se non c'è nessun record, mi da quest'errore:

Errore di run time '3021'
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente

E quando vado a fare il debug, ovviamente mi porta qui:

 If Val(txtCodice.Text) = rs("Codice") Then

Difatti, se non c'è nemmeno un record, come verifica quella condizione?

help

[RaouL_BennetH]

up

[Fenomeno85]

rs non assune qualche valore particolare quando non esiste il risultato dell'interrogazione?

~§~ Sempre E Solo Lei ~§~

[cionci]

Dopo l'esecuzione della query devi mettere:

If rs.EOF Then
'qui già sai che il codice non esiste
Else
'esegui il tuo codice precedente

[RaouL_BennetH]

Originariamente inviato da cionci
Dopo l'esecuzione della query devi mettere:

If rs.EOF Then
'qui già sai che il codice non esiste
Else
'esegui il tuo codice precedente

thx, cionci