PROGRAMMING :: Cara mengecek suatu website dibuat dengan bahasa pemrograman php atau tidak

Posted Aug 29th 2012, 10:41

 3  1

Kadang sebagai seorng programmer atau pecinta dunia website, kita sering penasaran sebenernya suatu website tertentu dibuat pake bahasa apa y. Bagi yang sudah berpengalaman pasti langsung tau dengan melihat extensi ( .php ) atau dot php yang ada dibelakang alamat URL website tersebut. Tapi bagaimana kalau sudah dikasih .htaccess dijamin pasti susah mbedainnya. Misalnya kalau pakai framework seperti CodeIgniter, urlnya sudh friendly, dan tanpa ada extensi.php nya...hanyoooo bingung kan.

Berikut ini cara mengecek apakah suatu website dibuat dengan php atau tidak. Caranya ketik alamat website yang akan dicek diikuti dengan kode berikut ini  /?=PHPE9568F36-D428-11d2-A769-00AA001ACF42

Contohnya : 

http://jagocoding.com/?=PHPE9568F36-D428-11d2-A769-00AA001ACF42

Ketikkan di url dan tekan enter, lalu liat hasilnya. Jika website tersebut dibuat menggunakan bahasa pemrograman PHP maka akan muncul gambar PHP 

Simple bukan.....

Coba pakai trik diatas buat ngecek website temen kamu.

Catatan : Trik diatas tidak bisa digunakan pada semua website, karena kemungkinan website tersebut sudah diproteksi

Selamat mencoba.......:-)

RIDIKC INDUSTRIES

RIDIKC INDUSTRIES

Ridikc Indutries Melayai Jasa Pembuatan Program, Software Dan Hardware Untuk Penunjang Kegiatan Kerja Untuk Tugas Mahasiswa, Perorangan, Perusahaan, Maupun Organisasi. Dengan Layanan Full Costumize Dimana Program, Software Dan Hardware Yang Kami Buat Dapat Disesuaikan Dengan Alur dan Proses Bisnis Di Perusahaan Atau Organisasi Maupun Tugas Akhir Kampus Yang Menggunakan Program Atau Software Tersebut. Sehingga Tidak Terjadi Kasus Seperti Perusahaan Yang Harus mengikuti Alur Kerja Namun Kami yang akan menyesuaikan, dan itulah yang menjadi salah satu kelebihan kami dibanding jasa pembuatan program software dan jasa pembuatan hardware microcontroller lain.

Website Ini Merupakan Blog Dari Website Resmi Ridikc Industries | www.fajar-el-ridikc.com

YANG KAMI KERJAKAN

Kami Adalah para programmer dan enginner seniman, dimana yang kami buat bukan sekedar jadi dan kami kirim, namun yang kami kerjakan dituntut untuk sesuai yang dipesan bahkan lebih, dengan unsur keindahan seni yang kami tampilkan, yang kami kerjakan bukan hanya software melainkan juga hardware, Yang kami Produksi Antara Lain :

Kategori Software Management :

1.   Software Management Kantor

2.   Software Klinik

3.   Software Pendidikan/Sekolah

4.   Software Restaurant

5.   Software Managemen Gedung

6.   Software Laundry

7.   Software HRD & Payrool

8.   Software Online Education

9.   Software Test Online

10. Software Pengarsipan & E-Filing

11. Software Manufacture

12. Software Showroom

13. Software Export Import

14. Software Perhotelan

15. Software Travel Agent

16. Software Administrasi

17. Software Koperasi

18. Software Perpustakaan

19. Software Billing

20. Software Tecnical Analyst

21. Software Management Aset

22. Software Point Of Sales

23. Software Inventory

24. Software Akuntansi / Accounting

25. Software ERP

26. Software CRM

27. Software Sistem Produksi

28. Software Management Proyek

29. Software Perkebunan

30. Software Rumah Sakit

31. Dll.. (Sesuai Pesanan)

