[vb6] ado e controllo record

RaouL_BennetH · 08-12-2004, 15:47

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 · 08-12-2004, 16:02

Quote:

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 · 09-12-2004, 15:56

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

RaouL_BennetH · 10-12-2004, 12:20

Quote:

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:

Codice:

'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:

Codice:

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:

Codice:

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

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

help

RaouL_BennetH · 11-12-2004, 02:00

up

Fenomeno85 · 11-12-2004, 20:01

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

~§~ Sempre E Solo Lei ~§~

cionci · 11-12-2004, 20:16

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 · 11-12-2004, 20:26

Quote:

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

08-12-2004, 15:47	#1
RaouL_BennetH Senior Member Iscritto dal: Sep 2004 Messaggi: 3967	[vb6] ado e controllo record 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. __________________ Dai wafer di silicio nasce: LoHacker... il primo biscotto Geek

11-12-2004, 02:00	#5
RaouL_BennetH Senior Member Iscritto dal: Sep 2004 Messaggi: 3967	up __________________ Dai wafer di silicio nasce: LoHacker... il primo biscotto Geek

11-12-2004, 20:01	#6
Fenomeno85 Senior Member Iscritto dal: Jun 2002 Città: Provincia De VaRéSe ~ § ~ Lat.: 45° 51' 7" N Long.: 8° 50' 21" E ~§~ Magica Inter ~ § ~ Detto: A Chi Più Amiamo Meno Dire Sappiamo ~ § ~ ~ § ~ Hobby: Divertimento allo Stato Puro ~ § ~ ~ § ~ You Must Go Out ~ § ~ Messaggi: 8897	rs non assune qualche valore particolare quando non esiste il risultato dell'interrogazione? ~§~ Sempre E Solo Lei ~§~ __________________ Meglio essere protagonisti della propria tragedia che spettatori della propria vita Si dovrebbe pensare più a far bene che a stare bene: e così si finirebbe anche a star meglio. Non preoccuparti solo di essere migliore dei tuoi contemporanei o dei tuoi predecessori.Cerca solo di essere migliore di te stesso

09-12-2004, 15:56	#3
cionci Senior Member Iscritto dal: Apr 2000 Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29 Messaggi: 53971	Metti il campo indicizzato con un vincolo di unicità...

11-12-2004, 20:16	#7
cionci Senior Member Iscritto dal: Apr 2000 Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29 Messaggi: 53971	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

Strumenti
Mostra una versione stampabile Invia questa pagina per email