Connect VB. NET ke SQL Compact

< data-ad-client="ca-pub-3890975320167131" data-ad-slot="8978403605"/ins>

Dalam programming ada banyak sekali jenis database yang dipakai oleh pihak developer, dan salah satunya yang akan kita bahas di sini menggunakan SQL Compact 3.5 atau SQLServerCe atau Local Database dengan extension .sdf. Jika anda menggunakan Visual Studio 2010 SQL Compact tersebut sudah dibundel ke dalamnya.

Syntax yang digunakan untuk Insert, Update, Delete, dan Search hampir sama penggunaannya dengan SQL Server. Dalam membuat sebuah aplikasi software yang menggunakan media penyimpanan database, seperti halnya aplikasi penjualan butuh sebuah Connection String untuk menghubungkan antara VB. NET dan SQL Compact tersebut.

Cara yang akan kita lakukan dapat dilihat pada postingan berikut ini:

Buka aplikasi vb. net anda

Klik New Project

Buat sebuah WindowsApplication

Buat Sebuah Form dan Local Databse dengan cara:

Klik kanan Project>Add>New Item

Pada Tab Data pilih Local Database dan klik Add 

Buatlah sebuah Tabel dan beberapa Column pada Database yang anda buat tadi

Dan buat juga sebuah Module untuk Open Connection database, sehingga kita bisa menggunakan Module Connection tersebut untuk Form yang lainnya.

Pada Module ketik Code di bawah ini:

Pada bagian yang paling atas dari Code View tambahkan Code ini

Imports System.Data.SqlServerCe

Dan kemudian gunakan code berikut:

Module Module1

Public Class koneksi
Public Function buatkoneksi() As Boolean
Dim conn As SqlCeConnection = Nothing
Dim connString As String = "Data Source=(Lokasi Databse)\(Nama Database).sdf;password=(Jika menggunakan Password)"

conn = New SqlCeConnection(connString)
conn.Open()
If conn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
conn.Close()
End Function
End Class
End Module

Setelah itu pada Form1 tambahkan code berikut:

Private MyKoneksi As New SqlCeConnection
Private connString As String = "Data Source=(Lokasi Databse)\(Nama Database).sdf;password=(Jika menggunakan Password)"

Pada Even Form1_Load:

Dim mykoneksi As New koneksi
If Not mykoneksi.buatkoneksi() Then
MsgBox("Koneksi Gagal", MsgBoxStyle.Critical, "Info Program")
End
Else
Me.Show()
End If

Dan untuk melaukan pemanggilan open koneksi tambahkan Code berikut:

MyKoneksi.ConnectionString = connString

Demikianlah cara untuk melakukan koneksi dari VB. Net ke Local Database atau SQL Compact atau SQLServerCe. Selamat mencoba dan Good Luck ^^

Related Post