Koneksi Database

Object-Object Pengakses Data

ADO.NET (dan juga provider-provider lainnya yang berada dalam namesapce System.Data) memiliki beberapa macam object pengakses data, antara lain: 1. Connection Digunakan untuk membuat koneksi ke database. Contoh implementasi:

Public Function Koneksi() As OleDbConnection Dim conn As OleDbConnection Dim dataFolder As String Dim namaFile As String dataFolder= Application.StartupPath.ToString namaFile="\dblalinpas.mdb" conn = New OleDbConnection ("provider=Microsoft.Jet.OLEDB.4.0;data source =" & _ dataFolder & namaFile) Return conn conn = nothing End Function
2. Command Berfungsi untuk mengeksekusi stored procedure atau menjalankan statemen SQL. Contoh: Menghapus Data:

Public Sub HapusData(strSQL as String) Dim oConn As oleDBConnection = Koneksi() dim cmd as oleDBCommand dim l as Integer=0 Try oconn.Open cmd=new oleDBCommand(strSQL, oConn) cmd.ExecuteReader msgbox("Data Berhasil dihapus",vbInformation) oConn.Close Catch ex As Exception msgbox("Gagal di hapus! \n Error:" & ex.Message) End Try End Sub
Menyimpan Data:

Public Sub simpanData(strSQL as String) Dim oConn As oleDBConnection = Koneksi()

dim cmd as oleDBCommand dim l as Integer=0 Try oconn.Open cmd=new oleDBCommand(strSQL, oConn) cmd.ExecuteReader msgbox("Data Berhasil diproses",vbInformation) oConn.Close Catch ex As Exception msgbox("Gagal di proses! \n Error:" & ex.Message) End Try End Sub
Memeriksa Data:

Public Function AdaData(strSQL as String) as Boolean Dim oConn As oleDBConnection = Koneksi() dim cmd as oleDBCommand dim ob as Object dim l as Integer=0 oconn.Open cmd=new oleDBCommand(strSQL, oConn) ob=cmd.executescalar If ob Is Nothing Then Return False Else Return True End If oConn.Close End Function
Membaca/Mengambil Sebuah Data (Cell):

Public Function BacaData(strSQL as String) as Object Dim oConn As oleDBConnection = Koneksi() dim cmd as oleDBCommand dim ob as Object oconn.Open cmd=new oleDBCommand(strSQL, oConn) ob=cmd.executescalar oConn.Close return ob object ob nantinya akan dicasting sesuai tipe datanya End Function
3. DataAdapter Untuk melakukan query dengan memanfaatkan Connection

Dim oConn As oleDBConnection = Koneksi() Dim da as Ole OleDbDataAdapter = New OleDbDataAdapter(strSQL, oConn)

4.

DataReader Menampung data dan kemudian mengaitkan (binding) pada ListBox, ComboBox atau DataGrid

strSQL="select periode from tblpemasaran group by periode order by tahun, kodebulan" cmd=new OleDBCommand(strSQL, oConn) reader = cmd.ExecuteReader strX= New String(l-1) {} 'If l=0 Then ' msgbox("Tidak ada data") ' exit sub 'End If i=0 Do While reader.Read strField=reader.GetName(0) value=reader.Item("sbx").ToString strX(i)=value i=i+1 'redim strX(i) loop
5. Parameter Untuk menetapkan spesifikasi suatu parameter saat akan dilakukan manipulasi data pada tabel.

Object-Object Pengolah Data

1. DataSet Object ini adalah inti dari arsitektur ADO.NET, sebuah representasi database di klien, yang berguna untuk menampung hasil query dari DataAdapter yang berupa kumpulan tabel berelasi.

Dim dsPenjualan As New Dataset daPenjualan.Fill(dsPenjualan)

2. DataTable Sama seperti DataSet hanya saja yang ditampung berasal dari satu tabel.

