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