contoh vb.net code

untuk Koneksi :

Code:

'Buat objek Connection
Oledbconn = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=C:\jajalan.mdb;")
'Buat objek Command untuk menjalankan SelectCommand
sSQL = "Select * From Barang"
OledbComm = New OleDbCommand(sSQL, Oledbconn)
OledbComm.CommandType = CommandType.Text
'Buat objek DataAdapter sebagai jembatan bagi DataSet
OledbDA = New OleDbDataAdapter(OledbComm)

Mengisi data ke DataSet sebagai objek DataTable

Code:

'Isi data ke DataTable Barang di DataSet melalui DataAdapter
OledbDA.Fill(ODS, "Barang")

Memambah record baru ke DataTable

Code:

'Membuat objek DataRow untuk record baru
ODR = ODS.Tables("Barang").NewRow
'Isi masing-masing kolom pada objek DataRow
ODR("KodeBar") = "Jajalan"
ODR("Keterangan") = "Jajalan Barang"
ODR("Satuan") = "Buah"
ODR("Harga") = 1500
'Tambah objek DataRow ke DataTable Barang
ODS.Tables("Barang").Rows.Add(ODR)

Mengubah record Pertama

Code:

'Mereferensikan ODR ke DataRow yang pertama
ODR = ODS.Tables("Barang").Rows(0)
'Ubah kolom Harga
ODR("Harga") = 10000

Menghapus record kedua

Code:

'Hapus DataRow yang kedua
ODS.Tables("Barang").Rows(1).Delete()

Update data ke record source

Code:

'Generate InsertCommand, UpdateCommand, DeleteCommand untuk update data
ODC = New OleDbCommandBuilder(OledbDA)
'Lakukan update data dari DataSet ke data source
OledbDA.Update(ODS, "Barang")

Tutup Koneksi

Code:

'Tutup koneksi
Oledbconn.Close()