Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Problemi sa SQl upitom

[es] :: Visual Basic 6 :: Problemi sa SQl upitom

[ Pregleda: 1917 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.adsl.eunet.rs.



Profil

icon Problemi sa SQl upitom15.06.2010. u 16:24 - pre 167 meseci
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!!
 
Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294



+17 Profil

icon Re: Problemi sa SQl upitom17.06.2010. u 12:49 - pre 167 meseci
Aj blize pojasni sta zelis da ti kood uradi i sta ti je konkretno problem, pa ce ti vec neko naci resenje za to....
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.adsl.eunet.rs.



Profil

icon Re: Problemi sa SQl upitom19.06.2010. u 23:12 - pre 167 meseci
Problem je rešen :) hvala na interesovanju.
 
Odgovor na temu

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.



+2 Profil

icon Re: Problemi sa SQl upitom23.06.2010. u 22:13 - pre 167 meseci
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...
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.adsl.eunet.rs.



Profil

icon Re: Problemi sa SQl upitom27.06.2010. u 18:22 - pre 167 meseci
NIje to bilo u pitanju, ovaj kod je trebao da izbriše duplikate i ja sam bio zaboravio na sql funkciju DISTINCT.
 
Odgovor na temu

[es] :: Visual Basic 6 :: Problemi sa SQl upitom

[ Pregleda: 1917 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.