Kategori Software Kreatif :

1.   Software pendeteksi Wajah (Face Detection)

2.   Software Barcode

3.   Software Sound Analyzer

3.   Software Hacking (Tidak Dianjurkan)

4.   Software Promosi (Auto Posting Jaringan Sosial, Auto Sms, Auto Email,Dll..)

5.   Software Pendeteksi Jari (fingerprint)

6.   Software Pendeteksi Gerakan

7.   Software Autologin

8.   Software Sms Gateway

9.   Software Keamanan Komputer

10. Software Keamanan Rumah/ Kantor

11. Software Berbasis Bluetooth

12. Software Berbasis Wifi

13. Software Berbasis Infrared

14. Software Berbasis Internet

15. Software Berbasis Lan

16. Software Berbasis Microcontroler

17. Software Berbasis Bluetooth 

18. Semua Software yang menggunakan sensor dan pencitraan maupun microcontroler

19. Dll.. (Sesuai Pesanan)

Kategori Website :

1. Website Profil

2. Website Magazine / Portal Informasi

3. Website Kecerdasan Buatan (Ai) / Sistem Pakar

4. Website E-Learning

5. Website Toko Online

6. Website Aplikasi

7. Website Blog

8. Dll.. (Sesuai Pesanan)

Kategori Hardware :

1. Control Relay (lampu,tv,pagar elekronik dll..) dengan bluetooth Berbasis Microcontroler

2. Control Relay (lampu,tv,pagar elekronik dll..) dengan Wifi Berbasis Microcontroler

3. Control Relay (lampu,tv,pagar elekronik dll..) dengan  Finger Print Berbasis Microcontroler

4. Control Relay (lampu,tv,pagar elekronik dll..) dengan  Keypad Berbasis Microcontroler

5. Control Relay (lampu,tv,pagar elekronik dll..) dengan  Finger Print Microcontroler

6. Control Relay (lampu,tv,pagar elekronik dll..) dengan  Finger Print Microcontroler

7. Tekhnologi Aurdurino (Arduino Kreasi Sendiri)

8. Tekhnologi Rasbarry

9. Tekhnologi Intel Galileo

10. Semua Sistem Keamanan dan Absensi

11. Dll.. (Sesuai Pesanan)

YANG KAMI KUASAI

1. Bahasa Pemrograman Desktop VB6.0

2. Bahasa Pemrograman Desktop VB.NET

3. Bahasa Pemrograman Desktop JAVA

4. Bahasa Pemrograman Desktop DELPHI

5. Bahasa Pemrograman Desktop VISUAL C++

6. Bahasa Pemrograman Desktop FLASH

7. Bahasa Pemrograman Desktop C#

8. Bahasa Pemrograman Desktop JAVA

9. Bahasa Pemrograman Desktop PYTHON

10. Bahasa Pemrograman Mobile JAVA

11. Bahasa Pemrograman Mobile FLASH AC3

12. Bahasa Pemrograman Web PHP

13. Bahasa Pemrograman Web HTML

14. Bahasa Pemrograman Web JAVASCRIPT

15. Bahasa Pemrograman Web CSS

16. Bahasa Pemrograman Web ASP

17. Bahasa Pemrograman Rakitan C++

18. Bahasa Pemrograman Rakitan ASSAMBLER

19. Bahasa Pemrograman Rakitan BASIC

YANG KAMI TAWARKAN

1. Program Yang kami buat Berdasarkan Alur bisnis perusahaan

2. User Friendly

3. Multi Akses

4. Support Client Server

5. Garansi Perawatan

6. Manual Book Dan Dokumentasi Software

7. Penjelasan dan keterangan Menggunakan VIDEO

8. Layanan Backup Software

9. Dukungan 24 Jam

TAHAPAN PEMBUATAN PROGRAM

