Subscribe:

Pages

Labels

Advertisement (468 x 60px )

Ads 468x60px

Search Box

Senin, 19 Maret 2012

Program Simpan, Edit, Hapus dengan SQL Statement

Pada artikel kali ini kita masih membahas tentang program simpan, edit, hapus, tapi sekarang saya akan coba menggunakan perintah SQL statement untuk proses simpan, edit dan menggunakan modul untuk koneksinya, dan menurut saya kode perintah dengan SQL ini lebih mudah dan penulisan koding nya lebih singkat dibandingkan dengan perintah dasar database seperti pada artikel sebelumnya.
Semoga artikel ini bermanfaat buat teman-teman yang ingin belajar pemprograman dengan perintah SQL..,
Pertama tambahkan dulu komponen adodc dan datagrid pada toolbox, kemudian buat desain form seperti ini :
untuk database, sama dengan program simpan, edit, hapus pada artikel sebelumnya.


Jika sudah, sekarang kita buat modul untuk koneksinya, caranya Klik menu project > Add Modul > Open, kemudian tuliskan koding dibawah ini :.

'untuk mendefinisikan string koneksi dan tabel mhs
Public ConN As New ADODB.Connection
Public RSmhs As New ADODB.Recordset

'setting string koneksi dan tabel
Sub koneksi()
Set ConN = New ADODB.Connection
Set RSmhs = New ADODB.Recordset
'buka koneksi ke database
ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\tes.mdb"
End Sub

Jika sudah, Simpan modulnya, kemudian klik 2 kali pada form sampai muncul jendela kode, lalu masukkan kode perintah berikut :

'procedure saat form aktif
Private Sub Form_Activate()
'melakukan koneksi ke database dengan memanggil sub koneksi pada modul
Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\tes.mdb"
'tabel mhs sebagai sumber data untuk adodc
Adodc1.RecordSource = "mhs"
Adodc1.Refresh
'menghubungkan datagrig dengan adodc
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

'perintah untuk mencari data pada tabel mhs dan dari  nrp
 Function CariData()
    Call koneksi
    RSmhs.Open "Select * From mhs where nrp='" & Text1 & "'", ConN
End Function

'perintah untuk menampilkan data dari database ke textbox
Private Sub TampilkanData()
Text2 = RSmhs!nama
Text3 = RSmhs!jurusan
End Sub

'perintah untuk melakukan pencarian pada Text1
Private Sub Text1_LostFocus()
'memanggil fungsi cari data
Call CariData
        If Not RSmhs.EOF Then
'memanggil sub tampil data
            TampilkanData
            MsgBox "NIM siswa Sudah Ada"
            End If
End Sub

'perintah untuk tombol tambah
Private Sub Command1_Click()
'membuat variabel SQLTambah dengan tipe data string
Dim SQLTambah As String
'kode perintah sql untuk menyimpan data ke tabel mhs
            SQLTambah = "Insert Into mhs (nrp,nama,jurusan) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
            ConN.Execute SQLTambah
            Form_Activate
End Sub

'perintah untuk tombol edit
Private Sub Command2_Click()
Dim SQLEdit As String
 'edit data di tabel siswa yang nrp nya sedang dipilih di text1
            SQLEdit = "Update mhs Set nama= '" & Text2 & "'," & " jurusan='" & Text3 & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLEdit
            Form_Activate
End Sub

'kode perintah hapus
Private Sub Command3_Click()
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Jika semua koding sudah diketikkan, jalankan program dengan menekan tombol F5.
catatan : simpan database dan project dalam satu folder.

Sampai disini dulu pembahasan nya,,semoga bisa membantu ^_^.

Download contoh program Disini

Tidak ada komentar:

Poskan Komentar