Dim con As New OleDb.OleDbConnection()
Dim da As OleDb.OleDbDataAdapter
Dim tabulka As DataTable
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=prace.mdb;"
Dim cmd As New OleDb.OleDbCommand("Select ID,prace,kod,jednotka,kc from prace")
cmd.Connection = con
da = New OleDb.OleDbDataAdapter(cmd)
'definice DataTable
tabulka = New DataTable()
'naplnění tabulky
da.Fill(tabulka)
aaa = tabulka.Rows.Count : ReDim vlastnidata(4, aaa - 1) : bbb = 0
For Each row In tabulka.Rows
vlastnidata(0, bbb) = Convert.ToString(row.Item(0))
vlastnidata(1, bbb) = Convert.ToString(row.Item(1))
vlastnidata(2, bbb) = Convert.ToString(row.Item(2))
vlastnidata(3, bbb) = Convert.ToString(row.Item(3))
vlastnidata(4, bbb) = Convert.ToString(row.Item(4))
bbb = bbb + 1
Next row
Takto se připojuji k databazi a načtu z ní data. Ale jak ji vytvořím ? Věřím že nějak pomocí CREATE DATABASE, ale nikde na internetu jsem nenašel nějaký funkční příklad jak na to.
|