TipsTrik79: Membuat Koneksi Di VB.Net Dengan Database SQL Server 2008

Kali ini, kita akan membahas mengenai Langkah-langkah Membuat Koneksi di Visual Studio 2010/VB.Net dengan Database SQL Server 2008. Koneksi atau Module merupakan special class yang akan secara langsung dapat dipanggil apabila Class yang lainnya membutuhkan dengan kata lain dapat dipanggil kapan saja. Bisa diartikan dengan adanya module ini, anda akan dipermudah dalam membuat sebuah aplikasi dan juga lebih mempersingkat waktu anda dalam pengerjaan sebuah aplikasi. Koneksi database ke sebuah program adalah benar-benar sangat penting karena lebih efektif dalam penulisan yang tidak berkali-kali.

Langsung aja bagaimana langkah-langkah nya? mari kita mulai.

nah langkah pertamanya adalah, buka aplikasi Microsoft Visual Studio 2010, kemudian buat projek baru dengan cara, klik pada menu file >> New >> Project. seperti pada gambar berikut ini :

Kemudian pilih Windows Forms Aplication, lalu tentukan nama dan lokasi penyimpanan project yang akan kita buat.

nah setelah kita berhasil membuat project baru, baut sebuah DatagridView pada form yang telah kita buat. maka klik tolbol F7 pada keyboard untuk beralih ke halaman pengetikan kode program.

untuk melakukan koneksi ke database tentunya kita membutuhkan sebuah database yang nantinya akan kita koneksikan. sebagai contoh anggap saja kita sudah membuat sebuah database yaitu nama databasenya adalah siswa dan sebagai nama tabelnya adalah nilai.

lalu isikan beberapa Record seperti berikut ini :

maka langkah selanjutnya adalah klik menu Project pada Visual Studio 2010, kemudian pilih Server Exprorer. kemudian klik pada Connect to Database seperti gambar berikut.

kemudian pilih Microsoft SQL Server dan kli tombok Continue. lalu tentukan Server Name dan nama database.

kemudian pada bagian server exprorer akan bertambah sebuah koneksi database seperti berikut ini.

klik pada koneksi yang telah kita tambahkan. pada bagian properties, cari Connection String. kemudian Copykan isinya dan letakkan pada bagian program seperti berikut ini :

Coding :


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

    Sub koneksi()
        lokasidb = "Data Source=PC2018011308EAC\SQLEXPRESS;Initial Catalog=siswa;Integrated Security=True"
        conn = New SqlConnection(lokasidb)
        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()
            End If
        Catch ex As Exception
            MsgBox(MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call koneksi()
        da = New SqlDataAdapter("select * from nilai", conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "nilai")
        DataGridView1.DataSource = ds.Tables(0)
    End Sub
End Class

Maka ketika kita jalankan hasilnya akan seperti berikut ini :