KONEKSI DATABASE SQL DENGAN VB.NET

Malam semua setelah beberapa hari yang lalu saya memposting tentang Belajar Migrasi dari VB6 ke VB.Net kali ini saya akan berbagi tutorial untuk mengkoneksikan Visual Basic 2010 ke SQL Server 2008
langsung saja tanpa basa basi
pastikan computer atau laptop anda sudah terinstal Visual Basic 2010 dan SQL Server 2008
jika ada yang belum tahu cara menginstal SQL Server 2008 bisa lihat postingan saya sebelumnya Cara menginstal SQL Server 2008
langkah-langkah dalam mengkoneksikan VB.Net ke SQL Server 2008 sebagai berikut
1. Buka Visual studio 2010 lalu klik File - New Project - Windows Form Application
lalu pada kolom Name ketikan nama project sesuai keinginan anda saya contohkan nama project adalah KoneksiKeSqlServer lalu klik ok

2. setelah itu klik project pilih add module pada kolom Name ketikan nama module yang diinginkan misalkan Modulkoneksi lalu klik Add

3. Setelah Module berhasil dibuat ketikan code sebagai berikut

Imports System.Data.SqlClient
Module Modulekoneksi
    Public conn As SqlConnection
    Public cmd As SqlCommand
    Public ds As DataSet
    Public adapter As SqlDataAdapter
    Public rd As SqlDataReader
    Public lokasidb As String

    Public Sub ambilkoneksi()
        lokasidb = "Data Source=PC;Initial Catalog=latihan;Persist Security Info=True;User ID=sa; password=coba"
        conn = New SqlConnection(lokasidb)
        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 Try
    End Sub
End Module

keterangan : PC adalah nama komputer atau anda juga dapat mengganti dengan tanda titik (.)
                  Latihan adalah nama databasenya
                  SA adalah user untuk login ke database SQL Server
                  coba adalah password untuk login ke database SQL Server

4. Lalu kembali lagi ke Form1 yang pertama kita buat tadi

Tambah kan 1 buah button lalu atur di properties nya

Name : Btn_koneksi, Text : Test Koneksi

5. Double klik Button Test Koneksilalu ketika code

Imports System.Data.SqlClient

Public Class Form1

    Private Sub btn_koneksi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_koneksi.Click

        Call ambilkoneksi()

    End Sub

End Class

6. Lalu jalankan aplikasi dengan cara tekan F5 atau dengan cara Klik Menu Debug pilih Start Debuging

Lalu klik tombol Test Koneksi maka akan muncul pesan Koneksi ke database berhasil

artinya anda berhasil mengkoneksikan VB.Net Ke SQL Server