Tutorial dasar pemrograman desktop menggunakan VB.NET
Kali ini saya ingin berbagi pengetahuan tentang bagaimana cara mengkoneksikan database pada VB.NET menggunakan SQL Server database.
Sebelumnya saya sudah berbagi tentang cara mengkoneksikan database VB.NET dengan konsep ADO.NET, kali ini yang ingin saya berikan adalah cara mengkoneksikan database menggunakan module pada VB.NET.
Berbeda dengan sebelumnya, karena cara ini menggunakan modul untuk membuat connection string dan memerlukan sedikit koding didalamnya.
Untuk lebih jelasnya, ikuti langkah dibawah ini.
Buat sebuah project baru, beri nama “KoneksiDB_withModule”
Buat sebuah project baru, beri nama “KoneksiDB_withModule”
Pilih Solution Explorer -> Add -> New Item
Klik kanan pada “KoneksiDB_withModule”
Pilih Add -> New Item atau shortcut “ctrl+shift+A”
Muncul sebuah form lalu pilih Module beri nama dengan “Connection_MDL”
Berikutnya pada “Connection_MDL” kita perlu mengimport sebuah namespace SqlClient
Imports System.Data.SqlClient
Ketik tepat di atas source code “Module Connection_MDL”
Pada codeImports System.Data.SqlClient
Module Connection_MDL
Dim conn As New SqlConnection("Server=DUNHILL;Database=DB_StikomCKI;Trusted_Connection=True;")
Public Sub sambungkan()
Try
If conn.State = ConnectionState.Closed Then
conn.Open()
MsgBox("Database Tersambung", MsgBoxStyle.Information, "Berhasil")
Else
conn.Close()
End If
Catch ex As Exception
MsgBox("Koneksi Database Bermasalah, coba lagi", MsgBoxStyle.Exclamation, "Kesalahan")
End Try
End Sub
End Module
Dim conn As New SqlConnection("Server=DUNHILL;Database=DB_StikomCKI;Trusted_Connection=True;")Ubah nama Server dengan Server SQL Server Anda, dan Database yang ingin anda koneksikan.
Selanjutnya double click pada “Form1.vb [Design]”
“Form1.vb [Design]”
Akan muncul form baru setelah kita double click form tadi.
Form ini disebut code behind.
Pada Form1_Load kita akan panggil method dari module yang telah kita buat tadi.
Setelah itu kita running program.
Jika muncul messagebox seperti ini maka anda telah berhasil mengkoneksikan database
Tetapi jika muncul messagebox seperti ini, ada masalah pada source code anda, terutama pada connection string anda.
Periksa kembali connection string anda apakah sudah benar, dan sesuai dengan SQL Server.
Untuk lebih lengkap dan jelasnya anda bisa lihat Video Tutorial saya di YouTube.
