ini yakni teladan module pada contoh Program Visual Basic (VB) Penerimaan karyawan baru
Langkah pertama buka aplikasi Visual Basic
- pilih "project" pada sajian bar
- dan pilih "add module"
- pastekan dibawah ini
Public KON As New ADODB.Connection
Public rsdatapelamar As ADODB.Recordset
Public rsjadwaltest As ADODB.Recordset
Public rstanggaltest As ADODB.Recordset
Public rskaryawan As ADODB.Recordset
Public rslolostest As ADODB.Recordset
Public rsgagaltest As ADODB.Recordset
Public rstanggalmedical As ADODB.Recordset
Public rsjadwalmedical As ADODB.Recordset
Public rsgagalmedical As ADODB.Recordset
Public rslolosmedical As ADODB.Recordset
Public rsuser As ADODB.Recordset
Sub koneksi()
'MEMBUKA OBJEK
Set KON = New ADODB.Connection
Set rsdatapelamar = New ADODB.Recordset
Set rsjadwaltest = New ADODB.Recordset
Set rskaryawan = New ADODB.Recordset
Set rstanggaltest = New ADODB.Recordset
Set rslolostest = New ADODB.Recordset
Set rsgagaltest = New ADODB.Recordset
Set rsjadwalmedical = New ADODB.Recordset
Set rstanggalmedical = New ADODB.Recordset
Set rsgagalmedical = New ADODB.Recordset
Set rslolosmedical = New ADODB.Recordset
Set rsuser = New ADODB.Recordset
KON.ConnectionString = "DSN=penerimaankaryawan"
KON.Open
End Sub