[VB6] Ricerca da un database con InputBox

[sabaku76]

So che il forum è pieno di roba simile, ma girando e rigirando non ho fatto altro che confondermi le idee.

Sto interrogando un database di access 2000, cercando di prelevare i dati da una tabella secondo il testo digitato in un InputBox.
Ho inserito un ADODC a cui ho associato la tabella del database. Il controllo funziona correttamente, cioè scorre i record della tabella.
Quando, però usa la ricerca con l'InputBox viene fuori l'errore:
errore di sintassi nella proposizione FROM

Il codice associato alla ricerca è:

Private Sub RicercaTecnico_Click()

Dim DaCercare As String
Dim Selezione As String

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

AdodcTecnico.RecordSource = Selezione
AdodcTecnico.Refresh

End Sub

Da notare che togliendo l'ultima stringa - AdodcTecnico.Refresh - l'errore non viene fuori, ma l'interrogazione non restituisce il valore cercato...cioè non succede nulla!

[newbie]

Originariamente inviato da sabaku76
So che il forum è pieno di roba simile, ma girando e rigirando non ho fatto altro che confondermi le idee.

Sto interrogando un database di access 2000, cercando di prelevare i dati da una tabella secondo il testo digitato in un InputBox.
Ho inserito un ADODC a cui ho associato la tabella del database. Il controllo funziona correttamente, cioè scorre i record della tabella.
Quando, però usa la ricerca con l'InputBox viene fuori l'errore:
errore di sintassi nella proposizione FROM

Il codice associato alla ricerca è:

Private Sub RicercaTecnico_Click()

Dim DaCercare As String
Dim Selezione As String

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

AdodcTecnico.RecordSource = Selezione
AdodcTecnico.Refresh

End Sub

Da notare che togliendo l'ultima stringa - AdodcTecnico.Refresh - l'errore non viene fuori, ma l'interrogazione non restituisce il valore cercato...cioè non succede nulla!

Sembra tutto a posto, a parte il fatto che, da quanto ho capito, la LIKE dovrebbe avere in input la stringa "DaCercare" invece che quella "nomecerca", che non vedo nel pezzo di codice che hai riportato.

[sabaku76]

innanzitutto grazie per la disponibilità.
ho corretto il nome della variabile che mi hai indicato.
L'errore però non è scomparso...dettaglio:

Errore di dintassi nella proposizione FROM

poi

errore di Run-Time '-2147217900 (80040e14)'
metodo Refresh 'dell'oggetto IAdodc' non riuscito.

[sabaku76]

parte del problema è stato risolto con il seguente codice:

Private Sub RicercaTecnico_Click()

Dim DaCercare As String
Dim Selezione As String

Dim StringaConn As String

' Provider=Microsoft.Jet.OLEDB.4.0;Data Source=

StringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\Do cuments and Settings\HP_Proprietario\Documenti\Gestionale Gdo\GdoDB.mdb"
AdodcTecnico.ConnectionString = StringaConn

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

AdodcTecnico.RecordSource = Selezione
AdodcTecnico.Refresh
End Sub

ora però si genera l'errore 'ISAM Installabile'

Potete aiutarmi?

[mgmg]

Puoi provare ad utilizzare * anzichè % in questo modo:

Selezione = "Select * from Tecnico where nome like '" & nomecerca & "*'"

oppure:

Selezione = "Select * from Tecnico where nome LIKE '%" & nomecerca & "%'

Io controllerei anche se nomecerca è <> ""

Ciao

[sabaku76]

grazie per l'aiuto,
ma mi continua a generare l'errore ISAM installabile...

[mgmg]

Sei aggiornato agli ultimi service pack? :
Jet 4.0 sp 8

http://support.microsoft.com/default...d=kb;it;239114


mdac 2.8 sp 1, se hai windows xp sp2 dovrebbe già essere aggiornata.

http://www.microsoft.com/downloads/d...displaylang=en

[sabaku76]

purtroppo gli aggiornamenti li ho sono già.

[mgmg]

Nei riferimenti del progetto hai referenziato:
Microsoft Activex Data Objects 2.8 Library
Microsoft Data Binding Collection Vb 6.0 (SP4)

Ciao

[sabaku76]

si sono referenziati.
grazie per la tua pazienza.