Dim dtBarang As New DataTable dtBarang.Clear daBarang.Fill(dtBarang)

3. 4. DataView Berfungsi untuk melihat atau memfilter data dengan tampilan bervariasi DataRow Dapat digunakan untuk melakukan modifikasi baris-baris yang ada dalam tabel.

Dim dr As DataRow
5. 6. DataColumn Untuk mendapatkan semua data yang ada pada kolom tertentu PrimaryKey Sebagai denominator pencarian data

Object Penampil Data

1. 2. DataGrid Sebuah object yang dapat digunakan untuk menampilkan data dari database dalam bentuk tabel. DataGridView Merupakan pengembangan dari DataGrid

Data Bindings
Data Bindings adalah kegiatan mengaitkan dataset atau datatable ke object yang dapat menerima bound misalnya Label, TextBox, DateTimePicker, ListBox, ComboBox, dan lain-lain.

Data Bindings TextBox Sub IsiData() 'Kosongkan data TextBox1.DataBindings.clear textBox2.DataBindings.clear 'ISI DATA Dim strSQL As String Dim oconn As OleDbConnection = Koneksi() Dim da As OleDbDataAdapter Dim dt As New Data.DataTable dim dataAda as Boolean strSQL ="SELECT field1, field2 " strSQL += " FROM tblSuatuTabel" oConn.Open da=New OLeDBDataAdapter(strSQL, oConn) da.Fill(dt) dataAda=dt.Rows.Count>0 If Not(dataAda ) Then MsgBox(" Tidak ada data ") End If TextBox1.DataBindings.Add("Text",dt,"field1") TextBox2.DataBindings.Add("Text",dt,"field1") End Sub Data Bindings ListBox Public Sub BindCombo(cbbox As ComboBox, strSQL As String, _ namaField as String, namaValue as String) Contoh: strSQL=select nim, nama from tbl_mhs namaField=nama

namaValue=nim Dim koneksi1 As New OleDbConnection Dim da As OleDbDataAdapter Dim dt As DataTable koneksi1 = Koneksi() koneksi1.Open() da = New OleDbDataAdapter(strSQL, koneksi1) dt= New DataTable dt.Clear da.Fill(dt) cbbox.DataSource=dt nama sebagai displayMember (yang ditampilkan) cbbox.DisplayMember=namaField nim menjadi value member cbbox.ValueMember=namaValue if cbbox.Items.Count>0 then cbbox.SelectedIndex=0 End Sub

Data Bindings ComboBox Public Sub BindLB(Lbox As ListBox, strSQL As String, _ namaField as String, namaValue as String) Dim koneksi1 As New OleDbConnection Dim da As OleDbDataAdapter Dim dt As DataTable koneksi1 = Koneksi() koneksi1.Open() da = New OleDbDataAdapter(strSQL, koneksi1) dt= New DataTable dt.Clear da.Fill(dt) If dt.Rows.Count=0 Then exit sub End If Lbox.DataSource=dt Lbox.DisplayMember=namaField Lbox.ValueMember=namaValue if Lbox.Items.Count>0 then Lbox.SelectedIndex=0 End Sub Binding DataGridView Sub TampilTabelGridView() Dim oConn as New OleDBConnection

Dim Dim Dim Dim

cmd As OleDBCommand dr As OleDBDataAdapter strSQL as string i As Integer

'//

Try dataGridView1.DataBindings.Clear oConn=Koneksi() oconn.Open isi tabel da = New SQLiteDataAdapter(strSQL, oconn) dt= New System.Data.DataTable dt.Clear da.Fill(dt) dataGridView1.DataSource=dt Catch ex as Exception msgbox("Error: " & ex.Message) End Try End Sub Imports System.Data.OleDb

Untuk dapat menggunakan OleDB harus direference-kan librarynya dengan menambahkan

Untuk dapat menggunakan SQLite.NET harus direference-kan librarynya dengan menambahkan

Imports System.Data.SQLite