Koneksi Vb.net

Programming Visual Basic .NET 2005 Author Desript

: Hasanul Faisal : 1. Koneksi VB.NET dengan Database Ms-SQL Server 2. Build EXE dan Menggunakan Beberapa Project 3. Class Module

Copyright(c),2009 Domain : http://HasanulFaisal.co.cc Hosting : http://www.HasanulFaisal.somee.com e-mail : [email protected] (*) Berikanlah penilaian anda , saran dan masukan terhadap tulisan yang dipublikasikan.

Bismillahirrahmanirrahim.

Info Sebuah Koneksi dengan database pada dasarnya adalah membuat inisialisasi komunikasi (connectionstring) antara VB.NET ke Database, menggunakan salah satu jenis Class provider yang telah tersedia, dengan tujuan untuk Maintainable data itu sendiri (Insert/Update/Delete/Query). Banyak cara yang digunakan, diantaranya adalah menggunakan ODBC Connection, OLEDBConnection, atau SQL Connection. Tapi umumnya para developer akan lebih memilih melakukan koneksi ke database menggunakan coding programming.

Lab Tutorial A. Koneksi Manual (Binding) 1. Buatlah Solution Baru

2. Tambahkanlah folder solutions Applications dan Tambahkanlah juga sebuah project baru dengan nama sebagai berikut : Project Form

: Proj_KoneksiManual.vbproj : Frm_KoneksiManual.vb Gambar 1

Gambar 2

Gambar 3

