Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 18
  1. #1

    DataBase Access e Problema di ricerca

    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
    Mantisworks.net - Soluzioni dal web per il web!
    SEO, SEM, Software, Siti internet, Grafica e Multimedia

  2. #2
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,477

    Moderazione

    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!
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  3. #3
    la riga di codice:
    codice:
    EANDaCercare = InputBox$("Immettere il codice da ricercare:","Ricerca nel DataBase")
    prova a sostituirla inserendo la funzione Trim():
    codice:
    EANDaCercare = Trim(InputBox$("Immettere il codice da ricercare:","Ricerca nel DataBase") 
     )
    fammi sapere
    Ciao
    A Lucca si mangia,si beve e si cucca.

  4. #4
    Niente... purtroppo non va ugualmente...

    Comunque ho zippato il programma... se vuoi darci uno sguardo:
    codice:
    http://starinthe.altervista.org/Gestionale.zip
    Mantisworks.net - Soluzioni dal web per il web!
    SEO, SEM, Software, Siti internet, Grafica e Multimedia

  5. #5
    Ruben purtroppo non ho vb6 installato, uso vb.net.
    cmq vedo come posso aiutarti
    ciao
    A Lucca si mangia,si beve e si cucca.

  6. #6
    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:

    codice:
    MSGBOX("-" + EANDaCercare +"-")
    con i caratteri delimitatori di stringa a volte si risolve il tutto.
    ciao
    A Lucca si mangia,si beve e si cucca.

  7. #7
    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 + "-")"
    Mantisworks.net - Soluzioni dal web per il web!
    SEO, SEM, Software, Siti internet, Grafica e Multimedia

  8. #8
    Niente...
    Non riesco a risolvere il problema
    Mantisworks.net - Soluzioni dal web per il web!
    SEO, SEM, Software, Siti internet, Grafica e Multimedia

  9. #9
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,481
    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.

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

    (Se possibile potresti farmi degli esempi in SQL?)

    Grazie
    Mantisworks.net - Soluzioni dal web per il web!
    SEO, SEM, Software, Siti internet, Grafica e Multimedia

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.