[VB.NET] riempire un datagrid

[g.scardigno]

Come si riesce a riempire un datagrid con una select...


Ho fatto questo...
ma non va dove sbaglio????

Imports System.Windows.Forms

Public Class Form1
    Inherits System.Windows.Forms.Form
    Public cn As OleDbConnection
#Region " Codice generato da Progettazione Windows Form "

    Public Sub New()
        MyBase.New()

        'Chiamata richiesta da Progettazione Windows Form.
        InitializeComponent()

        'Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent()

    End Sub

    'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Richiesto da Progettazione Windows Form
    Private components As System.ComponentModel.IContainer

    'NOTA: la procedura che segue è richiesta da Progettazione Windows Form.
    'Può essere modificata in Progettazione Windows Form.  
    'Non modificarla nell'editor del codice.
    Friend WithEvents grdDataGrid As System.Windows.Forms.DataGrid
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.grdDataGrid = New System.Windows.Forms.DataGrid
        Me.Button1 = New System.Windows.Forms.Button
        CType(Me.grdDataGrid, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'grdDataGrid
        '
        Me.grdDataGrid.DataMember = ""
        Me.grdDataGrid.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.grdDataGrid.Location = New System.Drawing.Point(32, 104)
        Me.grdDataGrid.Name = "grdDataGrid"
        Me.grdDataGrid.Size = New System.Drawing.Size(632, 136)
        Me.grdDataGrid.TabIndex = 0
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(192, 312)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(80, 40)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "Button1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(720, 453)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.grdDataGrid)
        Me.Name = "Form1"
        Me.Text = "Form1"
        CType(Me.grdDataGrid, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                        & "Data Source="
    Public Sub Connetti(ByVal nomedb As String)
        cn = New OleDbConnection(ConnString & nomedb)     'Dichiaro la nuova connessione
        If cn.State = ConnectionState.Open Then
            cn.Close()
        End If
        cn.Open()
        'MessageBox.Show("Connessione al db avvenuta correttamente")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Connetti("F:\Scardigno1_4_2003\Gestione Verifiche\GestioneVerifiche\GestVer_vero.mdb")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sql1 As String
        Dim Provincia As String

        Provincia = "ba"
        sql1 = "SELECT * from impianti"
        Dim cmd As New OleDbCommand(sql1, cn)
        Dim dr As OleDbDataReader = cmd.ExecuteReader()
        Me.grdDataGrid.DataSource = dr.Read()??????????
    End Sub
End Class

[g.scardigno]

scusatemi in VB.NET chiedo l'esempio.....

[Sypher]

Io userei un DataSet,il DataAdapter per riempirlo col metodo fill, poi al DataSource del DataGrid gli passi il Dataset!

[g.scardigno]

un esempio?????



E grazie

[Sypher]

Lo stavo cercando!

Dim DataSet1 as new DataSet
Dim mySqlDataAdapter As OleDbDataAdapter
mySqlDataAdapter = New OleDbDataAdapter("la tua select", latuaConnessione)
mySqlDataAdapter.Fill(DataSet1,"NomeTuaTabellaNonN ecessario")
Me.grdDataGrid.DataSource = DataSet1



Non so se ho scritto bene perchè l'ho tradotto da c#, forse ho sbajato qualcosa nella creazione degli oggetti! Controlla!

[g.scardigno]

non va!!!!

Ottengo questo errore

Eccezione non gestita di tipo "System.NullReferenceException" in GestVerNet.exe

Informazioni aggiuntive: Riferimento a un oggetto non impostato su un'istanza di oggetto.

[Sypher]

Originariamente inviato da g.scardigno
non va!!!!

Ottengo questo errore

Eccezione non gestita di tipo "System.NullReferenceException" in GestVerNet.exe

Informazioni aggiuntive: Riferimento a un oggetto non impostato su un'istanza di oggetto.

:master: Quale riga ti da errore???

[g.scardigno]

questa:

Me.grdDataGrid.DataSource = DataSet1

booooooooo

credevo che fosse una cosa semplice.....
invece.....
grazie per la disponibilità...

[Sypher]

L'ho rifatto e provato in VB.Net, l'unica differenza col tuo è che io uso SqlServer, quindi:

conn.Open()
Dim DataSet1 As New System.Data.DataSet()
Dim mySqlDataAdapter As System.Data.SqlClient.SqlDataAdapter
mySqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter("Select * from Clienti", conn)
mySqlDataAdapter.Fill(DataSet1)
DataGrid1.DataSource = DataSet1

Dovrebbe funzionarti però...strano! :master:

[g.scardigno]

non va!!!!!

ma che cavolo può essere....
ma tu l'hai provato con un semplice db access?????