Public Sub cmdConnect_Click()
Dim res As ResultSet
Database1.ConnectMDB("C:\Clients.mdb")
Dim Rows As Integer = 0
JBGrid1.Cols = 3
JBGrid1.Header(0) = "Name"
JBGrid1.Header(1) = "Address"
JBGrid1.Header(2) = "City"
res = Database1.ExecuteStatement("SELECT * FROM Clients")
Do While res.next
JBGrid1.TextMatrix(res.getRow() - 1, 0) = res.getString("cName")
JBGrid1.TextMatrix(res.getRow() - 1, 1) = res.getString("cAddress")
JBGrid1.TextMatrix(res.getRow() - 1, 2) = res.getString("cCity")
Rows = Rows + 1
JBGrid1.Rows = Rows
Loop
res.close
End Sub
Always getting some errors...
Best regards,
Viktor
I think it will be a good replacement for VB6 after a little improvements and minor bug fixes...
This post has been edited 1 times, last edit by "beic" (Feb 22nd 2010, 8:09pm)