Sabtu, 15 September 2012

Koneksi VB.Net 2008 dan SQL Server 2008 dengan Connection String


Untuk membuat aplikasi di VB.Net 2008 yang menggunakan database, maka kita terlebih dahulu harus membuat koneksi yang menghubungkan database dengan VB.Net 2008. Kali ini saya akan memberi contoh sederhana menghubungkan VB.Net 2008 dengan database SQL Server 2008.

Pertama-tama buatlah sebuah database kosong dan beri nama mydb. Nama database boleh berbeda.

Jalankan program VB.Net 2008 dan buat project baru (File - New Project) dan beri nama koneksi kemudian melalui menu (project - add new item) pilih module, kemudian ketikkan baris2 kode berikut.

 Imports System.Data.SqlClient  
 Module Module1  
   Public Class koneksi  
     Public Function buatkoneksi() As Boolean  
       Dim conn As SqlConnection = Nothing  
       Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=mydb;Integrated Security=True"  
       conn = New SqlConnection(connString)  
       conn.Open()  
       If conn.State <> ConnectionState.Open Then  
         Return False  
       Else  
         Return True  
       End If  
     End Function  
   End Class  
 End Module  
Contoh diatas saya menggunakan metode trusted connection. Ganti nilai dari Data Source dengan nama server untuk SQL Server anda atau nama instance name SQL Server anda. Dalam hal ini server saya bernama ZHENLONK-342572, sedangkan Initial Catalog adalah nama database yang digunakan.

Bila sudah, kemudian klik form1.vb pada tab solution explorer di sebelah kanan aplikasi. Tambahkan tombol (button) dan ganti text Button1 tersebut menjadi Test Koneksi. klik 2 kali tombol tersebut dan ketikkan kode berikut.
 Dim mykoneksi As New koneksi  
 If Not mykoneksi.buatkoneksi() Then  
    MsgBox("Koneksi Gagal", MsgBoxStyle.Critical, "Info Program")  
 Else  
    MsgBox("Koneksi Berhasil", MsgBoxStyle.Information, "Info Program")  
 End If  
Tambahkan 1 tombol untuk exit / keluar dari program dan ketikkan kode berikut.

    Me.Close()

Tampilan akhir aplikasi kita akan tampak seperti berikut ini.

Tampilan Akhir Program

Klik tombol Test Koneksi, bila Setting nama server dan database benar, maka tampil message box Koneksi Berhasil.

Tidak ada komentar:

Posting Komentar