Koneksi atau Module merupakan special class yang akan secara langsung
menginstant dirinya dikala function, sub, variabel di panggil atau di
request oleh class yang lain. Bisa diartikan dengan adanya module ini,
anda akan dipermudah dalam membuat sebuah aplikasi dan juga lebih
mempersingkat waktu anda dalam pengerjaan sebuah aplikasi. Koneksi
database ke sebuah program adalah benar-benar sangat penting karena
lebih efektif dalam penulisan yang tidak berkali-kali. Selain itu module
juga bisa anda gunakan untuk memanggil lebih dari satu database.
Untuk lebih memperjelas nya silahkan lihat gambar dibawah ini
Keterangan Coding koneksi pada gambar diatas
subscribe : http://www.ngadimun.com/2016/04/membuat-modul-konesi-database-sql-server.html
Berikut langkah-langkah Membuat Coding Koneksi VB. Net ke Database SQL Server :
- Pertama buka aplikasi Vb. Net dan Database SQL Server nya. Jika anda belum mengetahui cara membuat database, anda bisa membaca postingan saya disini Cara Membuat Database SQL Server. Setelah terbuka aplikasi Vb. Net nya kemudian buatlah project baru, lihat gambar
- Dari gambar diatas untuk membuat Project baru pertama klik pada File > New > Project maka anda akan dibawah ke form berikutnya. Penambakan gambarnya seperti berikut ini
- Perhatikan gambar diatas, pertama isikan nama project sesuai keinginan anda kemudian klik browser untuk memilih di folder mana project anda akan disimpan. Setelah itu klik OK maka anda akan langsung menuju form selanjutnya, form tersebut seperti gambar dibawah ini.
- Lihat gambar diatas, klik kanan pada Project > Add > Module. Setelah itu masukan koding dibawah ini.
Imports System.Data.Sql
Imports System.Data.SqlClient
Module Module1
Public koneksi As SqlConnection
Public data As DataSet
Public baca As SqlDataReader
Public adaptor As SqlDataAdapter
Public cmd As SqlCommand
Public ass As DataTable
Public sql As String
Public Sub buka()
sql = "Data Source=NGADIMUN-PC\SQLEXPRESS;Initial Catalog=dtoee;Persist Security Info=True;UID=sa;PWD=ngadimun123"
koneksi = New SqlConnection(sql)
Try
If koneksi.State = ConnectionState.Closed Then
koneksi.Open()
End If
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
End Try
End Sub
End Module
Imports System.Data.SqlClient
Module Module1
Public koneksi As SqlConnection
Public data As DataSet
Public baca As SqlDataReader
Public adaptor As SqlDataAdapter
Public cmd As SqlCommand
Public ass As DataTable
Public sql As String
Public Sub buka()
sql = "Data Source=NGADIMUN-PC\SQLEXPRESS;Initial Catalog=dtoee;Persist Security Info=True;UID=sa;PWD=ngadimun123"
koneksi = New SqlConnection(sql)
Try
If koneksi.State = ConnectionState.Closed Then
koneksi.Open()
End If
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
End Try
End Sub
End Module
Untuk lebih memperjelas nya silahkan lihat gambar dibawah ini
Keterangan Coding koneksi pada gambar diatas
- sql adalah sebuah Deklarasi
- Data Source adalah nama SQL Servernya
- Initial Catalog adalah nama database yang akan di koneksikan pada Project Anda
- Security info adalah Jika anda login di Database SQL Server menggunakan password
- UID adalah User name di SQL server
- PWD adalah Password anda saat login di database SQL Server
- Proses Membuat Modul Konesi Database SQL Server dengan VB.Net telah selesai. Sekarang anda tinggal memangil module tersebut. Jika anda megalami eror, saya sarankan jangan sungkan untuk bertanya kepada yang lebih menguasai atau juga anda bisa berkomentar disini.
subscribe : http://www.ngadimun.com/2016/04/membuat-modul-konesi-database-sql-server.html