[VB] cercare in tutte le tabelle

[Toeke]

allora seleziona la riga dove lanci la tua sqlquery

schiaccia F9 e la riga si dovrebbe selezionare di rosso

Fai partire il tuo programma.

Il programma deve fermarsi nella riga che tu hai selezionato
Quando si ferma nella finestra immediate lancia questa stringa
?sqlstring
IL risultato postamelo sul forum


Imapra a debbaggare cosi riesci a prevenire i problemi che potrebbero esservi nel tuo applicativo

[Toeke]

Dim sqlstring As String
Dim db1 As Database
Dim rs1 As Recordset
sqlstring = "select * from tabella1, tabella2 where codice='" & codice & "' AND tipo='" & List1 & "'"
Set db1 = OpenDatabase(App.Path & "\database.mdb", False, False)
Set rs1 = db1.OpenRecordset(sqlstring)
Set Data2.Recordset = rs1
If Not Data2.Recordset.EOF Then
Do While Not Data2.Recordset.EOF
cod = (Data2.Recordset.Fields("codice"))

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

rs1.Close

Se questo e' il tuo codice la string dove premere l'F9 e' quella segnata in grassetto

[Francesco_76]

Grazie per la lezione :quipy: (ho imparato un'altra cosa )

select * from cat1, cat2 where cat1.codice='45r12' OR cat2.codice ='45r12' and cat1.tipo='APPARTAMENTO' OR cat2.tipo='APPARTAMENTO'

[Francesco_76]

be comunque io lo metto online se qualcuno vuole dagli uno sguardo....

pesa solo 9.19 kb download

intanto continuo a provare.....

[Toeke]

Rieccomi
Scusa ma ho avuto parecchio da fare in questo tempo.
Dunque .... dove eravamo? ....
Ah si alla stringa di sql
Rileggendo il 3D non ho capito che tipo di dato devi andare a pescare nel DB Potresti spiegarmelo meglio?

[Francesco_76]

devo fare una query su più tabelle (in questo caso 2) cercando nel campo "codice" e nel campo "tipo"

questi due campi ovviamente sono in tutte le tabelle

quando trova il risultato mi strampa a video il campo "tipo"

[allejo]

Ciao provi a fare così

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

E fammi sapere

[allejo]

Non mi ricordo bene se è così
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 & "'"


oppure

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

Comunque fammi sapere

:metallica

[Francesco_76]

scusate per il ritardo ma la telecom...... .


ciao allejo

mi da in entrambi i casi "necessario oggetto"

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='" & List1 & "'" Or cat2.tipo = " & List1 & """

[allejo]

Mandami proprio il risultato della sqlstring.
Strano che non funziona