Newsgroup: it.comp.lang.visual-basic
Titolo: Problema ADO in VB

Ho un problema, spero di riuscire a spiegarlo al meglio.
Dunque io, ho un database Access con una tabella "DBASE CONFIGURAZIONE" e
una query di selezione associata ad essa che, tramite l'inserimento di 3
parametri mi tira fuori una serie di records. La query lanciata da Access
funziona bene, mentre i problemi ci sono quando la stessa query la richiamo
in VB.
Se uso quella query in VB non visualizza un bel niente mentre se dalla query
tolgo & "*" allora mi visualizza il record ricavato dai 3 parametri.
Il problema č che & "*" mi serve dal momento che voglio visualizzare anche i
records ricavati dall'inserimento di 1 solo parametro.
Magari č una cosa banale ma non riesco veramente a venirne fuori.
Di seguito riporto la sintassi SQL della query e piů in basso il pezzo di
codice in VB.
Spero che qualcuno mi sappia dare una mano!
Grazie in anticipo e Buona Giornata
Fabio
--------------------------------------
QSelezioneRicerca
SELECT [DBASE CONFIGURAZIONE].*
FROM [DBASE CONFIGURAZIONE]
WHERE ((([DBASE CONFIGURAZIONE].DENOMINAZIONE) Like [denom] & '*' Or ([DBASE
CONFIGURAZIONE].DENOMINAZIONE) Is Null) AND (([DBASE
CONFIGURAZIONE].[IMPIANTO DI APPARTENENZA]) Like [impianto] & '*' Or ([DBASE
CONFIGURAZIONE].[IMPIANTO DI APPARTENENZA]) Is Null) AND (([DBASE
CONFIGURAZIONE].[DESCRIZIONE LOCALE]) Like [descr] & '*' Or ([DBASE
CONFIGURAZIONE].[DESCRIZIONE LOCALE]) Is Null));
--------------------------------------
Private Sub CreaRecordset()
If (cnGriglia.State) = 0 Then
    cnGriglia.Open
End If
Set cmd_db = New ADODB.Command
cmd_db.ActiveConnection = cnGriglia
cmd_db.CommandText = "QSelezioneRicerca"
cmd_db.CommandType = adCmdTable
Set prm_db = cmd_db.CreateParameter("denom", adBSTR, adParamInput, ,
cmb_denom)
cmd_db.Parameters.Append prm_db
Set prm_db = cmd_db.CreateParameter("impianto", adBSTR, adParamInput, ,
cmb_impianto)
cmd_db.Parameters.Append prm_db
Set prm_db = cmd_db.CreateParameter("descr", adBSTR, adParamInput, ,
cmb_descr)
cmd_db.Parameters.Append prm_db
If (rsGriglia.State) = 0 Then
    rsGriglia.Open cmd_db, , adOpenForwardOnly, adLockReadOnly
    Set hfgConfig.DataSource = rsGriglia
End If
Set cmd_db = Nothing
Set prm_db = Nothing
End Sub
-----------------------------------------------------
--------------------------------
Inviato via 
http://usenet.libero.it

 records ricavati dall'inserimento di 1 solo parametro.
Prova, nelle Like, a cambiare * in %

> Prova, nelle Like, a cambiare * in %
.... e andarti a leggere le differenze sintattiche tra
l'sql di access e l'sql standard ansi 92 che invece
utilizza ado.
Ciao
Andrea


Già provato ma non funziona.
Credo sia più un problema di apertura/lettura tabella e passaggio parametri
in VB.
La query in sql access dì per sè funziona bene.
Grazie comunque.
Fabio


 ha
scritto:

Sapresti indicarmi qualche fonte o sito internet dove poterle leggere?
Tu pensi che possa dipendere da quello? Però allora non mi spiego perchè la
query lanciata da access funziona correttamente...
Grazie comunque.
Fabio


 query lanciata da access funziona correttamente...
Perchč, forse, Access non usa ADO (sic!)


No, su quello sono abbastanza sicuro.
Te lo dico perchč ho un programmino che li usa, purtroppo perň non con una
query di selezione come serve a me...sigh!
