Code:
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports ADODB
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Create a connection string
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\af.mdb"
Dim sql As String = "SELECT * From TabelaProdajaPIO"
' Create a Connection object and open it
Dim conn As Connection = New Connection
Dim connMode As Integer = ConnectModeEnum.adModeReadWrite
conn.CursorLocation = CursorLocationEnum.adUseServer
conn.Open(ConnectionString, "", "")
'Dim recAffected As Object
Dim cmdType As Integer = CommandTypeEnum.adCmdUnknown
Dim rs As Recordset = conn.Execute(sql)
' Create dataset and data adpater objects
Dim ds As DataSet = New DataSet("Recordset")
rs = New Recordset
rs.Open(sql, conn, CursorTypeEnum.adOpenStatic)
Dim da As OleDbDataAdapter = New OleDbDataAdapter
' Call data adapter's Fill method to fill data from ADO
' Recordset to the dataset
MsgBox(da.Fill(ds, rs, "SifarnikDrustva"))
' Now use dataset
DataGrid1.DataSource = ds.DefaultViewManager
End Sub
End Class
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports ADODB
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Create a connection string
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\af.mdb"
Dim sql As String = "SELECT * From TabelaProdajaPIO"
' Create a Connection object and open it
Dim conn As Connection = New Connection
Dim connMode As Integer = ConnectModeEnum.adModeReadWrite
conn.CursorLocation = CursorLocationEnum.adUseServer
conn.Open(ConnectionString, "", "")
'Dim recAffected As Object
Dim cmdType As Integer = CommandTypeEnum.adCmdUnknown
Dim rs As Recordset = conn.Execute(sql)
' Create dataset and data adpater objects
Dim ds As DataSet = New DataSet("Recordset")
rs = New Recordset
rs.Open(sql, conn, CursorTypeEnum.adOpenStatic)
Dim da As OleDbDataAdapter = New OleDbDataAdapter
' Call data adapter's Fill method to fill data from ADO
' Recordset to the dataset
MsgBox(da.Fill(ds, rs, "SifarnikDrustva"))
' Now use dataset
DataGrid1.DataSource = ds.DefaultViewManager
End Sub
End Class
i sve lepo radi. Ovaj red MsgBox(da.Fill(ds, rs, "SifarnikDrustva")) lepo kad se učitava dataadapter ispiše se message boxu 33 znači da je učitalo 33 rekordsa što i treba da bude. Ali poslednji red DataGrid1.DataSource = ds.DefaultViewManager neispisuje to iz data adaptera u datagrid. On ostaje skroz prazan. Pomagajte ljudi hitno je tenx