VB.NET Membuat Koneksi Database SQL Server 2008

VB.NET Membuat Koneksi Database SQL Server 2008 - Lagi ada waktu luang sebelum UAS di sempetin buat artikel tentang membuat koneksi dari VB.NET dengan SQL Server 2008.

Hal pertama yang harus di siapkan :
1. SQL Server 2008 Express
Tautan unduh SQL Server 2008 express : KLIK DISINI
Tautan unduh SQL Server 2008 express R2 : KLIK DISINI

2. SQL Server Management Studio
Tautan Unduh : KLIK DISINI

3. Visual studio 2008/2010/2013, kalau anda mau pakai sql server 2008 express R2 maka yang harus di pakai visual studio 2008 SP1
untuk tautan unduh anda bisa cari sendiri malalui mesin pencari google,dsb.

Cara membuat koneksi database SQL Server 2008 :

1. Buka visual studio yang telah terinstall, lalu buat 1 form baru dan 1 module baru (dalam artikel ini saya memakai visual studio 2013)
(saya anggap kalian sudah bisa membuat form dan module nya)

2. Lalu pada form utama tambahkan 1 tombol (button) lalu Textnya di ganti menjadi "Tes Koneksi"

3. Buka SQL Server Management Studio untuk membuat database baru.

User Authentication : SQL Server Authentication
Login : sa (Default)
Password : 1234 (Default)

4. Klik tombol new query
lalu ketikan

create database test_db;

Tekan F5/Tekan tombol Execute

jadinya akan seperti ini

5. Kembali lagi ke visual studio, klik 2x pada module yang sudah di buat sampai code editor muncul,
lalu taruh kode ini

Imports System.Data.SqlClient

di atas

Module namamodule 

lalu ketikkan code di bawah ini

    Public conn As SqlConnection = Nothing
    Public cmd As SqlCommand
    Public ds As DataSet
    Public adapter As SqlDataAdapter
    Public rd As SqlDataReader
    Public sql As String 

Taruh kodenya setelah Module namamodule

buat sub baru dengan nama  cekkoneksi

Public Sub cekkoneksi()
End Sub

lalu tambahkan kode di bawah ini

        sql = "Data Source=MYDISHA;Initial Catalog=DataMahasiswa;Persist Security Info=True;User ID=sa; password=1234"
        conn = New SqlConnection(sql)
        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()
                MsgBox("Koneksi ke database berhasil", MsgBoxStyle.Information, "Informasi")
            End If
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
            End
        End Try

jadinya akan seperti ini

    Public Sub cekkoneksi()
        sql = "Data Source=MYDISHA;Initial Catalog=test_db;Persist Security Info=True;User ID=sa; password=1234"
        conn = New SqlConnection(sql)
        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()
                MsgBox("Koneksi ke database berhasil", MsgBoxStyle.Information, "Informasi")
            End If
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
            End
        End Try
    End Sub

yang harus di ganti pada bagian  yang saya beri tanda merah, untuk data source bisa di isi nama komputer atau Localhost untuk initial catalog bisa anda isi dengan database yang sudah anda buat dan untuk user ID, Password bisa anda isi dengan user dan password pada sql server anda.

jadi keseluruhan code pada module adalah seperti ini

lalu kembali ke form utama, klik 2x pada tombol yang sudah di buat tadi lalu masukkan kode di bawah ini

call cekkoneksi

kode di atas untuk memanggil fungsi cekkoneksi yang sudah di buat di module.

 Program saat di jalankan akan seperti ini jika konfigurasi database pada module sudah benar.

sekian artikel tentang membuat koneksi database sql server dengan vb.net, kalau ada pertanyaan/kritik bisa di sampaikan melalui kotak komentar.

program ini bisa di kembangkan lagi untuk menginsert/menghapus/membaca data dari database.

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest