Sabtu, 12 Januari 2013

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


Diposkan oleh T. Erick Sitorus | 05:52 | Aplikasi | 1 komentar »
Anda dapat mendownload aplikasi ini disini.

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.
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhYsFRIPDXSkcLuStWqfzORA0-fYs4JVQFvZKEIVoYcVb3N8W34IDQhyr1q6imCwRFw27xoipm7h6EXK-oEtmbo4XbsRMi0Ja6EQqg5JIv5ZFZ1kL90g0nYiwlpdhsXbtkhX_Ior89xE_0/s320/imgkoneksi.gif
Tampilan Akhir Program

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

Download Source code aplikasi disini

Tidak ada komentar:

Posting Komentar