Newsgroup: it.comp.appl.access
Titolo: Passaggio di valori a Query Parametriche

Qualcuno di voi sa se è possibile passare tramite codice un valore ad
una Query Parametrica (che quindi richiederebbe l'immissione del
valore stesso tramite tastiera)?
Grazie
Gilmour
Icq: 32405502
Se le persone che parlano male di me, sapessero quello che dico io di loro, parlerebbero peggio.
Jim Morrison
Clicca sul link per contattarmi direttamente da icq
http://msg.mirabilis.com/scripts/contact.dll?msgto=32405502

 valore stesso tramite tastiera)?
)
    Dim Dbs As Database
    Dim Qdf As QueryDef
    Dim Rst As Recordset
    Set Dbs = CurrentDb 'OpenDatabase("c:\PERCORSO\MIODATABASE .mdb")
    Set Qdf = Dbs.QueryDefs("CorFinan") 'nome della stored procedura
    Qdf.Parameters("inizio") = Me![IDDataCassa] '   il parametro "inizio"
viene valorizzato
    Set Rst = Qdf.OpenRecordset 'viene creato il recordset
    Rst.MoveFirst ' si porta sul primo record
    Do Until Rst.EOF    ' ESEGUE IL LOOP PER L'INTERO RECORDSET
    '    FAI QUELLO CHE TI PARE
        Rst.MoveNext    ' SI SPOSTA AL PROSSIMO RECORD
    Loop
    Rst.Close
    Dbs.Close
    Set Dbs = Nothing
dovrebbe funzionare
ciao

    Set Qdf = Dbs.QueryDefs("CorFinan") 'nome della stored procedura
Per stored procedura cosa intendi? il nome della query?
perdona l'ignoranza...ma sto ancora alle prime armi :)
Gil
--


 Per stored procedura cosa intendi? il nome della query?
si

 > >    Dim Qdf As QueryDef
Fin'ora per aprire database e query (porbabilmente non è una cosa
molto
elegante, ma li apro alla stessa maniera)
scrivevo:
Dim s_ordini As ADODB.Recordset
Dim capi As ADODB.Recordset
Dim magazzino As ADODB.Recordset
Set s_ordini = New ADODB.Recordset
Set capi = New ADODB.Recordset
Set magazzino = New ADODB.Recordset
s_ordini.Open "Query_Sotto_ordini", CurrentProject.Connection
capi.Open "Query_Elenco_capi", CurrentProject.Connection,
adOpenDynamic,
adLockOptimistic
magazzino.Open "Magazzino", CurrentProject.Connection, adOpenDynamic,
adLockOptimistic
C'è modo di modificare questo sistema per applicarlo alle query
parametrizzate?
thanks
--


 > > >    Dim Qdf As QueryDef
probabilmente ti da errore perchè usi  access2000 che per default utilizza
ado
il codice postato e per dao (che è più vecchio)
se vuoi usare il codice postato (ma è meglio ado) metti tra i riferimenti
Microsoft Dao 3.6 objet library
(apri un modulo in struttura e strumenti riferimenti)
altrimenti prova a modificarlo non dovrebbe essere complesso
francamento ora non posso aiutarti ci sentiamo più tardi
ciao


ciao
Diciamo che in parte ho risolto con ADO, tuttavia mi da errore ogni
qual volta tento di modificare il valore di un campo dei recordset
sai dirmi dove sbaglio?
    Dim conn As ADODB.Connection
    Dim cmd1 As ADODB.Command
    Dim cmd2 As ADODB.Command
    Dim s_ordini As ADODB.Recordset
    Dim capi As ADODB.Recordset
    Dim prm1 As ADODB.Parameter
    Dim prm2 As ADODB.Parameter
 
    Set conn = CurrentProject.Connection
 
    Set cmd1 = New ADODB.Command
    cmd1.ActiveConnection = conn
    cmd1.CommandText = "Query_sotto_ordini_parametrica"
    cmd1.CommandType = adCmdStoredProc
 
    Set cmd2 = New ADODB.Command
    cmd2.ActiveConnection = conn
    cmd2.CommandText = "Query_elenco_capi_parametrica"
    cmd2.CommandType = adCmdStoredProc
 
    Set prm1 = New ADODB.Parameter
    prm1.Name = "Ordine"
    prm1.Value = Me.Id_ordine
    prm1.Type = adInteger
    prm1.Direction = adParamInput
 
    Set prm2 = New ADODB.Parameter
    prm2.Name = "Ordine"
    prm2.Value = Me.Id_ordine
    prm2.Type = adInteger
    prm2.Direction = adParamInput
 
    cmd1.Parameters.Append prm1
    cmd2.Parameters.Append prm2
 
    Set s_ordini = cmd1.Execute
    Set capi = cmd2.Execute
scusa se č un po lunghetto 


 si
Beh, considerare una query parametrica alla stessa stregua di una Stored
Procedure, mi sembra azzardato.
Una Stored Procedure è un insieme di algoritmi, anche piuttosto complessi
che, ovviamente, usano il linguaggio SQL.
Una query parametrica (che in SQL sarebbe una vista con parametri), è una
semplice SELECT (o INSERT, o DELETE o altro), con dei parametri definiti.
Poi la procedura in VBA per chiamare una query parametrica o una stored
procedure può anche essere la stessa, ma questo non significa che i due
oggetti siano la stessa cosa.
Insomma, volevo solo precisare...
:-)

---------------------------------------------------------------------------
---------<
-- 
Posted from [212.141.54.103] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Problema?????
Più tardi gli do un'occhiata... ma non so se potrò esserti di
aiuto....