3. Persiapkanlah sebuah Database dan tabel terlebih dahulu. Dalam studi kasus saat ini saya menggunakan Ms-Sql Server 2000 dengan klasifikasi : Æ Nama Database : Materi_Web Æ Nama Tabel : Data_Master_Karyawan (Silahkan lihat : http://www.pdfcoke.com/doc/19009869/SELECTSTATEMENTEDISI1) Atau pada artikel saya dengan judul : “Transact SQL (Structured Query Language) – DML” pada Menu Ms-Sql Server Link : ( http://www.hasanulfaisal.somee.com/100200_MsSQL.ASP)

4. Tambahkanlah sebuah object Control datagridview pada form Frm_Koneksi.vb, sehingga terlihat seperti dibawah ini. Klik pada tanda panah kanan atas dari datagridview tersebut. Pilih Add Project Data Source

5. Pilih Database Æ Next

6. Jika telah pernah ada Connection sebelumnya, maka VB.Net akan menampilkannya. Sebaiknya anda pilih New Connection

7. Tentukan Connection, sesuaikan dengan kondisi dimana Ms-SQL Server anda sudah terinstall sebelumnya (Local atau dalam keadaan Jaringan / Network).

Server Name : CompFaisal Use SQL Server Authentication : - User Name : sa - Password : 123 Select or Enter a Database Name : Materi_web

Untuk menguji bahwa koneksi tersebut telah dapat berfungsi dengan baik, maka anda sebaiknya klik pada button “Test Connection”, sehingga akan menampilkan informasi :

8. Ikuti saja step yang ada, sehingga muncul :

Tentukan Tabel : Data_MasterKaryawan Lihat Dataset Name : Materi_WebDataset (VB.Net menyediakan Dataset sebagai media penyimpanan Sementara. Lihat Solution explorer selengkapnya)

9. Setelah anda klik “Finish”, maka coba anda perhatikan pada Datagridview akan berisikan judul Field dari Tabel yang ada.

10. Jalankan program tersebut (F5), maka akan didapat hasil sebagai berikut :

B. Koneksi Database menggunakan Teknik Coding Programming (non Class) Melanjutkan langkah diatas, maka kita akan membuat sebuah koneksi dengan cara menggunakan coding programming. 1. Tambahkanlah sebuah Project Baru Project : Proj_KoneksiNonClass.vbproj Form : Frm_KoneksiNonClass.vb

2. Tambahkanlah Object Control Button dan Datagridview yang baru pada form tersebut, sehingga terlihat sebagai berikut :

3. Modifikasikanlah Coding Program sehingga selengkapnya menjadi : ' Program : Koneksi VB.NET (Non Class) ' Created by : HasanulFaisal, September 2009 '------------------------------------------Imports System.Data.SqlClient Public Class Frm_KoneksiNonClass Public xConn As New SqlConnection Public xComm As New SqlCommand Public xAdoAdapter As New SqlDataAdapter

Private Sub Frm_KoneksiNonClass_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load xConn.ConnectionString = "Server = CompFaisal ;Database = materi_web;UID=sa; pwd=123;Trusted_Connection=yes;" End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim xDS_MasterKaryawan As New DataSet xConn.Open() With xComm .Connection = xConn .CommandText = "Select Nik_Karyawan, Nama_Karyawan, Convert(Varchar(10),Tgl_Lahir,103), " & _ "Kode_Jabatan, Kode_Departement " & _ "From Data_MasterKaryawan Order By Nik_Karyawan ; " .CommandType = CommandType.Text End With xAdoAdapter.SelectCommand = xComm Me.xAdoAdapter.Fill(xDS_MasterKaryawan, "xDT_MasterKaryawan") Me.DataGridView1.DataSource = xDS_MasterKaryawan.Tables("xDT_MasterKaryawan") xConn.Close() End Sub End Class

4. Gantikanlah Startup Project agar nantinya menjalankan Proj_koneksiNonClass terlebih dahulu.

5. Tentukan pula folder dimana file hasil Compilasi program berupa .EXE File akan ditempatkan.

6. Dalam kasus ini, saya menempatkannya pada folder \Executable_Target

7. Kemudian Compile Project Tersebut

8. Kemudian anda perhatikan kondisi Folder dan File secara Fisik yang terdapat pada Root Direktory dan Folder Executable_Target Solutions1

Terlihat dengan beberapa Folder Project

File Hasil Compile Build Exe

9. Jalankanlah File EXE Tersebut (Klik 2x), sehingga akan terlihat seperti berikut ini :

Gambar 1

Gambar 2. Klik button Lihat Data

Catatan : Anda sudah menjalankan suatu File aplikasi Executable hasil Compilasi Build EXE, dan bukan dengan cara menekan tombol F5

C. Koneksi Database (Via Class Module) Koneksi pada metode sebelumnya , maka terdapat beberapa kekurangan, yaitu :

Teknik Coding

1. Setiapkali suatu form di buat, maka setiap kali itu pula suatu koneksi database harus disertakan dalam coding programming. 2. Jika terjadi perubahan Nama Server dan User Id, maka modifikasi harus dilakukan pada seluruh form yang telah dibuat sebelumnya. Bayangkanlah jika anda memiliki form aplikasi hingga > 100 form, tentu metode koneksi dengan cara tersebut tidak efektif. Caranya adalah : 1. Tambahkanlah sebuah Project Baru, dan sebuah Class Module. Sehingga selengkapnya akan tampak sebagai berikut : Project : Proj_KoneksiViaClass.vbproj Form : Frm_KoneksiViaClass.vb Class : Cls_Koneksi.vb

2. Tambahkan pula object control Button dan DataGridview ke dalam form, sebagaimana terlihat seperti ini :

3. Pada Class Cls_Koneksi.vb, lengkapi coding berikut ini .. '// Class : Koneksi '// Created by : HasanulFaisal, 2009 '//--------------------------------Public Class Cls_Koneksi Friend Shared xGlobalConn As String = "Server = CompFaisal ;Database = materi_web;UID=sa; pwd=123;Trusted_Connection=yes;" Public Property hasil() As String Get Return xGlobalConn End Get Set(ByVal value As String) xGlobalConn = value End Set End Property End Class

4. Pada Form Frms_KoneksiViaClass.vb, lengkapi coding berikut ini .. ' Created by : HasanulFaisal, 2009 '-------------------------Imports System.Data.SqlClient Public Class Frm_KoneksiViaClass Dim ObjClass As New Cls_Koneksi Dim xGlobalConn As String = ObjClass.hasil Public xConn As New SqlConnection(xGlobalConn) Public xComm As New SqlCommand Public xAdoAdapter As New SqlDataAdapter

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim xDS_MasterKaryawan As New DataSet xConn.Open() With xComm .Connection = xConn .CommandText = "Select Nik_Karyawan, Nama_Karyawan, Convert(Varchar(10),Tgl_Lahir,103), " & _ "Kode_Jabatan, Kode_Departement " & _ "From Data_MasterKaryawan Order By Nik_Karyawan ; " .CommandType = CommandType.Text End With xAdoAdapter.SelectCommand = xComm Me.xAdoAdapter.Fill(xDS_MasterKaryawan, "xDT_MasterKaryawan") Me.DataGridView1.DataSource = xDS_MasterKaryawan.Tables("xDT_MasterKaryawan") xConn.Close() End Sub End Class

5. Dengan Cara yang sama pada step B, maka gantikanlah startup project, dan tentukan folder hasil Compilasi serta jalankan Build EXE Startup Project

Folder Exe

6. Jalankan Aplikasi exe tersebut (klik 2x), dan lihat hasilnya.

Coba kemudian anda klik button “Lihat Data Koneksi Via Class”, maka program akan menampilkan data seperti dibawah ini.

Catatan : Anda sudah menjalankan suatu File aplikasi Executable hasil Compilasi Build EXE, dengan metode Via Class

Sebagai tambahan bahwa connection string tersebut untuk provider Ms-SQL Server 2000. Friend Shared xGlobalConn As String = "Server = CompFaisal ;Database = materi_web;UID=sa; pwd=123;Trusted_Connection=yes;"

Namun jika database anda berbeda, maka silahkan ada menyesuaikan providernya sendiri. Saya persilahkan anda kunjungi pada situs :

http://www.connectionstrings.com/

**** SEMOGA BERMANFAAT ***

(*) Berikanlah penilaian anda, saran dan masukan terhadap tulisan yang dipublikasikan.