PDA

View Full Version : Formulare query in codice con Access


danieloide
19-10-2004, 20:51
Scusate, ma avrei bisogno di formulare una query in esecuzione, vi spiego meglio: dopo l'inserimento di una stringa in una combo la funzione dovrebbe formulare una query e assegnare i risultati(stringhe) in un'altra combo. Potreste gentilmente rispondermi con un pò di codice? Grazie.

danieloide
20-10-2004, 22:51
VI PREGO DATEMI UN AIUTO CE LA STO METTENDO TUTTA MA NON CI RIESCO:muro: :muro: :muro:

Private Sub RICHIESTA_ASSISTENZA_AfterUpdate()

Dim lo_RekSet As ADODB.Recordset
Dim lv_Select As String
lv_Select = RICHIESTA_ASSISTENZA.Text
Set lo_RekSet = New ADODB.Recordset
lo_RekSet.CursorLocation = adUseClient
lv_Select = "SELECT [ASSISTENZA_FORNITA] FROM [GESTIONE COMUNI]" & _
" WHERE [RICHIESTA_ASSISTENZA] = '" & lv_Select & "'"
lo_RekSet.Open lv_Select, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
lo_RekSet.MoveFirst
lv_Select = lo_RekSet.Fields(0).Value
lo_RekSet.Close

End Sub