[VB6] Leggere un campo per tutti i record disponibili

[Incantatore]

in poche parole se il numero seriale del hd , si trova nel campo "seriali":

If VolumeSerial("C") = rs3("seriali") Or VolumeSerial("d") = rs3("seriali") Or VolumeSerial("e") = rs3("seriali") Or VolumeSerial("f") = rs3("seriali") Or VolumeSerial("g") = rs3("seriali") Or VolumeSerial("h") = rs3("seriali") Or VolumeSerial("i") = rs3("seriali") Or VolumeSerial("l") = rs3("seriali") Or VolumeSerial("m") = rs3("seriali") Or VolumeSerial("n") = rs3("seriali") Or VolumeSerial("o") = rs3("seriali") Then

deve fare tutte quelle operazioni dopo il then fino a caricare i dati nella listview1,

else 

MsgBox "Seriale Registrato: " & rs3("seriali") & vbCrLf & "Seriale non conforme sul PC: " & VolumeSerial("C"), vbCritical, "Impossibile avviare il software"

ecco che deve fare!

[Incantatore]

scusate ma nn credo che faccia quello che dico io


Esempio :


se nel campo "seriali" c'è la parola carlo , il programma fa quelle operazioni, se la parola carlo non c'è , mi esce un msgbox con tutte le parole che ci sono nel campo "seriali"


il msgbox l'ho sistemato , il problema è il primo!


grazie in anticipo per chi mi aiuta

[oregon]

Mica si capisce quello che dici ...

[Incantatore]

allora io ho un database con un campo " seriali"


voglio che al load del programma


se nel campo "seriali " c'è la parola carlo , il programma parte se no nn parte!

Tutto qua


ovviamente nel campo "seriali"

ci sono altri record, tipo


Luca
Carlo
Marco
Federico
Tiziano

[oregon]

Allora, semplicemente

If Instr(rs3("seriali").Value, "carlo") >0 Then
   ' Il nome e' stato trovato
Else
   ' Il nome non e' stato trovato
End If

P.S. Che vuol dire ... nel campo ci sono altri record ...????

[Incantatore]

[IMG][/IMG]

ecco cosi, rispiego


io voglio che VolumeSerial("C") (che sarebbe il serial number del harddisk)

viene trovato in mezzo a quei record nella foto che ho postato , il programma parte, se nn viene trovato il programma nn parte.


Io vorrei semplicemente sapere il codice per dirgli che se il serial number del hard disk e uguale ad un record che si trova nel campo "seriali", il programma parte


grazie

[oregon]

E perche' mi hai fatto perdere tempo con la storia di carlo? VVoVe:

Per fare quello che chiedi (a meno che non cambi nuovamente quesito) devi semplicemente eseguire una query SQL del tipo

"SELECT * FROM TabellaSeriali WHERE seriali = " & VolumeSerial("C")

Se il recordset restituito e' vuoto, il seriale non esiste.

[Incantatore]

come si inserisce? come faccio a fare l'if


if "SELECT * FROM serialnumber WHERE seriali = " & VolumeSerial("C") then


purtroppo non so questa funzione .. come funziona

[oregon]

No ... quella e' una query SQL ... devi farla eseguire al motore del database con

Set rs3 = db.OpenRecordset("SELECT * FROM ....", dbOpenSnapshot)

e poi esamini il recordset rs3 con

If rs3.Eof And rs3.Bof Then
' Non trovato
Else
' Trovato
End If

Pero' ... scrivere un programma che gestisce dei database senza sapere cosa e' una query, non e' un modo corretto di lavorare (o fare esperienza ...) ...

[Incantatore]

lo so all'inizio mi serviva solo aggiungere , cancellare ed editare , e ricerca , ma ora mi è capitata questa cosa.

cmq ora faccio cosi

Set rs3 = db.OpenRecordset=("SELECT * FROM serialnumber WHERE seriali = " & VolumeSerial("C"),dbOpenSnapshot)


If rs3.Eof And rs3.Bof Then

Else

End If


facendo cosi , se il serialde del hd nn è tra quei 3 recordo , il programma nn parte , se no fa l'operazioni che gli dico di fare.


grazie per la pazienza!

provo