Tahap awal dari proses pembuatan program adalah analisa alur dari program atau software tersebut, kemudian kami mengumpulkan berkas" yang akan di letakkan pada software baik logo gambar maupun fasilitas lainnya, kami membuatkan konsep dari software yang sesuai, membuat dan mengirim 1/4 program dengan ditandai pembayaran DP, Tahap Pengerjaan dan terakhir Pengiriman Software Lengkap dengan Video Dan Manual Book beserta komponen" tambahan (+SOURCE CODE jika digunakan untuk mahasiswa) yang dibutuhkan disertai pembayaran sisa dari jasa pembuatan program software maupun hardware.

MEKANISME PEMBAYARAN 

1. Hubungi kami melalui form Contact atau melalui Telpon dan Email.

2. pembahasan mengenai program yang akan dibuat berupa alur (Flowchart), Hak akses, Platform program, dan lain-lain Melalui Email/Tlp jika wilayah jambi Staff kami akan datang ke lokasi anda untuk melakukan Pembahasan.

3. Jika Kantor, Penerbitan SPK (Surat Perintah Kerja) , Penandatanganan perjanjian dan kontrak kerja. (Abaikan Jika Pribadi Atau Mahasiswa).

4. Jika Diluar Wilayah Jambi Pengiriman ¼ program kemudian Pembayaran uang muka sebesar 50% dari total harga yang telah disepakati

5. Proses pengerjaan dan konsultasi.

6. Setelah program selesai dan terinstal maka pelanggan wajib membayar sisa pembayaran sebesar 50% dari total harga yang telah disepakati.

FORM CONTACT-US

Alamat : Pasir Putih, Kota JAMBI
Tlp : 085369237896
E-Mail : Fajarudinsidik@gmail.com
BB Pin : 573D59DA

BIAYA PEMBUATAN PROGRAM

Harga yang untuk pembuatan program dan alat elektronik ini sangatlah ekonomis namun tetap disesuaikan dengan apa yang dipesan dan diinginkan, Kami menspesialkan mahasiswa karena sebagian besar tenaga ahli adalah mahasiswa yang telah diarahkan Dan prefesional. 

NOTE :: TIDAK HANYA MEMBUAT SOFTWARE KAMI JUGA MENJUAL BERAGAM SOURCE CODE DENGAN BERAGAM BAHASA PEMROGRAMANNYA.

NOTE :: TIDAK HANYA MEMBUAT DAN MENJUAL KAMI JUGA MENYEDIAKAN PELATIHAN PRIVATE KURSUS PEMROGRAMAN DAN MESIN.

# Dan Yang telah Mengikiti Privat Diberi Kesempatan Untuk Bekerja Sama dan Diberi Pekerjaan Apabila Ada pekerjaan Yang memadai dan Telah Dirasa Mampu untuk mengerjakan, 

# MAJU BERSAMA MENCERDASKAN BANGSA..

VB6.0 :: BERSIHKAN ISI SEMUA TEXTBOX PADA FORM VB.NET

Pada VB.6 Control TextBox bisa dibuat array, sehingga untuk membersihkan nya tinggal me-loop array dari Control TextBox tersebut lalu mengosongkan isinya. Pada Paltform .Net objek atau kontrol tidak bisa dibuat array, kalaupun bisa diakalin malah akan menambah syntax-syntax nya makin jelimet.

Dibawah ini contoh memberishkan isi semua TextBox pada form :

Private Sub ClearTextBox(ByVal frm As System.Windows.Forms.Form)
For Each ctl As Control In frm.Controls
If TypeOf ctl Is TextBox Then
CType(ctl, TextBox).Text = String.Empty
End If
Next
End Sub

Penggunaanya di dalam form tersebut :

ClearTextBox(Me)

Perhatian !!! Contoh diatas Jika TextBox anda berada pada form tanpa GroupBox, jika TextBox di form tersebut berada didalam GroupBox maka syntax nya akan berbeda lagi. Perhatikan perbedaanya :

