Public Class Form1
Private WithEvents Cn As ADODB.Connection
Private WithEvents rsRecordSet As ADODB.Recordset
Private WithEvents rstempcode As ADODB.Recordset
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim br_konta As String
Dim rsRecordSet As New ADODB.Recordset
rsRecordSet.CursorLocation = ADODB.CursorLocationEnum.adUseClient
rsRecordSet.CursorType = ADODB.CursorTypeEnum.adOpenStatic
rsRecordSet.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
rsRecordSet.Open("SELECT * FROM Tabela where Konto LIKE '1%'", Cn)
MsgBox(rsRecordSet.RecordCount)
DataGridView1.DataSource = rsRecordSet
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cn = New ADODB.Connection
Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\Documents and Settings\home\Desktop\Baza za zakljucni\Baza za zakljucni.mdb")
End Sub
End Class
EDIT
A ocigledno mi ne radi ni jednostavno citanje upita, npr.
textbox1.text=rsRecordset!Konto
[Ovu poruku je menjao Blue82 dana 18.04.2010. u 19:44 GMT+1]