KONEKSI DATABASE SQL DENGAN VB.NET ADO. NET ADO merupakan singkatan dari Active X Data Object yang dipakai untuk mengaskes data dalam suatu database seperti SQL Server, MS Access, Oracle ataupu file seperti file MS Excel. Didalam teknologi .NET, ADO classic berkembang menjadi ADO.NET dengan beberapa perubahan seperti perubahan object recordset dalam ADO menjadi beberpa object dalam ADO.NET dan lainnya. Akses Data di ADO.NET bergantung pada dua komponen: Penyedia DataSet dan Data. Dataset adalah, diputus dalam-memori representasi data. Hal ini dapat dianggap sebagai salinan lokal dari bagian yang relevan dari database. DataSet adalah bertahan dalam memori dan data di dalamnya dapat dimanipulasi dan diperbarui independen dari database. Ketika penggunaan DataSet ini selesai, perubahan dapat dilakukan kembali ke pusat database untuk memperbarui. Data dalam DataSet dapat dimuat dari sumber data yang valid seperti database server Microsoft SQL, Oracle atau database dari database Microsoft Access.
Data Provider Data Provider bertanggung jawab untuk menyediakan dan memelihara koneksi ke database. Sebuah dataProvider adalah seperangkat komponen terkait yang bekerja sama untuk menyediakan data secara efisien dan kinerja didorong. . NET Framework saat ini dilengkapi dengan dua DataProviders: SQL Data Provider yang dirancang hanya untuk bekerja dengan SQL Server 7.0 Microsoft dan dataProvider OLEDB yang memungkinkan kita untuk terhubung ke database jenis lain seperti Access dan Oracle. Setiap data Provider terdiri dari kelas komponen berikut:
Object Connection yang menyediakan koneksi ke database Object Command yang digunakan untuk mengeksekusi perintah Obyek DataReader yang menyediakan forward-only, read only, recordset terhubung Obyek DataAdapter yang populasikan DataSet terputus dengan data dan melakukan pembaruan
Komponen kelas yang membentuk Penyedia data Obyek Koneksi Object Connection menciptakan koneksi ke database. Microsoft Visual Studio NET menyediakan dua jenis kelas Koneksi: obyek SqlConnection, yang dirancang khusus untuk menghubungkan ke Microsoft SQL Server, dan objek OleDbConnection, yang dapat menyediakan koneksi ke berbagai jenis database seperti Microsoft Access, Mysql dan Oracle. Object Connection berisi semua informasi yang diperlukan untuk membuka koneksi ke database.
Objek Command Object Command diwakili oleh dua kelas yang sesuai: SqlCommand dan OleDbCommand. Objek Command digunakan untuk mengeksekusi perintah ke database di sambungan data. Objek Command bisa digunakan untuk mengeksekusi prosedur yang tersimpan pada database, perintah SQL, atau kembali tabel lengkap langsung. Objek Command menyediakan tiga metode yang digunakan untuk mengeksekusi perintah pada database: ExecuteNonQuery: Melaksanakan perintah yang memiliki nilai yang tidak kembali seperti INSERT, UPDATE atau DELETE ExecuteScalar: Mengembalikan nilai tunggal dari query database ExecuteReader: Mengembalikan hasil set dengan cara objek dataReader
Objek dataReader
Obyek DataReader menyediakan forward-only, read-only, recordset aliran terhubung dari database. Tidak seperti komponen lain dari Data Provider, obyek DataReader tidak dapat secara langsung instantiated. Sebaliknya, dataReader dikembalikan sebagai hasil dari metode ExecuteReader object Command itu. Metode SqlCommand.ExecuteReader mengembalikan sebuah objek SqlDataReader, dan metode OleDbCommand.ExecuteReader mengembalikan sebuah objek OleDbDataReader. DataReader dapat memberikan baris data langsung ke logika aplikasi ketika Anda tidak perlu menyimpan data dalam memori cache. Karena hanya satu baris dalam memori pada satu waktu, dataReader menyediakan overhead terendah dalam hal kinerja sistem tetapi memerlukan penggunaan eksklusif dari sebuah object Connection terbuka untuk seumur hidup dataReader tersebut.
Obyek DataAdapter DataAdapter adalah kelas inti dari terputus akses data ADO NET. Ini pada dasarnya adalah perantara memfasilitasi semua komunikasi antara database dan DataSet. DataAdapter digunakan baik untuk mengisi DataTable atau DataSet dengan data dari database dengan metode Isi itu. Setelah data memori-penduduk telah dimanipulasi, DataAdapter bisa melakukan perubahan ke database dengan memanggil metode Update. DataAdapter menyediakan empat sifat yang mewakili perintah database:
SelectCommand InsertCommand DeleteCommand UpdateCommand
Ketika Update metode disebut, perubahan dalam DataSet yang disalin kembali ke database dan yang sesuai InsertCommand, DeleteCommand, atau UpdateCommand dieksekusi.
MEMBUAT KONEKSI DATABASE SQL Hal yang paling penting dalam koneksi VB dengan SQL Server adalah Connection String, berikut syntax connection string :
Key
Value
Data Source/Server Initial Catalog/Database Integrated Security/Trusted_Connection
Nama Komputer Nama database SSPI/Ttrue
pada pengisian nama komputer, untuk menunjukan bahwa anda akan memasukan komputer anda sendiri / satu komputer, bisa kamu isikan dengan tanda ‘.’ (titik), atau ‘localhost’, atau nama komputernya. Berikut contoh connection strings : Server=localhost\SQLEXPRESS;Database=master;Trusted_Connection=true
Bisa juga: Data Source=.\SQLEXPRESS; Initial Catalog=master; Integrated Security=SSPI
Koneksi Database menggunakan Console Aplication Imports System.Data.SqlClient Module Module1 Sub Main() Dim Sql As New SqlConnection("Server=ASUS-PC;" & _ "Database=DataMhs;Trusted_Connection=true") Try Sql.Open() Console.WriteLine("Koneksi Terbuka...") Catch ex As Exception Console.WriteLine("Gagal mebuka koneksi ke server") End Try Console.ReadKey() End Sub End Module
Jalankan :
Koneksi Database menggunakan GUI Aplication Koneksi Database sangat penting agar program kita dapat meng-input , edit ataupun delete data yang ada di database. Langkah-Langkah :
1. Buat Sebuah Database di SQL Server 2008 dengan namanya "DataMhs"
2. Setelah buat database, sekarang saatnya kita main di Visual Basic. Buka Visual Basic 2010 dan buat sebuah project baru. setelah itu design form seperti tampilan berikut ini :
3. Double Click di Button Connect. maka akan masuk pada stage coding. setelah itu masukkan coding berikut ini : Imports System.Data.SqlClient Public Class Form1 Dim Conn As New SqlConnection("Integrated Security=SSPI; " & _ "Persist Security Info=True;Initial Catalog=DataMhs;" & _ "Data Source=(LOCAL)") Dim Perintah As New SqlCommand Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Conn.Open() Perintah.Connection = Conn MessageBox.Show("Koneksi Sukses") Conn.Close() End Sub End Class
Keterangan : * Initial Catalog : bisa diganti dengan nama database yang anda buat. sebagai contoh saya membuat database dengan nama DataMhs. * Data Source : gunakan (LOCAL) agar bisa digunakan di komputer yang lain setelah itu coba debug program. kemudian tekan tombol connect. apabila koneksi sukses. maka akan muncul kotak pesan seperti berikut ini :
Simpan Data
Double klik pada tombol Simpan. dan masukkan coding berikut ini : Imports System.Data.SqlClient Public Class Form1 Dim Conn As New SqlConnection("Integrated Security=SSPI; Persist Security Info=True;" & _ "Initial Catalog=DataMhs; Data Source=(LOCAL)") Dim Perintah As New SqlCommand Dim Bacadata As SqlDataReader Dim Cari As String Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click Dim JK As String If rboLaki.Checked = True Then JK = "Laki-Laki" Else JK = "Perempuan" End If Conn.Open() Perintah.Connection = Conn Perintah.CommandType = CommandType.Text Perintah.CommandText = "INSERT INTO mhs VALUES ('" & txtNim.Text & "','" & txtNama.Text & "','" & JK & "')" Perintah.ExecuteNonQuery() MessageBox.Show("Data Telah diSimpan") Conn.Close() End Sub End Class
Query : INSERT INTO nama_tabel VALUES ('"& txt.text &"')
EDIT Data Double klik tombol cari dan masukkan coding sebagai berikut ini : Private Sub btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click Cari = InputBox("Masukkan NIM yang ingin dicari") Conn.Open() Perintah.Connection = Conn Perintah.CommandType = CommandType.Text Perintah.CommandText = "SELECT * FROM mhs WHERE NIM = '" & Cari & "'" Bacadata = Perintah.ExecuteReader Bacadata.Read() If Bacadata.HasRows = True Then MessageBox.Show("Data ada") txtNim.Text = Bacadata("NIM") txtNim.ReadOnly = True txtNama.Text = Bacadata("Nama") If Bacadata("jenis_kelamin") = "Laki-Laki" Then rboLaki.Checked = True Else rboPerempuan.Checked = True End If Else MessageBox.Show("Tidak ada data") txtNim.Clear() txtNama.Clear() rboLaki.Checked = False rboPerempuan.Checked = False End If Bacadata.Close() Conn.Close() End Sub
Setelah itu kembali ke form dan double klik tombol ubah. kemudian masukkan coding berikut ini : Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click Dim JK As String If rboLaki.Checked = True Then JK = "Laki-Laki" Else JK = "Perempuan" End If Conn.Open() Perintah.Connection = Conn Perintah.CommandType = CommandType.Text Perintah.CommandText = "UPDATE mhs SET nama = '" & txtNama.Text & "'," & "jenis_kelamin = '" & JK & "' WHERE nim = '" & txtNim.Text & "'" Perintah.ExecuteNonQuery() MessageBox.Show("Data telah diubah") Conn.Close() End Sub
kita coba cari data yang sebelumnya kita input. setelah itu kita coba edit. apabila berhasil maka akan muncul kotak pesan "Data telah Diubah".
Data sebelum diubah!
Data sesudah diubah!
Hapus Data Double klik pada tombol Hapus. masukkan beberapa baris coding sebagai berikut : Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click Conn.Open() Perintah.Connection = Conn Perintah.CommandType = CommandType.Text Perintah.CommandText = "DELETE FROM mhs WHERE nim = '" & Cari & "'" Perintah.ExecuteNonQuery() MessageBox.Show("Data telah dihapus") Conn.Close() End Sub
Penjelasan : fungsi delete ini hampir sama dengan fungsi edit sebelumnya. dimana kita harus cari dulu data yang ingin kita hapus.
kemudian kita coba debug / jalankan programnya. setelah itu kita cari data yang ingin kita hapus. kemudian kita klik Hapus. jika data berhasil dihapus maka akan muncul message box "Data telah dihapus"
Data sebelum dihapus!
Data sesudah dihapus!
Tugas Praktikum! 1.
Buat Database dengan sql server dari tabel-tabel dibawah ini :
2.
Buatlah aplikasi Entry Data Barang seperti dibawah ini!
Keterangan : Kode Barang dibuat secara otomatis