Public Sub ClearTextBoxInBox(ByVal grb As System.Windows.Forms.GroupBox)
For Each ctl As Control In grb.Controls
If TypeOf ctl Is TextBox Then
CType(ctl, TextBox).Text = String.Empty
End If
Next
End Sub

Maka contoh penggunaanya :

CearTextBoxInBox(GroupBox1)

Sedikit penjelasan kedua fungsi diatas, "ctl" didekarasikan sebagai Control langsung pada saat di-looping dengan "for-each" pada syntax :

For Each ctl as Control In grb.Controls

karena yang di-looping objek nya bersifat global (Control), maka untuk pencarian objek TextBox perlu dilakukan validasi control dengan menyertakan TypeOf pada operator bersyarat "If" :

If TypeOf ctl Is TextBox Then

selanjutnya, jika ditemukan maka "ctl" (Control) di-casting ke bentuk object TextBox :

CType(ctl, TextBox).Text = String.Empty

Dan anda bisa melakukan modifikasi jika ingin menghapus isi TextBox pada semua GroupBox didalam form, caranya dengan membuat If Bersarang (If Nested). Pada If pertama lakukan validasi GroupBox, lalu letakan kondisi lagi didalamnya (If kedua) dengan validasi TextBox.

VB6.0 :: PROGRAM SEDERHANA SIMPAN, EDIT, HAPUS PADA VISUAL BASIC 6.0

pada pembuatan program kali ini struktur database yang akan saya gunakan adalah sebagai berikut :
nama database = DBData
nama tabel = mhs
field dari tabel mhs = nrp, nama, jurusan
type data = text

Jika sudah membuat database, untuk koneksi dan menampilkan data dari tabel database kali ini saya akan menggunakan komponen Data, dan DBGrid.

 Setelah menambahkan component DBGrid pada Toolbox, buatlah desain form seperti ini :

Untuk cara koneksi database nya, pada Properties Data1 > DatabaseName cari dan buka file DBData.mdb yang telah kita buat. kemudian masih pada Properties Data1 > Recordsource, pilih = mhs.
seperti pada gambar berikut :

Setelah itu pada DBGrid1 Properties > DataSource atur menjadi Data1.

Sampai disini kita sudah berhasil mengkoneksikan database dengan menggunakan Data1., 
Setelah database sudah terkoneksi dengan form, sekarang kita akan membuat perintah simpan, edit, hapus pada command button.
Pertama klik 2 kali pada Command Button Simpan, kemudian ketikkan koding berikut ini pada jendela kode :

Private Sub Command1_Click()
'Addnew = untuk membuat atau menambah data baru
Data1.Recordset.AddNew
'perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field database
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
'update = perintah untuk mengupdate data yang telah ditambahkan
Data1.Recordset.Update
'perintah untuk merefresh grid ketika data sudah ditambahkan
DBGrid1.Refresh
'perintah untuk mengkosongkan textbox setelah data disimpan
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Kemudian Klik 2 kali pada Command Button Edit, lalu pada jendela kode, ketikkan kode perintah berikut :

Private Sub Command2_Click()
'Edit = untuk mengedit data yang sudah ada
Data1.Recordset.Edit
'perintah untuk menyimpan data yang di sudah di edit
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
Data1.Recordset.Update
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Untuk perintah hapus data, klik 2 kali Command Button Hapus, kemudian ketikkan kode perintah berikut :

Private Sub Command3_Click()
Data1.Recordset.Delete
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Untuk Menampilkan data yang akan di edit pada Textbox, klik 2 kali pada DBGrid1, kemudian ketikkan perintah program berikut :

Private Sub DBGrid1_Click()
'kode perintah untuk menampilkan data yang sudah disimpan di dalam grid ke textbox
Text1.Text = Data1.Recordset!nrp
Text2.Text = Data1.Recordset!nama
Text3.Text = Data1.Recordset!jurusan
End Sub

Jika semua kode program sudah di ketikkan pada jendela kode,,setelah itu jalankan program dengan mengklik tombol run atau tombol F5 pada keyboard.

