www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 1 –
BAB 3 VB.NET 2005 DAN CARA KONEKSI DATABASE Database Access 2003 1.
Buka project vb.net 2005 pertemuan sebelumnya
2.
buat form baru dengan nama ACCESS2003
3.
buka access 2003
4.
Create a new file
5.
Blank database
6.
Tulis nama file
7.
simpan database (di folder project di posisi bin >debug)
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
8.
Create
9.
Klik dua kali object create table in desain view
Hal - 2 –
www.konsultasivb.com Oleh : Uus Rusmawan
10. No
Modul VB.Net 2005
Hal - 3 –
Buatlah struktur tabel sebagai berikut Nama field
Type
Size
Ket
1
Kode_Barang
Text
13
Primary key
2
Nama_Barang
Text
30
3
Harga_Beli
Number
Long integer
4
Harga_Jual
Numeric
Long integer
5
Jumlah_Barang
Numeric
Integer
6
Satuan
Text
15
12.
Klik kanan field kode_Barang
13.
Pilih primary key (atau klik icon Primary Key Gambar kunci warna kuning)
14.
Simpan struktur tabel > Klik ikon save (gambar disket)
15.
Tulis nama tabel (barang)
16.
Klik OK
www.konsultasivb.com Oleh : Uus Rusmawan
17.
Modul VB.Net 2005
Isilah tabel barang secara manual dengan data sebagai berikut
Koneksi Vb.Net 2005 Dengan Database Access 2003 1.
Buka vb.net
2.
Buatlah form seperti gambar di bawah ini
3.
ubah nama Datagridview1 menjadi GDV
Hal - 4 –
www.konsultasivb.com Oleh : Uus Rusmawan
4.
Modul VB.Net 2005
Hal - 5 –
buka jendela coding dan tulis coding berikut :
Imports System.Data.OleDb Public Class TampilGrid Dim Conn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As DataSet Sub Koneksi() str = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb" Conn = New OleDbConnection(str) If Conn.State = ConnectionState.Closed Then Conn.Open() End Sub Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Koneksi() da = New OleDbDataAdapter("Select * from barang", Conn) ds = New DataSet ds.Clear() da.Fill(ds, "Barang") DGV.DataSource = (ds.Tables("Barang")) End Sub End Class
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hasil program :
Cara membuat string koneksi access 2003 1.
klik kanan toolbox
2.
pilih choose items
3. 4.
ketik oledd
5.
centang oledbconnection
6.
OK
Hal - 6 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
7. 8.
9.
klik dua kali oledbconnection
Hal - 7 –
www.konsultasivb.com Oleh : Uus Rusmawan
10.
11.
12.
Modul VB.Net 2005
Hal - 8 –
www.konsultasivb.com Oleh : Uus Rusmawan
13.
14.
Modul VB.Net 2005
Hal - 9 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 10 –
15. 16.
string koneksi yang dihasilkan adalah
Provider=Microsoft.Jet.OLEDB.4.0;Data Source="D:\1 vb.net 2005\modul vb.net 2005 April 2011\Latihan1\Latihan1\bin\Debug\db1.mdb"
Catatan : posisi drive dan folder dapat dilepas menjadi : Str= “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb"
Database access 2007 1.
Buka project vb.net 2005 pertemuan sebelumnya
2.
buka access 2007
3.
Blank Database
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
6.
Ketik nama file dan simpan di folder BIN > DEBUG
7.
Create
Memberi Nama Tabel
Hal - 11 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Rancangan Struktur Tabel Barang: No
Nama field
Type
Size
Ket
1
Kode_Barang
Text
13
Primary key
2
Nama_Barang
Text
30
3
Harga_Beli
Number
Long integer
4
Harga_Jual
Numeric
Long integer
5
Jumlah_Barang
Numeric
Integer
6
Satuan
Text
15
Membuat Kunci Primer Pada Field Yang Unik
Hal - 12 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Mengisi Data Secara Manual (Klik Dua Kali Nama Tabel)
Koneksi Vb.Net 2005 Dengan Database Access 2007 5.
Buka vb.net
6.
Buatlah form seperti gambar di bawah ini
Hal - 13 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
7.
ubah nama Datagridview1 menjadi GDV
8.
buka jendela coding dan tulis coding berikut :
Hal - 14 –
Imports System.Data.OleDb Public Class TampilGrid Dim Conn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As DataSet Sub Koneksi() str = "provider=microsoft.ACE.OLEDB.12.0;data source=LATIHAN1.ACCDB.mdb" Conn = New OleDbConnection(str) If Conn.State = ConnectionState.Closed Then Conn.Open() End Sub Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Koneksi() da = New OleDbDataAdapter("Select * from barang", Conn) ds = New DataSet ds.Clear() da.Fill(ds, "Barang") DGV.DataSource = (ds.Tables("Barang")) End Sub End Class
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hasil program :
Database MySql Lakukan Instalasi Wamp 3.51
Hal - 15 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 16 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 17 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Lakukan Instalasi Driver ODBC 3.51
Hal - 18 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 19 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 20 –
1.
start > all programs
2.
wampserver > start wampserver
3.
klik kanan ikon wampserver (warna putih di taskbar sebelah kanan)
4.
pilih phpmyadmin
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
5.
ubah tampilan bahasa ke bahasa indonesia agar mudah dipahami
6.
buatlah database dengan nama DBLatihan
7.
klik ciptakan
Hal - 21 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
8.
buatlah tabel siswa dengan tiga buah field
9.
klik go
10.
buat struktur tabel siswa sebagai berikut
11.
field nim dijadikan primary key
12.
klik simpan
Hal - 22 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
13.
indikasi keberhasilan pembuatan tabel siswa
14.
klik sisipkan untuk menambahkan data secara manual
15.
isilah data sebagai berikut kemudian klik GO
Hal - 23 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
16.
indikasi keberhasilan penambahan data
17.
klik BROWSE untuk meihat data hasil entri
Hal - 24 –
www.konsultasivb.com Oleh : Uus Rusmawan
18.
Modul VB.Net 2005
tambahkan dua data berikutnya
Koneksi Vb.Net Dengan Database Mysql 9.
Buka vb.net
10.
Buatlah form seperti gambar di bawah ini
Hal - 25 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
11.
ubah nama Datagridview1 menjadi GDV
12.
buka jendela coding dan tulis coding berikut :
Imports System.Data.Odbc Public Class TampilGrid Dim Conn As OdbcConnection Dim da As OdbcDataAdapter Dim ds As DataSet
Sub Koneksi() str = "Driver={MySQL ODBC 3.51 Driver};database=DBLatihan;server=localhost;uid=root" Conn = New OdbcConnection(str) If Conn.State = ConnectionState.Closed Then Conn.Open() End If End Sub
Hal - 26 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 27 –
Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Koneksi() da = New OdbcDataAdapter("Select * from siswa", Conn) ds = New DataSet ds.Clear() da.Fill(ds, "Siswa") DGV.DataSource = (ds.Tables("Siswa")) End Sub End Class
Hasil program :
Cara membuat string koneksi database mysql 1.
klik kanan toolbox
2.
choose items
3.
ketik odbc
4.
centang odbcconnection
5.
klik dua kali object odbcconnection
6.
klik dropdown connetionstring
7.
pilih new connection
www.konsultasivb.com Oleh : Uus Rusmawan
8.
Modul VB.Net 2005
Hal - 28 –
www.konsultasivb.com Oleh : Uus Rusmawan
9.
10.
Modul VB.Net 2005
Hal - 29 –
www.konsultasivb.com Oleh : Uus Rusmawan
11.
12.
Modul VB.Net 2005
Hal - 30 –
www.konsultasivb.com Oleh : Uus Rusmawan
13.
14.
Modul VB.Net 2005
Hal - 31 –
www.konsultasivb.com Oleh : Uus Rusmawan
15.
16.
Modul VB.Net 2005
Hal - 32 –
www.konsultasivb.com Oleh : Uus Rusmawan
17.
18.
Modul VB.Net 2005
Hal - 33 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
19.
20. 21.
paste string koneksi ke dalam coding
Hal - 34 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Database Sql Server 2000 Asumsi : sql server 2000 sudah diinstall di komputer 1.
Start > All Programs
2.
Microsoft Sql Server > Enterprise Manager
3.
Klik Kanan Databases
4.
Klik New Database
5.
Tulis nama database misalnya DBLatihan
6.
Klik OK
Hal - 35 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
7.
Klik kanan DBLatihan > New > Table
8.
cara
lain
membuat
tabel
dapat
dilakukan
DBLatihan > klik kanan table > new table
Hal - 36 –
dengan
membuka
database
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
9.
ketiklah struktur tabel barang sebagai berikut
10.
field kode_barang dijadikan primary key
Hal - 37 –
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 38 –
11.
simpan tabel dengan nama “Barang”
12.
isilah tabel barang secara manual dengan cara klik kanan tabel barang > open table > return all rows
www.konsultasivb.com Oleh : Uus Rusmawan
13.
Modul VB.Net 2005
Hal - 39 –
ketiklah data sebagai berikut
Koneksi Vb.Net 2005 Dengan Database Sql Server 2000 13.
Buka vb.net
14.
Buatlah form seperti gambar di bawah ini
15.
ubah nama Datagridview1 menjadi GDV
16.
buka jendela coding dan tulis coding berikut :
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 40 –
Imports System.Data.SqlClient Public Class TampilGrid Dim Conn As SqlConnection Dim da As SqlDataAdapter Dim ds As DataSet
Sub Koneksi() str = "Data Source=virtual;Initial Catalog=DBLatihan;Integrated Security=True" Conn = New SqlConnection(str) If Conn.State = ConnectionState.Closed Then Conn.Open() End If End Sub Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Koneksi() da = New SqlDataAdapter("Select * from barang", Conn) ds = New DataSet ds.Clear() da.Fill(ds, "Barang") DGV.DataSource = (ds.Tables("Barang")) End Sub End Class
Hasil program :
Cara membuat string koneksi sql server 1.
klik kanan toolbox
2.
pilih choose items
3.
ketik sql
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Hal - 41 –
4.
centang sqlconnection > OK
5.
klik dua kali object sqlconnection
6.
klik dropdown connetionstring > pilih new connection
7.
ketik nama server (nilai default server adalah local)
8.
tentukan cara login ke sqlserver (windows authentication / sql server authentication)
9.
pilih nama database > OK
www.konsultasivb.com Oleh : Uus Rusmawan
Modul VB.Net 2005
Copy string koneksi ke dalam coding
Hal - 42 –
