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