Sampai disini dulu pembahasan nya, semoga bisa bermanfaat buat teman-teman yang ingin belajar  Pemprograman Visual Basic 6.0.

VB6.0 :: Program Simpan, Edit, Hapus dengan SQL Statement

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

VB6.0 :: Insert, Edit & Delete Data Tabel dengan Visual Basic

Di tutorial Insert, Edit & Delete Data Tabel dengan Visual Basic, anda akan belejar bagaimana menambah record ke database (save data), mengedit record yang telah ada di tabel (edit data) dan menghapus record yang telah ada di tabel (delete data).
Bukalah kembali project yang telah anda buat pada tutorial sebelumnya.
Pada tutorial sebelumnya anda telah membuat admin_from seperti di bawah:


Gambar1. Admin Form
Pilih menu project -> Components atau tekan Crtl+T pada keybord anda. Centang pada"Microsoft ADO Data Control 6.0 (OLEDB)" dan "Microsoft DataGrid Control 6.0 (OLEDB)"kemudian tekan tombol OK. Pada bagian pallet window akan muncul icon seperti yang diberi tanda di bawah, yang diberi tanda merah adalah "Microsoft ADO Data Control 6.0 (OLEDB)"atau disingkat ADODC dan yang diberi tanda biru adalah "Microsoft DataGrid Control 6.0 (OLEDB)" atau disingkat DataGrid.
Gambar 2. ADODC dan DataGrid .
Sekarang pilih menu Project -> Add From, pada window Add Form pilih Form dan tekan tombol Open. Sebuah form baru akan terbentuk. Tambahkan 4 label, 4 text box, 4 button, 1 Adodc dan 1 datagrid, seperti di bawah:
 
Gambar 3.From baru
Kemudian atur properti form tersebut seperti berikut :

Komponen	Properti	Keterangan
Form1	Name : form_product Caption : Product Entry
Label1	Caption : Product ID
Adodc1	Name : ado_product  Caption : Data Product
Text1	Name : txt_prd_ID Text : "" DataSource : ado_product DataField : product_id  Locked : true	DataField diisi dengan nama field pada  tabel yang ingin ditampilkan pada textbox
Label2	Caption : Product Name
Text2	Name :txt_prd_name Text : "" DataSource :ado_product DataField : product_name Locked : true	pada textbox ini akan ditampilkan field product_name
Label3	Caption : Price
Text3	Name : txt_price Text : "" DataSource : ado_product DataField : price  Locked : true
Label4	Caption : Stock
Text4	Name : txt_stock Text : "" DataSource : ado_product DataField : stock  Locked : true
Command1	Name : btn_add Caption : Add
Command2	Name : btn_edit Caption : Edit
Command3	Name : btn_delete Caption : Delete
Command4	Name : btn_close Caption : Close
DataGrid1	Name : dg_product DataSource : ado_product  AllowUpdate : False

Setelah diatur propertinya maka hasilnya akan seperti berikut:

Gambar 4. form_product
Langkah selanjunya, double click pada from dan ketik kode di bawah :

Option Explicit
Public rs_Product As ADODB.Recordset

Private Sub Form_Load()
On Error GoTo salah
'membuka koneksi
Call Koneksi
Set rs_Product = New ADODB.Recordset
Dim SQl As String
'membentuk query untuk menampilkan data
SQl = "select * from product order by product_id"
'membuka tabel 
rs_Product.CursorLocation = adUseClient
rs_Product.Open SQl, conn, adOpenDynamic, adLockOptimistic
'manampilkan data pada datagrid
Set ado_product.Recordset = rs_Product

Exit Sub
salah:
MsgBox err.Description
End Sub

