Untuk membuat aplikasi di VB.Net 2008 yang menggunakan database, maka kita terlebih dahulu harus membuat koneksi yang menghubungkan database dengan VB.Net 2008. Kali ini saya akan memberi contoh sederhana menghubungkan VB.Net 2008 dengan database SQL Server 2008.
Pertama-tama buatlah sebuah database kosong dan beri nama mydb. Nama database boleh berbeda.
Jalankan program VB.Net 2008 dan buat project baru (File - New Project) dan beri nama koneksi kemudian melalui menu (project - add new item) pilih module, kemudian ketikkan baris2 kode berikut.
Imports System.Data.SqlClient
Module Module1
Public Class koneksi
Public Function buatkoneksi() As Boolean
Dim conn As SqlConnection = Nothing
Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=mydb;Integrated Security=True"
conn = New SqlConnection(connString)
conn.Open()
If conn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
End Class
End Module
Contoh diatas saya menggunakan metode trusted connection.
Ganti nilai dari Data Source dengan nama server untuk SQL Server anda
atau nama instance name SQL Server anda. Dalam hal ini server saya
bernama ZHENLONK-342572, sedangkan Initial Catalog adalah nama database
yang digunakan.Bila sudah, kemudian klik form1.vb pada tab solution explorer di sebelah kanan aplikasi. Tambahkan tombol (button) dan ganti text Button1 tersebut menjadi Test Koneksi. klik 2 kali tombol tersebut dan ketikkan kode berikut.
Dim mykoneksi As New koneksi
If Not mykoneksi.buatkoneksi() Then
MsgBox("Koneksi Gagal", MsgBoxStyle.Critical, "Info Program")
Else
MsgBox("Koneksi Berhasil", MsgBoxStyle.Information, "Info Program")
End If
Tambahkan 1 tombol untuk exit / keluar dari program dan ketikkan kode berikut.Me.Close()
Tampilan akhir aplikasi kita akan tampak seperti berikut ini.
Tampilan Akhir Program |
Klik tombol Test Koneksi, bila Setting nama server dan database benar, maka tampil message box Koneksi Berhasil.
Tidak ada komentar:
Posting Komentar