izmenjeno 1 put, poslednji put Blue82 18.04.2010. u 19:44
Izmene poruke
- Blue8218.04.2010. u 19:44zapis iz teksta poruke
Code:
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
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.
Code:
textbox1.text=rsRecordset!Konto
textbox1.text=rsRecordset!Konto