apa yang dilakukan kode di atas adalah membuka koneksi dengan memanggil Sub Koneksi,membuat ADODC.Recordset baru (Set rs_Product = New ADODB.Recordset) dan membuat query untuk membaca record pada tabel. Setelah itu membukan tabel dengan perintah Open(rs_Product.CursorLocation = adUseClient diikuti rs_Product.Open SQl, conn, adOpenDynamic, adLockOptimistic) dan kemudian menampilkanya pada Datagrid.
Sekarang double click tombol Add dan ketik kode berikut:

Private Sub btn_add_Click()
On Error GoTo salah
If btn_add.Caption = "Add" Then
btn_add.Caption = "Save"
'menambah record baru ke tabel
ado_product.Recordset.AddNew

txt_prd_ID.Locked = False
txt_prd_name.Locked = False
txt_price.Locked = False
txt_stock.Locked = False
btn_edit.Enabled = False
btn_delete.Enabled = False
Else
'menyimpan record baru
ado_product.Recordset.Update

txt_prd_name.Locked = True
txt_prd_ID.Locked = True
txt_price.Locked = True
txt_stock.Locked = True
btn_edit.Enabled = True
btn_delete.Enabled = True
btn_add.Caption = "Add"
End If
Exit Sub
salah:
MsgBox err.Description
End Sub

Kode di atas digunakan untuk menambahkan record ke tabel pada database. Sekarang double click pada tombol Edit dan ketik kode berikut :

Private Sub btn_edit_Click()
On Error GoTo salah
If btn_edit.Caption = "Edit" Then
'edit record pada tabel
ado_product.Recordset.Update

txt_prd_ID.Locked = False
txt_prd_name.Locked = False
txt_price.Locked = False
txt_stock.Locked = False
btn_edit.Caption = "Save"
btn_delete.Enabled = False
btn_add.Enabled = False
Else
'simpan perubahan data
'dan kembalikan kondisi tombol dan text box
txt_prd_name.Locked = True
txt_prd_ID.Locked = True
txt_price.Locked = True
txt_stock.Locked = True
btn_add.Enabled = True
btn_delete.Enabled = True
btn_edit.Caption = "Edit"
End If
Exit Sub
salah:
MsgBox err.Description
End Sub

Kode di atas digunakan untuk mengedit record yang telah ada di tabel. Selanjutnya double click tombol Delete dan ketik kode berikut:

Private Sub btn_delete_Click()On Error GoTo salah
Dim pil As VbMsgBoxResult
pil = MsgBox("Are you sure to delete?", vbYesNo + vbQuestion, "Delete")
If pil = vbYes Then
'hapus record
ado_product.Recordset.Delete
'memapilkan kembali record-record tabel
Call Form_Load
End If
Exit Sub
salah:
MsgBox err.Description
End Sub

Kode tersebut digunakan untuk menghapus record yang ada di tabel. Sekarang double click pada ADODC (ado_product) dan ketik kode berikut :

Private Sub ado_product_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)ado_product.Caption = "Data ke-" & ado_product.Recordset.AbsolutePosition & " Dari total " & ado_product.Recordset.RecordCount & " data"
End Sub

Yang terakhir double click pada tombol Close dan ketik kode :
Private Sub btn_close_Click()
Unload Me
End Sub
Sampai disini anda telah selesai membuat form untuk menambah record ke database, mengedit record yang telah ada, dan menghapus record yang telah ada di tabel. Sekarang anda buka form_admin (Gambar 1) dan double click pada tombol Product dan ketik kode berikut:
Private Sub btn_product_Click()
Load form_product
form_product.Show
End Sub 
Sekarang simpan project anda kembali dan cobalah untuk menjalanknya dengan menekan tombol F5 pada keybord atau dengan memilih menu Run -> Start.

---

Di tutorial Membuat Aplikasi Client Server dengan VB dan MYSQL, pokok bahasan Insert, Edit & Delete Data Tabel dengan Visual Basic, anda telah belajar tentang cara insert data ke tabel mysql, edit data, dan delete data yang ada di tabel menggunakan ADODB. Belajar cara menggunakan Microsoft ADO Data Control 6.0 (OLEDB)" atau disingkat ADODC dan "Microsoft DataGrid Control 6.0 "

