[VB6] Ricerca in un database Access

[Ruben Elmo]

Salve ragazzi, sto implementando un'applicazione che gestisce la ricerca di un codice (Codice EAN) su un database Access 2000.

Dopo aver impostato l'oggetto Data1 e rispettato tutti i collegamenti delle textbox a tutti i campi del DB ho disegnato un pulsante "Cerca codice":

Private Sub Command1_Click()
'Ricerca del codice nel database.
Dim EANDaCercare As String
EANDaCercare = InputBox$("Immettere il codice da ricercare:",
"Ricerca nel DataBase")
If EANDaCercare <> "" Then
'Esegue la ricerca solo se è stato immesso un nome.
'CodiceEan = Campo del codice, stringa di 32 char
Data1.Recordset.Index = "CodiceEan"
Data1.Recordset.Seek "=", EANDaCercare
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
Data1.Refresh
'Il codice cercato non è stato trovato.
MsgBox "Codice non trovato.", vbInformation, Me.Caption
End If
End If
End Sub

Il problema è che ogni ricerca, dp aver immesso il codice (ESISTENTE nel DB), VB mi restituisce puntualmente l'errore: "Nessun record corrente" e successivamente "Codice non trovato".

Avete qualche idea per risolvere il problema?

Grazie

[alka]

Le domande su VB nell'apposito forum.

P.S.: leggi il Regolamento per conoscere tutte le norme da seguire per un corretto utilizzo del forum.

Sposto la discussione.

Ciao!

[giacomocinzia]

la riga di codice:

EANDaCercare = InputBox$("Immettere il codice da ricercare:","Ricerca nel DataBase")

prova a sostituirla inserendo la funzione Trim():

EANDaCercare = Trim(InputBox$("Immettere il codice da ricercare:","Ricerca nel DataBase") 
 )

fammi sapere
Ciao

[Ruben Elmo]

Niente... purtroppo non va ugualmente...

Comunque ho zippato il programma... se vuoi darci uno sguardo:

http://starinthe.altervista.org/Gestionale.zip

[giacomocinzia]

Ruben purtroppo non ho vb6 installato, uso vb.net.
cmq vedo come posso aiutarti
ciao

[giacomocinzia]

rimango cmq dell'avviso che sia un errore nella trattazione della stringa, ti consiglio di inserire qua e la message box come questo per vedere se prima o dopo c'è un carattere blank:

MSGBOX("-" + EANDaCercare +"-")

con i caratteri delimitatori di stringa a volte si risolve il tutto.
ciao

[Ruben Elmo]

Ho provrato il tuo consiglio...

L'errore sembra essere nella linea:
Data1.Recordset.Seek "=", EANDaCercare

Perchè il messaggio di errore esce subito prima del "MsgBox ("-" + EANDaCercare + "-")"

[Ruben Elmo]

Niente...
Non riesco a risolvere il problema

[oregon]

L'indice che hai usato non comprende soltanto il campo CodiceEan ma anche il CodiceMagazzino.

Se devi cercare soltanto secondo il campo CodiceEan devi modificare l'indice che hai impostato nel db.

In ogni caso, ti consiglio di usare le frasi SQL e non la Seek.

[Ruben Elmo]

E non c'è verso di effettuare la ricerca senza toccare il DB?

(Se possibile potresti farmi degli esempi in SQL?)

Grazie