[VB] cercare in tutte le tabelle

[allejo]

sqlstring = "SELECT * FROM cat1 INNER JOIN cat2 ON cat1.ID = cat2.ID where cat1.codice='" & codice & "' OR cat2.codice ='" & codice & "' AND cat1.tipo='" & List1 & "' Or cat2.tipo = '" & List1 & "' "

Prova con questa query

[Francesco_76]

Grande!!! :quipy:

tutto risolto

grazie mille




posto il codice per intero se serve a qualcuno (almeno visto il disturbo che ho creato )

Dim sqlstring As String
Dim db As Database
Dim rs As Recordset

sqlstring = "SELECT * FROM cat1 INNER JOIN cat2 ON cat1.ID = cat2.ID where cat1.codice='" & codice & "' OR cat2.codice ='" & codice & "' AND cat1.tipo='" & cmbtipo & "' Or cat2.tipo = '" & cmbtipo & "' "


Set db = OpenDatabase(App.Path & "\database.mdb", False, False)
Set rs = db.OpenRecordset(sqlstring)
Set Data.Recordset = rs
If Not Data.Recordset.EOF Then
Do While Not Data.Recordset.EOF

List1.AddItem (Data.Recordset.Fields("cat1.citta"))
List1.AddItem (Data.Recordset.Fields("cat2.citta"))

Data.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
End If

rs.Close

:mavieni:

[allejo]

Prego
Finalmente funziona

:metallica

Ciao