Komputer kampus

Anda sedang di : HomePemrograman › Program Simpan, Edit, Hapus dengan SQL Statement

Artikel Berdasarkan Tag   hacking     cms lokomedia     google     template     email     materi kuliah     ubuntu     backtrack 5     windows xp     windows 7     database     visual basic     foxpro     opensuse     netbeans     STMIK Indonesia     domain     hosting     SEO     adsense     HTML     CSS     Javascript     PHP     lainnya     bisnis online     tips dan trik     internet     tutorial     hiren boot cd     virtualbox     flashdisk     facebook     website     cracking    

Program Simpan, Edit, Hapus dengan SQL Statement

Diposting oleh : Hazmi Fadhilah
Senin, 19 Maret 2012 - 21:54:06 WIB - Kategori: Pemrograman - Dibaca: 6762 kali

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 ^_^.

Artikel ini juga saya post di blog saya : http://fadilcrows.blogspot.com/2012/03/program-simpan-edit-hapus-dengan-sql.html 

DOWNLOAD CONTOH PROJECT VISUAL BASIC
http://komputerkampus.com/file/31latihan_sql.rar/




    Via FeedBurner
Cara install manual NetBeans IDE 7.1 di linux (debian, ubuntu, backtrack, mint)
Netbeans merupakan project terbuka (open source) dan bebas (free) untuk penggunaan komersial dan ..
Cara mudah memanajemen email @facebook anda ke pesan facebook
Setelah sebelumnya membahas mengenai cara meklaim email facebook, sekarang kita akan membahas ..
Daftar NIP dan NIK Dosen-dosen STMIK Indonesia Banjarmasin
Sudah lama banget ga posting di website ini, berhubung beberapa kendala yang saya alami, namun ..
Tips Mengetahui Username dan Password Tersimpan di Firefox pada windows dan linux
Baiklah kali ini saya ingin berbagi tips lagi, masih seputar username dan password, sebelumnya ..

Komentar Via Facebook :

1 Komentar via komputer kampus :

1

Abdul rosyid
15 November 2012 - 12:53:21 WIB

kereen ....

masih belajar nihh pengen bisa ...


Form Komentar Via Komputer kampus :

Nama *
Email *
Web/blog
Komentar *
  Karakter yang masih tersedia.
Captcha *

Untuk menghindari kontak spam dan memastikan bahwa anda adalah seorang manusia, maka jawablah pertanyaan keamanan berupa foto sahabat disamping. Mohon maaf atas ketidak nyamanan ini

 

M Najamudin Ridha Kuliah di STMIK Indonesia Banjarmasin jurusan TI, mengenal internet di tahun 2009 yang saat itu cuma sekedar iseng-iseng bikin blog biasa, walaupun sebelumnya tidak suka membaca dan apalagi menulis (artikel) akhirnya mulai menyukai kedua hal tersebut.

Kategori Artikel


RSS Feed


Langganan RSS
komputerkampus.com


Cari Artikel



Statistik Web


Pengunjung hari ini : 332
Total pengunjung : 300022
Hits hari ini : 1381
Total Hits : 2390562
Pengunjung Online : 7

Poling


Apa OS yang anda gunakan ?
windows (xp, vista, 7, 8 dll)
linux (all distro linux)
Mac OS
OS Lain

    Lihat Hasil Poling

Link Sahabat


http://bukulokomedia.com
http://fadilcrows.blogspot.com
http://najamudin1.blogspot.com
http://nahdisnape.blogspot.com

Link Lainnya