VB6.0 :: Cara Membuat Input, Hapus, Edit, Cari Data Dengan Visual Basic 6.0

Cara Membuat Input, Hapus, Edit, Cari Data Dengan Visual Basic 6.0

1. Jalankan program visual basic 6.0 
2. Buat form seperti gambar di bawah ini. jika sudah nanti anda tinggal mengisi source code dari form- form yang sudah di buat seperti ini :

3. Jangan lupa untuk membuat modul yang di fungsikan untuk pengkoneksian data base access. dengan nama "Module1" dan isilah koding seperti di bawah ini :

Public koneksi As ADODB.Connection
Public rs1 As ADODB.Recordset
Public rs2 As ADODB.Recordset
Public rs3 As ADODB.Recordset
Public profil As Integer 'VARIABLE YG MENENTUKAN ADMIN ATAU OPERATOR
Public nopeltiket As String 'VARIABLE TIKET LAN KONCO2
Public jamtiket As Date
Public tanggaltiket As Date

Sub starkoneksi()
Set koneksi = New ADODB.Connection
  If koneksi.State = adStateOpen Then
        koneksi.Close
        Set koneksi = New ADODB.Connection
  End If
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbsewa.mdb"
End Sub

4. Memulai pengisian koding pada form2 yang sudah kita buat seperti di atas dengan koding di bawah ini :

Private Sub urip()
txtidpenyewa.Enabled = True
txtnama.Enabled = True
txtalamat.Enabled = True
txtlahir.Enabled = True
DTPicker1.Enabled = True
cmbjeniskel.Enabled = True
txtpekerjaan.Enabled = True

End Sub
Private Sub mati()
txtidpenyewa.Enabled = False
txtnama.Enabled = False
txtalamat.Enabled = False
txtlahir.Enabled = False
DTPicker1.Enabled = False
cmbjeniskel.Enabled = False
txtpekerjaan.Enabled = False
End Sub
Private Sub bersih()
txtidpenyewa.Text = ""
txtnama.Text = ""
txtalamat.Text = ""
txtlahir.Text = ""
cmbjeniskel.Text = ""
txtpekerjaan.Text = ""
End Sub

Koding diatas difungsikan untuk mempermudah atau mempersingkat pengkodingan dalam program ini, maka dari itu saya buatkan fungsi-fungsi seperti diatas agar gapat mempersingkat koding dan mudah dalam pengkodingan

5. buat koding 'Tambah' pada Command1Buttem yang bernama"Command1" seperti di bawah ini ya...

Private Sub Command1_Click()
Command2.Enabled = False
Command3.Enabled = False
If Command1.Caption = "Tambah" Then
Call urip
Call bersih
Command1.Caption = "Simpan"
   
ElseIf Command1.Caption = "Simpan" Then
If txtidpenyewa.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" Or txtlahir.Text = "" Or cmbjeniskel.Text = "" Or txtpekerjaan.Text = "" Then
MsgBox "DATA BELUM LENGKAP", vbCritical, "PERIKSALAH LAGI"
Else
pertanyaan = MsgBox("Apakah Anda Yakin...??", vbYesNo, "Pertanyaan")
 If pertanyaan = vbYes Then
 adopenyewa.Recordset.AddNew
    adopenyewa.Recordset!idpenyewa = txtidpenyewa.Text
    adopenyewa.Recordset!nama = txtnama.Text
    adopenyewa.Recordset!alamat = txtalamat.Text
    adopenyewa.Recordset!tempatlahir = txtlahir.Text
    adopenyewa.Recordset!tgllahir = Format(DTPicker1.Value, "dd/mm/yyyy")
    adopenyewa.Recordset!jeniskelamin = cmbjeniskel.Text
    adopenyewa.Recordset!pekerjaan = txtpekerjaan.Text
    adopenyewa.Recordset.Requery
    MsgBox "Data Berhasil di Simpan", vbInformation, "Simpan Data"
    Command1.Enabled = True
    Call mati
    Command1.Caption = "Tambah"
