Problemi sa SQl upitom

[ Dacex @ 15.06.2010. 16:24 ] @

Pozdrav kolege! :)

Radim jedan program sa bazom podataka i imam jedan deo gde proveravam 2 tabele da li se nalaze 2 ista polja. Napisao sam ovaj kod:

Code:
Grid1.Rows = 1
rs1.MoveFirst

For X = 1 To rs1.RecordCount
rs2.Open "SELECT * FROM tbl1 WHERE (Objekat='" & objekat.Text & "') AND (RedBR='" & rs1.Fields("ID").Value & "')", FrmLogin.Konekcija, adOpenDynamic, adLockOptimistic
If rs2.EOF = False Then

    Grid1.Rows = Grid1.Rows + 1
    Grid1.TextMatrix(rs2.AbsolutePosition, 0) = rs2!Naziv & vbNullString
    Grid1.TextMatrix(rs2.AbsolutePosition, 1) = rs2!Sifra_kupca & vbNullString
    Grid1.TextMatrix(rs2.AbsolutePosition, 2) = rs2!Adresa & vbNullString


    rs1.MoveNext
Else
rs1.MoveNext

End If

rs2.Close
Next X

Grid1.AllowBigSelection = False
Grid1.SelectionMode = flexSelectionByRow

vb mi označi deo kod gde otvaram rs2 i kaže invalid cryteria. Možda je problem što je kolona RedBR autonumber?

Molim vas recite mi sta da radim.

Hvala unapred!!

[ dzigilibonglica @ 17.06.2010. 12:49 ] @

Aj blize pojasni sta zelis da ti kood uradi i sta ti je konkretno problem, pa ce ti vec neko naci resenje za to....

[ Dacex @ 19.06.2010. 23:12 ] @

Problem je rešen :) hvala na interesovanju.

[ vuchko.vuchko @ 23.06.2010. 22:13 ] @

Mislim da mu je neka sitnica pravila problem , posto vidim da ovde :

Code:
rs2.Open "SELECT * FROM tbl1 WHERE (Objekat='" & objekat.Text & "') AND (RedBR='" & rs1.Fields("ID").Value & "')", FrmLogin.Konekcija, adOpenDynamic, adLockOptimistic

nedostaje tacka zarez na kraju sql uslova , dakle

Code:
rs2.Open "SELECT * FROM tbl1 WHERE (Objekat='" & objekat.Text & "') AND (RedBR='" & rs1.Fields("ID").Value & "');", FrmLogin.Konekcija, adOpenDynamic, adLockOptimistic

Ili tako nesto...

[ Dacex @ 27.06.2010. 18:22 ] @

NIje to bilo u pitanju, ovaj kod je trebao da izbriše duplikate i ja sam bio zaboravio na sql funkciju DISTINCT.