[VB6] Query SQL

[parad0x]

Ciao ragazzi, vi scrivo perchè è un bel po' di tempo che non uso il vb e la mia memoria non è di molto aiuto..
Devo interrogare un db di access con una query di selezione, utilizzando però uno script in vb, perchè in base al risultato della query dovrò stampare un diverso report di access.

Query di access:

SELECT Desc_mansioni.modulo_addestramento
FROM Desc_mansioni INNER JOIN (Mansioni INNER JOIN Dipendenti ON Mansioni.iddipendente = Dipendenti.Iddipendente) ON Desc_mansioni.idmansione = Mansioni.idmansione
WHERE (((Mansioni.iddipendente)=[Forms]![NuovoDIP_info]![Iddipendente]))
ORDER BY Mansioni.idmansione;

Successivamente in base al risultato della select dovrò stampare 3 diversi report di access..e qui presumo basti una IF..

Sono 2 giorni che cerco in rete ma ogni script che ha dato come risultati solo dei gran errori help!

[gibra]

Nella tua query stai usando al posto del valore, un oggetto di MSAccess il che ovviamente avrebbe (forse) un senso in ambiente MSAccess, ma di certo NON in VB6.

[Forms]![NuovoDIP_info]![Iddipendente] si riferisce all'ambiente MSAccess, per se usata in un enunciato SQL al di fuori di questo ambiente non ha alcun senso.

Sostituisci l'oggetto di MSAccess con il valore corrispondente che esso contiene, cioè invece di usare:
WHERE (((Mansioni.iddipendente)=[Forms]![NuovoDIP_info]![Iddipendente]))

devi usare

Dim lngIDDipendente As Long ' visto il nome che ha, credo sia un LONG
lngIDDipendente = [Forms]![NuovoDIP_info]![Iddipendente]

SELECT .........................
WHERE Mansioni.iddipendente = " & lngIDDipendente

Ammesso che il tuo enunciato sia corretto, dovrebbe darti il risultato corretto.

[parad0x]

non è che potresti scrivermi il codice completo? perchè non so che comando usare per eseguire il codice sql >_>

Private Sub Comando40_Click()
Dim lngIDDipendente As Long
Dim sql As String

lngIDDipendente = [Forms]![NuovoDIP_info]![Iddipendente]
sql = "SELECT Desc_mansioni.modul_addestramento FROM Desc_mansioni INNER JOIN (Mansioni INNER JOIN Dipendenti ON Mansioni.iddipendente = Dipendenti.Iddipendente) ON Desc_mansioni.idmansione = Mansioni.idmansione WHERE Mansioni.iddipendente = " & lngIDDipendente
RunSQL = sql
MsgBox sql
End Sub