VB. Net VeriTabanı İşlemleri

    Dim ds As New DataSet
    Dim tblAna As DataTable
    Dim tblAlt As DataTable

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        tblAna = New DataTable("tblAna")
        tblAlt = New DataTable("tblAlt")

        tblAna.Columns.Add("AyId", GetType(Integer))
        tblAna.Columns.Add("AyAdi", GetType(String))
        tblAna.PrimaryKey = New DataColumn() {tblAna.Columns("AyId")}

        For i = 1 To 12
            tblAna.Rows.Add({i, MonthName(i)})
        Next

        tblAlt.Columns.Add("AyId", GetType(Integer))
        tblAlt.Columns.Add("AyAdi", GetType(String))
        tblAlt.PrimaryKey = New DataColumn() {tblAlt.Columns("AyId")}

        tblAlt.Rows.Add({3})
        tblAlt.Rows.Add({6})

        ds.Tables.AddRange({tblAna, tblAlt})

        DataGridViewAna.DataSource = ds.Tables("tblAna")
        DataGridViewAlt.DataSource = ds.Tables("tblAlt")