Pertama Siapkan dahulu softwarenya, software yang akan kita gunakan adalah VB.Net 2010 dan SQL Server 2005.
- Pertama buat dulu database nya di SQL Server 2005 dan buat namanya CRUD(StigmaData)
- Kemudian buat table dengan nama TbMahasiswa. Buat Field nya ( NIM(numeric), Nama(Varchar) , Jurusan(Varchar), Fakultas(Varchar))
- Setelah itu Buat Project baru di VB.Net 2010
- Kemudian Buat Form Baru (Ctrl + Shift + A) dengan nama CekKoneksi.vb
- Kemudian add button di form tersebut
- Klik 2x Button dan isikan kode berikut :
If Koneksi.State = ConnectionState.Closed Then Koneksi.Open() MsgBox("Koneksi Bermasalah") Else MsgBox("Koneksi Berhasil") End If
- Kemudian Buat Module dengan nama ModKoneksi.vb
-Isi Modul tersebut dengan Kode Berikut :
Imports System.Data.SqlClient Module ModKoneksi Dim ConStr As String Dim Conn As SqlConnection Public Function Koneksi() As SqlConnection Try ConStr = "Data Source=MSOFT2013-PC;Initial Catalog=CRUD(StigmaData);Integrated Security=True" Conn = New SqlConnection(ConStr) Conn.Open() Catch ex As Exception MsgBox("Koneksi Gagal") Conn.Close() Exit Try End Try Return Conn End Function End Module
-Kemudian jalankan atau tekan F5.
-Untuk lebih lanjut silahkan download Sourcenya disini
-Untuk Password silahkan klik disini
No comments:
Post a Comment