Problemi sa SQl upitom

Odgovori Nova tema

4 odgovora
2.510 pregleda

Problemi sa SQl upitom 15.06.2010. u 16:24 · pre 199 meseci #1

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!!

Re: Problemi sa SQl upitom 17.06.2010. u 12:49 · pre 199 meseci #2

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

Re: Problemi sa SQl upitom 19.06.2010. u 23:12 · pre 198 meseci #3

Problem je rešen :) hvala na interesovanju.

Re: Problemi sa SQl upitom 23.06.2010. u 22:13 · pre 198 meseci #4

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...

Re: Problemi sa SQl upitom 27.06.2010. u 18:22 · pre 198 meseci #5

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Srodne teme