Pages

Thursday 5 January 2012

Mengubah Isi Database dari Form VB

Materi berikutnya yaitu mangolah database dari form yang telah dibuat pada pertemuan sebelumnya, yaitu dengan menambahkan command button edit, tambah dan hapus seperti pada gambar berikut:



- Masuk ke jendela kode editor
- Buat private sub sqlQuery untuk memudahkan anda memanggil perintah-perintah SQL pada private sub lainnya

Private Sub sqlQuery(SQLstr As String)
cs.Execute SQLstr
End Sub

- Buat private sub kosong untuk mengosongkan isi text ketika button edit, tambah dan hapus di klik

Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

- Dobelklik pada button edit, kelik kode skrip berikut

Private Sub Command5_Click()
sqlQuery "Update nilai set nama ='" & Text2.Text & "', nilai = " & Text3.Text & " where id_nilai = " & Text1.Text & ";"
kosong
End Sub

- Dobelklik pada button tambah, ketik kode skrip berikut

Private Sub Command6_Click()
sqlQuery "INSERT INTO nilai values ('" & Text1.Text & "' ,'" & Text2.Text & "','" & Text3.Text & "');"
kosong
End Sub

- Dobelklik pada button hapus, ketik kode skrip berikut

Private Sub Command7_Click()
sqlQuery "Delete from nilai where id_nilai = " & Text1.Text & ";"
kosong
End Sub

No comments:

Post a Comment