[VB6] Ricerca da un database con InputBox

[mgmg]

Se ne hai voglia prova a cambiare la connectionstring in questo modo:

NomeDb = "C:\Documents and Settings\HP_Proprietario\Documenti\Gestionale Gdo\GdoDB.mdb" 

AdodcTecnico.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDb & ";Mode=ReadWrite;Persist Security Info=False"

Se continua a darti errore prova a cancellare adodc e ricrearlo.

Ciao

[sabaku76]

grazie, ora provo

[sabaku76]

Ora non ho più l'errore isam ma un altro:
errore nella proposizione from.

il codice per intero è il seguente:

Private Sub RicercaTecnico_Click()

Dim DaCercare As String
Dim Selezione As String
Dim NomeDb As String


NomeDb = "C:\Documents and Settings\HP_Proprietario\Documenti\Gestionale Gdo\GdoDB.mdb"

AdodcTecnico.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDb & ";Mode=ReadWrite;Persist Security Info=False"

DaCercare = InputBox("inserisci nome")
Selezione = "Select * from Tecnico where nome like '" & DaCercare & "%'"

AdodcTecnico.RecordSource = Selezione
AdodcTecnico.Refresh
End Sub


Grazie.

[mgmg]

Se il metodo refresh ti dà errore significa che l'istruzione è sbagliata: Tecnico è il nome della tabella? nome è un campo della tabella Tecnico?

AdodcTecnico.RecordSource = "Select * from Tecnico where nome LIKE '" & DaCercare & "%'"

Io ho provato l'istruzione su una mia tabella (ovviamente) e funziona.
Se continua a darti errore prova a ricompattare il data base, a volte access dà questi problemi.

Ciao, in bocca al lupo!!!