Cara Koneksi Visual Basic 2010 dengan SQL Server

Koneksi ke database  merupkan hal yang sangat penting saat kita akan membuat suatu program aplikasi. Hal ini bertujuan agar memudahkan kita dalam pengaksesan data maupun mengolahnya. Sebelum data kita dapat tersimpan kedalam database , langkah yang paling utama adalah mengkoneksikan program yang kita gunakan ke DBMS (Database Management System). Ada banyak aplikasi DBMS, salah satunya yang populer adalah SQL (System Query Language) buatan Microsoft.

Oke,Langsung saja buka Visual Basic anda, disini saya memakai VB 2010. Untuk versi VB lainnya, langka-langkahnya tidak jauh berbeda.

1. Klik New Project →Name→cobakoneksi (bebas terserah anda)→OK

2. Untuk mendesign Form seperti gambar diatas kita membutuhkan label dan data grid view. Data Grid View ini berfungsi untuk menampilkan tabel dari database yang sebelumnya telah kita buat. Langsung saja :

Klik Toolbox (Ctrl+Alt+X),pilih DataGridView dan Label. 

Pada Label, Double Klik. Setelah itu muncul jendela properties dan aturlah seperti gambar dibawah ini :

3. Kembali lagi pada form1, double klik pada form. Dan Copy paste coding berikut, 

Imports System.Data.SqlClient
Public Class Form1
    Dim conn As New SqlConnection
    Dim da As New SqlDataAdapter
    Dim ds As New DataSet
    Dim cmd As New SqlCommand

    'membuat sub class koneksi ke sql server
    Sub koneksi()
        Try
            conn = New SqlConnection("Server= ACER-PC\SQLEXPRESS; Database=Ismuka; trusted_connection=true") 'Ismuka adalah nama database yang kita buat
            conn.Open()
        Catch ex As Exception

            MsgBox("Koneksi Gagal!!!")
        End Try
    End Sub
    'membuat sub class utk mnmplkn data dari database ke datagridview
    Sub tampil()
        Try
            koneksi()
            ds.Clear()
            da = New SqlDataAdapter("select *from Kader", conn) 'Kader adalah nama tabel dari database yang kita buat
            da.Fill(ds, "Kader")
            DataGridView1.DataSource = ds.Tables("Kader")
        Catch ex As Exception

            MsgBox("Table Tidak Ditemukan!!")
        End Try
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tampil()
    End Sub
End Class

Setelah itu, Debug programnya, atau tekan F5 pada keyboard.

Jika program anda berhasil maka hasilnya akan seperti gambar dibawah ini :

Dan jika dijalankan programnya muncul gambar seperti dibawah ini :

 

Coba kembali check coding anda, dan lihatlah pada eror list untuk melihat daftar yang eror, Jika di eror list kosong, check pada nama server pada SQL anda. Karena tiap-tiap PC terkadang memiliki nama server yang berbeda. 

Pada coding diatas, nama server PC saya di SQL adalah  ACER-PC\SQLEXPRESS

Jadi, sesuaikan dengan nama server di SQL server sobat ya. Dan juga sesuaikan dengan Database dan table yang sobat gunakan, Agar bisa tampil data grid view nya.

Gimana?? berhasil kan?

Kalau ada pertanyaan seputar tutorial ini, tinggalkan pertanyaan kamu di kolom komentar dibawah. 

Semoga Bermanfaat :)