KONSULTASIVB.COM - KURSUS VB.NET Alamat : Terminal Bekasi - SPBU - Lampu Merah Taman - Gapura RT 02 RW 11 Jl. Rawa Semut - Semut Merah No 57 RT 04 RW 11 Belakang RS Bakti Medika
[email protected]
CARA KONEKSI DATABASE Secara garis besar cara koneksi ke database ditentukan oleh jenis databasenya atau pilihan namespace-nya. Database yang banyak digunakan adalah sebagai berikut : 1.
Access (menggunakan namespace oledb)
2.
MySql (menggunakan namespace ODBC atau mysql client)
3.
Sql Server (menggunakan namespace sqlclient)
Database
Query
Dataadapter + Dataset
Query
Command + DataReader
DatagridView
Textbox Label Combobox Listbox
Cara mengambil dan menampilkan database
Catatan utama versi saya sebagai penulis: 1.
Menampilkan data ke DATAGRIDVIEW menggunakan DATAADAPTER dan DATASET
2.
Menampilkan data ke TextBox, ListBox, ComboBox atau ke Label menggunakan COMMAND dan DATAREADER
1
KONSULTASIVB.COM - KURSUS VB.NET Alamat : Terminal Bekasi - SPBU - Lampu Merah Taman - Gapura RT 02 RW 11 Jl. Rawa Semut - Semut Merah No 57 RT 04 RW 11 Belakang RS Bakti Medika
[email protected] Cara Koneksi Ke Database Access 2003 Imports System.Data.OleDb Public Class Access2003
Variabel - varabel koneksi ke database dan query Dim Dim Dim Dim Dim
CONN As OleDbConnection DA As OleDbDataAdapter DS As New DataSet CMD As OleDbCommand DR As OleDbDataReader
Sub Koneksi() Try
String koneksi ke database CONN = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=DBAccess2003.mdb") CONN.Open() MsgBox("koneksi sukses") Catch ex As Exception MsgBox(ex.Message) End Try End Sub
Hasil koneksi ke database acces 2003 Private Sub Access2003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Menampilkan data ke datagrid Call Koneksi() DA = New OleDbDataAdapter("SELECT * FROM TBLPEGAWAI", CONN) DS = New DataSet DA.Fill(DS) DataGridView1.DataSource = DS.Tables(0) DataGridView1.ReadOnly = True
Menampilkan data ke listbox CMD = New OleDbCommand("SELECT * FROM TBLPEGAWAI", CONN) DR = CMD.ExecuteReader
2
KONSULTASIVB.COM - KURSUS VB.NET Alamat : Terminal Bekasi - SPBU - Lampu Merah Taman - Gapura RT 02 RW 11 Jl. Rawa Semut - Semut Merah No 57 RT 04 RW 11 Belakang RS Bakti Medika
[email protected] Do While DR.Read ListBox1.Items.Add(DR.Item("NAMA")) Loop End Sub End Class
Catatan : database access biasanya disimpan di Bin>Debug projec yang bersangkutan.
Cara Koneksi Ke Database Access 2007 Imports System.Data.OleDb Public Class Access2007 Dim Dim Dim Dim Dim
CONN As OleDbConnection DA As OleDbDataAdapter DS As New DataSet CMD As OleDbCommand DR As OleDbDataReader
Sub Koneksi() Try CONN = New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=DBAccess2007.accdb") CONN.Open() MsgBox("koneksi sukses") Catch ex As Exception MsgBox(ex.Message) End Try End Sub
Hasil koneksi ke database acces 2007 Private Sub Access2007_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call Koneksi() DA = New OleDbDataAdapter("SELECT * FROM TBLUser", CONN) DS = New DataSet DA.Fill(DS) DataGridView1.DataSource = DS.Tables(0) DataGridView1.ReadOnly = True
3
KONSULTASIVB.COM - KURSUS VB.NET Alamat : Terminal Bekasi - SPBU - Lampu Merah Taman - Gapura RT 02 RW 11 Jl. Rawa Semut - Semut Merah No 57 RT 04 RW 11 Belakang RS Bakti Medika
[email protected] CMD = New OleDbCommand("SELECT * FROM TBLUser", CONN) DR = CMD.ExecuteReader Do While DR.Read ListBox1.Items.Add(DR.Item("NAMA_user")) Loop End Sub End Class
Cara Koneksi Ke Database Mysql Imports System.Data.Odbc Public Class Mysql Dim Dim Dim Dim Dim
CONN As ODBCConnection DA As ODBCDataAdapter DS As New DataSet CMD As ODBCCommand DR As ODBCDataReader
Sub Koneksi() Try CONN = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};database=DBPerpustakaan;server=localhost;uid=root") CONN.Open() MsgBox("koneksi sukses") Catch ex As Exception MsgBox(ex.Message) End Try End Sub
Hasil koneksi ke database mysql Private Sub Mysql_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call Koneksi() DA = New OdbcDataAdapter("SELECT Judul,Pengarang from buku", CONN) DS = New DataSet DA.Fill(DS) DataGridView1.DataSource = DS.Tables(0) DataGridView1.ReadOnly = True CMD = New OdbcCommand("SELECT * FROM buku", CONN) DR = CMD.ExecuteReader Do While DR.Read ListBox1.Items.Add(DR.Item("judul")) Loop
4
KONSULTASIVB.COM - KURSUS VB.NET Alamat : Terminal Bekasi - SPBU - Lampu Merah Taman - Gapura RT 02 RW 11 Jl. Rawa Semut - Semut Merah No 57 RT 04 RW 11 Belakang RS Bakti Medika
[email protected] End Sub End Class
Catatan : 1.
Sebelum menjalan project, mysql harus dalam keadaan aktif
2.
kelemahan driver ODBC versi 3.51 belum bisa melakukan SELECT SUM (*). Silakan lakukan upgrade dengan driver ODBC versi 5.1.
CONN = New OdbcConnection("Driver={MySQL ODBC 5.1 Driver};database=DBPerpustakaan;server=localhost;uid=root")
Cara Koneksi Ke Database Sql Server Imports System.Data.SqlClient Public Class SqlServer Dim Dim Dim Dim Dim
CONN As SqlConnection DA As SqlDataAdapter DS As New DataSet CMD As SqlCommand DR As SqlDataReader
Sub Koneksi() Try CONN = New SqlConnection("data source=user-pc\sqlexpress;initial catalog=dbpersediaan;integrated security=true") CONN.Open() MsgBox("koneksi sukses") Catch ex As Exception MsgBox(ex.Message) End Try End Sub
Hasil koneksi ke database sql server Private Sub SqlServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call Koneksi() DA = New SqlDataAdapter("SELECT Nama_Departemen,Pimpinan from tbldepartemen", CONN) DS = New DataSet DA.Fill(DS)
5
KONSULTASIVB.COM - KURSUS VB.NET Alamat : Terminal Bekasi - SPBU - Lampu Merah Taman - Gapura RT 02 RW 11 Jl. Rawa Semut - Semut Merah No 57 RT 04 RW 11 Belakang RS Bakti Medika
[email protected] DataGridView1.DataSource = DS.Tables(0) DataGridView1.ReadOnly = True CMD = New SqlCommand("SELECT * FROM tbldepartemen", CONN) DR = CMD.ExecuteReader Do While DR.Read ListBox1.Items.Add(DR.Item("nama_departemen")) Loop End Sub End Class
Catatan : 1.
Jika anda menggunakan sql server 2000, string koneksi tidak perlu menggunakan \SQLEXPRESS. CONN = New SqlConnection("data source=user-pc;initial catalog=dbpersediaan;integrated security=true")
2.
Jika sql server menggunakan user Id dan password, maka ubah string koneksi menjadi sebagai berikut : CONN = New SqlConnection("data id=admin;password=123”)
3.
source=user-pc;initial
catalog=dbpersediaan;user
Cara lain koneksi database dapat dilakukan dengan membuat DSN terlebih dahulu. Pembahasan tentang pembuatan DSN dapat dilihat pada bab sebelumnya.
Imports system.data.odbc Module Module1 Public Public Public Public Public
CONN As odbcConnection DA As odbcDataAdapter DS As New DataSet CMD As odbcCommand DR As odbcDataReader
Sub Koneksi() CONN = New OdbcConnection("Dsn=DSNParkir") CONN.Open() End Sub End Module
4.
Info lengkap tentang cara koneksi database dapat dilihat di www.connectionstrings.com
6
