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: 7366 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 Modifikasi Link Berita (URL Judul SEO) pada CMS Lokomedia dengan Htaccess
Kali ini kita coba bahas lagi mengenai cms lokomedia, jika anda belum kenal dengan cms lokomedia ..
Menjalankan dan memprogram Pascal, C++ dan Prolog di Linux Dengan Dosbox Emolator
Berawal dari rasa penasaran dengan linux, akhirnya saya coba-coba install linux di laptop saya ..
Tutorial Daftar jadi Anggota di Komputerkampus.com
Registrasi di komputerkampus.com hanya free, tujuannya hanya untuk mendapatkan anggota saja, ..
cara membuat google lansiran (google alerts) dan mengelolanya
Ada ratusan lebih layanan yang dipersembahkan google kepada kita, dan tak jarang layanan tersebut ..

Komentar Via Facebook :

2 Komentar via komputer kampus :

1

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

kereen ....

masih belajar nihh pengen bisa ...

2

joart
13 Desember 2014 - 21:29:16 WIB

Salam kenal dari Kerajinan Furniture Rotan kami memproduksi berbagai jenis produk <a href="http://www.kerajinanfurniturerotan.com" ;>

furniture rotan </a> | <a href="http://www.kerajinanfurniturerotan.com" ;>mebel rotan</a> | <a

href="http://www.kerajinanfurniturerotan. com">rotan sintetis</a> | <a href="http://www.kerajinanfurniturerotan.com" ;>kursi rotan</a> | <a

href="http://www.kerajinanfurniturerotan. com">kerajinan rotan</a> | <a href="http://www.kerajinanfurniturerotan.com" ;>kursi rotan

sintetis</a> | <a href="http://www.kerajinanfurniturerotan.com" ;>furniture rotan minimalis</a> | <a

href="http://www.kerajinanfurniturerotan. com">furniture rotan sintetis</a> | <a href="http://www.kerajinanfurniturerotan.com" ;>furniture

rotan murah</a> | PIN BB : 7D528CF5 | HP : 081 802 412 856 | Website : http://www.kerajinanfurniturerotan.com


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 : 573
Total pengunjung : 313067
Hits hari ini : 2349
Total Hits : 2512720
Pengunjung Online : 11

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