[es] - Datagrid u vb.net hitno mi treba pomoć

miskec
Beograd, Srbija

Član broj: 16553
Poruke: 155
*.adsl-1.sezampro.yu.

ICQ: 311547362
Sajt: www.autokupovina.com

Profil

Datagrid u vb.net hitno mi treba pomoć

^{15.03.2007. u 17:04 - pre 208 meseci}

imam sledeći code

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

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

Arhitektonski biro kula-projekt.co.rs
Kalkulator kursa kursnalista.org

Odgovor na temu