Membuat Modul Database pd Project Visual Basic

Membuat Modul Database Pada Project Visual Basic

Modul sangat berguna bagi program Visual Basic yang kita buat. Pada modul terdapat kumpulan sub sub yang bisa di panggil kapan saja pada form yang berbeda beda. Ikuti langkah langkah berikut ini untuk membuat Modul di Project Visual Basic Anda.

1. Pilih menu Project, pilih Add Module kemudian terbuka suatu dialog, Click  Open, sehingga sudah muncul Module1 yang masih kosong.

2. Ketikkanlah program yang terdapat di modul berikut ini.

Public Db As New ADODB.Connection
Public RS As New ADODB.Recordset
Public SQL As String

Sub OPENDB()

If Db.State = adStateOpen Then Db.Close
Db.CursorLocation = adUseClient
Db.Open “Provider=MSDASQL.1;Persist Security Info=False;Data Source=Penggajian”

End Sub

Sub ClearFORM(f As Form)

Dim ctl As Control
For Each ctl In f
If TypeOf ctl Is TextBox Then ctl.Text = “”
If TypeOf ctl Is ComboBox Then ctl.Text = “”
Next

End Sub

Sub Center(f As Form)

f.Move (Screen.Width – f.Width) / 2, (Screen.Height – f.Height) / 4

End Sub

Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)

f.CmdProses(0).Enabled = L0
f.CmdProses(1).Enabled = L1
f.CmdProses(2).Enabled = L2
f.CmdProses(3).Enabled = L3

End Sub