End If
End If
End If
End Sub

6. Jika sudah buat koding seperti di bawah ini pada "Command2" yang digunakan untuk 'Edit' adapun koding nya seperti di bawah ini :

Private Sub Command2_Click()

Command1.Enabled = False
Command3.Enabled = False
If Command2.Caption = "Edit" Then
Call urip
txtidpenyewa.Text = adopenyewa.Recordset!idpenyewa
txtnama.Text = adopenyewa.Recordset!nama
txtalamat.Text = adopenyewa.Recordset!alamat
txtlahir.Text = adopenyewa.Recordset!tempatlahir
DTPicker1.Value = adopenyewa.Recordset!tgllahir
cmbjeniskel.Text = adopenyewa.Recordset!jeniskelamin
txtpekerjaan.Text = adopenyewa.Recordset!pekerjaan
Command2.Caption = "Simpan"
   
ElseIf Command2.Caption = "Simpan" Then
If txtidpenyewa.Text = "" Or txtnama.Text = "" Or txtalamat.Text = "" Or txtlahir.Text = "" Or cmbjeniskel.Text = "" Or txtpekerjaan.Text = "" Then
MsgBox "DATA BELUM LENGKAP", vbCritical, "PERIKSALAH LAGI"
Else
pertanyaan = MsgBox("Apakah Anda Yakin Merubah Datanya...??", vbYesNo, "-Pertanyaan-")
 If pertanyaan = vbYes Then
    adopenyewa.Recordset.Update
    adopenyewa.Recordset!idpenyewa = txtidpenyewa.Text
    adopenyewa.Recordset!nama = txtnama.Text
    adopenyewa.Recordset!alamat = txtalamat.Text
    adopenyewa.Recordset!tempatlahir = txtlahir.Text
    adopenyewa.Recordset!tgllahir = Format(DTPicker1.Value, "dd/mm/yyyy")
    adopenyewa.Recordset!jeniskelamin = cmbjeniskel.Text
    adopenyewa.Recordset!pekerjaan = txtpekerjaan.Text
    adopenyewa.Recordset.Requery
    MsgBox "Data Berhasil di Rubah", vbInformation, "Simpan Data"
    Call mati
    Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
End If
End If
End If
End Sub
7. Koding hapus data dapat anda ketik kan seperti di bawah pada Command5 dengan nama 'Hapus'

Private Sub Command5_Click()
MsgBox "anda yakin menghapus data ini", vbOKOnly, "PERTANYAAN"
adopenyewa.Recordset.Delete
adopenyewa.Recordset.Requery
End Sub

8. Lalu untuk buttom "Batal" anda ketikkan koding seperti di bawah ini ..

Private Sub Command4_Click()
Command1.Enabled = True
Call bersih
Command1.Caption = "Tambah"
End Sub

9. Untuk DataGrid1 anda harus menambahkan koding dibawah ini agar ketika diklik untuk edit dan hapus datanya bisa tampil.

Private Sub DataGrid1_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
txtidpenyewa.Text = adopenyewa.Recordset!idpenyewa
txtnama.Text = adopenyewa.Recordset!nama
txtalamat.Text = adopenyewa.Recordset!alamat
txtlahir.Text = adopenyewa.Recordset!tempatlahir
DTPicker1.Value = adopenyewa.Recordset!tgllahir
cmbjeniskel.Text = adopenyewa.Recordset!jeniskelamin
txtpekerjaan.Text = adopenyewa.Recordset!pekerjaan
End Sub

10. Untuk yang terakhir kalinya anda tambahkan koding pada Form_Load agar ketika program input, hapus, edit dapat menampilkan datanya pada DataGrid 

Private Sub Form_Load()
Call starkoneksi
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
rs1.Open "select * from tbpenyewa", koneksi, adOpenStatic
End Sub