Koneksi Database Dari Kode Program

Pada praktikum kali ini diasumsikan telah memiliki database dengan nama dbnilai, didalam database terdapat tabel nilai dan di dalam tabel telah terisi data seperti pada gambar

Untuk membuat program database ikuti langkah berikut:

- Jalankan program VB

- Tambahkan komponen ADODC ke toolbox

- Pindahkan komponen adodc1 ke dalam form, kemudian koneksikan adodc1 tersebut dengan database sesuai langkah-langkah pada tulisan sebelumnya 

- Tambahkan ke dalam form komponen atau obyek-obyek seperti pada gambar berikut:

- Masuk ke jendela kode editor
- Isikan kode program berikut untuk membuat variabel koneksi, recordsetnya

Dim cs As New ADODB.Connection
Dim rs As New ADODB.Recordset
  

- Copy properties ConnectionString komponen adodc1

- Dobleklik pada for untuk membuat code sub form load, Paste properties ConnectionString pada kode program diantara tanda petik berikut dan ketik kode program berikutnya :

Private Sub Form_Load()
cs.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Sarkominfo\Desktop\dbnilai.mdb;Persist Security Info=False"

rs.Open "nilai", cs, adOpenDynamic, adLockOptimistic

Text1.Text = rs.Fields!id_nilai
Text2.Text = rs.Fields!nama
Text3.Text = rs.Fields!nilai

End Sub

- Dobleklik pada Button ">", ketikkan kode program

Private Sub Command1_Click()
rs.MoveNext
If rs.EOF Then
MsgBox "Data Tidak Ada", vbCritical, "STOP"
Else
Text1.Text = rs.Fields!id_nilai
Text2.Text = rs.Fields!nama
Text3.Text = rs.Fields!nilai
End If
End Sub

- Dobleklik pada Button "<", ketikkan kode program

Private Sub Command2_Click()
rs.MovePrevious
If rs.BOF Then
MsgBox "Data Tidak Ada", vbCritical, "STOP"
Else
Text1.Text = rs.Fields!id_nilai
Text2.Text = rs.Fields!nama
Text3.Text = rs.Fields!nilai
End If

- Dubleklik pada Button ">>", ketikkan kode program

Private Sub Command3_Click()
rs.MoveLast
If rs.EOF Then
MsgBox "Data Tidak Ada", vbCritical, "STOP"
Else
Text1.Text = rs.Fields!id_nilai
Text2.Text = rs.Fields!nama
Text3.Text = rs.Fields!nilai
End If
End Sub


- Dubleklik pada Button "<<", ketikkan kode program

Private Sub Command4_Click()
rs.MoveFirst
If rs.BOF Then
MsgBox "Data Tidak Ada", vbCritical, "STOP"
Else
Text1.Text = rs.Fields!id_nilai
Text2.Text = rs.Fields!nama
Text3.Text = rs.Fields!nilai
End If

- Komponen adodc1 sudah bisa dihapus dari form
- Jalankan Program!!