Popolare griglia DataGridView (NEW!!)

Imports Microsoft.VisualBasic

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' creazione colonne datagridView

With Me.DataGridView1
.Columns.Add("codice", "Codice")
.Columns.Add("cognome", "Cognome")
.Columns.Add("nome", "Nome")
.Columns.Add("indirizzo", "Indirizzo")
.Columns.Add("comune", "Comune")
.EditMode = DataGridViewEditMode.EditProgrammatically
.AllowUserToAddRows = False

End With

''#################### inserisce SQL in RecordSet ##############################

Rs.Open(SqlPrima, DbConn, 3, 3)
''###########################################################################

DataGridView1.DataSource = Rs ' collegare ad OLEDB e non ADODB

For I = 0 To Rs.RecordCount - 1
Me.DataGridView3.Rows.Add()
With Me.DataGridView3.Rows(I)
.Cells("id").Value = Rs.Fields("id").Value
.Cells("Anno").Value = Rs.Fields("anno").Value
.Cells("Titolo").Value = Rs.Fields("Titolo").Value
.Cells("descrizione").Value = Rs.Fields("Descrizione").Value
End With

Rs.MoveNext()
Next
Rs.MoveFirst()


' inserimento Dati nella griglia

' esempio 10 righe


For i As Integer = 0 To 9
Me.DataGridView1.Rows.Add()
With Me.DataGridView1.Rows(i)
.Cells("codice").Value = Format(i + 1, "0000")
.Cells("cognome").Value = "Studente " & i + 1
.Cells("nome").Value = "Nome " & i + 1
.Cells("Indirizzo").Value = "Stanza n. " & i + 1
.Cells("comune").Value = "Roma " & i + 1
End With
Next

End Sub

End Class