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

VB6.0 :: Koneksi Database Access Menggunakan ADODB Dengan VB6

1. Buat satu database dan tabel pada access. Untuk tulisan kali ini saya menggunakan access 2007. Adapun caranya adalah sebagai berikut : 

Buka aplikasi access yang tersedia, kemudian klik New Blank Database seperti pada gambar dibawah ini.

Ubah file dari database yang akan dibuat seperti pada gambar dibawah kemudian klik browse untuk menyimpan kedalam folder penyimpanan file project dan database nanti. Pada tulisan ini saya masukkan pada folder dengan nama Catatan VB6.

Ubah save as type menjadi Microsoft Access Databases (2000-2003 format)-Kemudian tekan tombol OK - Kemudian tekan tombol create

Buat struktur field dengan menekan icon View dan pilih design view. Seperti pada gambar dibawah ini dan kemudian simpan tabel dengan nama pegawai.

Berikut struktur tabel yang harus dibuat :

Kemudian isi data pada tabel yang telah dibuat.

2. Setelah tabel dibuat, maka database pada program telah siap. Setelah itu jalankan Microsoft Visual Basic 6.0. Pilih Standard EXE-Tekan tombol Open.

3. Simpan project dengan nama koneksi dan form dengan frkoneksi. Kemudian tambahkan komponen datagrid pada form untuk menampilkan data dari tabel access yang telah dibuat sebelumnya. Dengan cara klik menu project pilih component.

4. Cari file .ocx dengan nama Microsoft DataGrid Control 6.0 (OLEDB). Kemudian tekan tombol OK. Dan akan muncul component datagrid pada toolbox.

5. Masukkan komponen datagrid pada form dengan cara klik icon toolbox datagrid dan geser ke arah form. Dan atur lebar datagrid seperti pada gambar berikut dan desain form seperti pada gambar.

6. Langkah berikutnya adalah mensetting koneksi ADODB agar bisa dimasukkan ke dalam file module. Adapun caranya adalah dengan mengklik menu project-references.

7. Cari file library dengan nama Microsoft ActiveX Data Object 2.6 Library dan kemudian centang dan tekan tombol OK.

8. Langkah berikutnya adalah memasukkan kode koneksi database melalui file module. Cara memasukkan file module adalah dengan mengklik menu project-add module-Open.

9. Masukkan code program untuk koneksi database dan tabel  pada file module yang telah dibuat dan setelah selesai simpan file module tersebut. Adapun kode program yang dimasukkan adalah sebagai berikut :

*) Untuk bagian yang diarsir, kode program disambung.

10. Masukkan kode program untuk koneksi ke database pada form dengan kode program sebagai berikut : 

11. Kemudian jalankan form yang telah dituliskan kode program dengan menekan tombol F5 atau icon Start. Dan berikut hasil kode program untuk koneksi ke database.

Demikian cara koneksi database Access menggunakan ADODB dengan VB6, dan jika ada pertanyaan mengenai pembahasan pada tulisan ini silahkan untuk berkomentar. Semoga pembaca dapat memahami apa yang saya tulis.

VB6.0 :: SOURCE CODE KONEKSI DATABASE DENGAN ADODB DI VB6.0

Option Explicit
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Dim mvBookMark As Variant

Public Sub Koneksi()
'buat string koneksi baru ke database
Set conn = New ADODB.Connection
'buka string koneksi ke database target
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\dbMedis.mdb;Persist Security Info=False"
'tentukan lokasi korsur sebagai client
conn.CursorLocation = adUseClient
End Sub

Sub tampilDataGrid()
'buka tabel Latihan
rs.Open "select * from TRANS_CEK_MEDIS", conn
'baca tabel anggota hingga record terakhir
With rs
 If Not (.BOF And .EOF) Then
 mvBookMark = .Bookmark
 End If
End With
'hubungkan datagrid ke tabel Latihan
Set DataGrid1.DataSource = rs.DataSource
End Sub



Private Sub Form_Load()
Call Koneksi
Call tampilDataGrid
End Sub

VB6.0 :: Code Simpan, Cari, Edit dan hapus data pada Visual Basic 6.0 dengan ADODC DAN ADODB

Berikut adalah comtoh penulisan code vb6 untuk simpan, cari, ubah dan hapus data dengan menggunakan Data Control, ADODC, dan ADODB. (codenya basic/pemula)

Code-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya.




1. DATA CONTROL

Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data

---

#Simpan Data : 
Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Refresh

---

#Pencarian Data :
Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
     Text1.Text = Data1.Recordset!namakolom1
     Text2.Text = Data1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

---

#Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Refresh

---

#Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Delete
Data1.Refresh

---

2. ADODC

---

#Simpan Data :
Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh

---

#Pencarian Data :

Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
     Text1.Text = Adodc1.

red;">Recordset!namakolom Text2.Text = Adodc1.Recordset!namakolom2

Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

---

#Edit Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.

Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh

---

#Hapus Data :
Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset.Delete
Adodc1.Refresh

---

3. ADODB
Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini

---

#Simpan Data :
ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" +  Text2.Text + "')"

---

#Pencarian Data
Set Rs = New Adodb.Recordset

Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado

If Not rs.EOF Then

     Text1.Text = rs("namakolom1")
     Text2.Text = rs("namakolom2")
Else 
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if 

---

#Edit Data

ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _
                    "',[namakolom2]='" + Text2.Text + _
                    "' WHERE [nama kolom1]='" + TextCari.Text + "'"

Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc

---

#Hapus Data
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"

Code diatas tidak memerlukan lagi kode pencarian seperti code hapus untuk DATA dan Adodc

PHP :: Program Sistem Pakar Diagnosis Kerusakan Komputer Web Based

Berikut Spesifikasi Program Sistem Pakar Diagnosis Kerusakan Komputer.

Kelebihan :

1. Menggunakan Framework Bootstrap
2. Tampilan dinamis dan responsive
3. GUI User Friendly
4. Terintegrasi dengan Database

Kekurangan :

1. Tidak memiliki kontrol admin
2. Penambahan KB (Knowledge Base) Manual
3. Aplikasi hanya untuk Client (User)
4. Tidak memiliki sistem login

Berikut Tampilan Program Sistem Pakar Diagnosis Kerusakan Komputer.

Tampilan Menu Utama 

Tampilan Menu Diagnosis

Tampilan Diagnosis

Berikut Link Download

Via TusFile
Program Sistem Pakar Diagnosis Kerusakan Komputer

Database Sistem Pakar Diagnosis Kerusakan Komputer

 

Via 4Shared
Program Sistem Pakar Diagnosis Kerusakan Komputer

Database Sistem Pakar Diagnosis Kerusakan Komputer

sumber ::  Indra Lesmana dan Unaesatul Khasanah.

ACTIONSCRIPT :: Membangun Aplikasi Android via Adobe Flash CS5 Professional (dengan Teknologi Adobe AIR)

Bumbu-bumbu yang diperlukan adalah:

1. Android SDK (Windows/Mac) –> http://developer.android.com
2. Adobe Flash CS5 Professional –> http://www.adobe.com/products
3. AIR 2.5 runtime untuk Android –> http://labs.adobe.com/technologies/air2/android atauhttp://prerelease.adobe.com (sign-up now to participate in the AIR for android prerelease program)
4. AIR for Android extension untuk Flash CS5 Professional –> link yang sama dengan point (3)
5. (Tentu saja) Pengetahuan Anda tentang Flash CS5 IDE (Flash authoring tool) dan actionscript 3.0.   :)

Saya asumsikan bahwa bumbu-bumbu di atas sudah Anda miliki.

Secara garis besar, alur yang akan kita lakukan adalah:

1. Menyiapkan komputer kita, sehingga koneksi USB ponsel Android bekerja dengan baik pada komputer Anda.
2. Meng-install AIR 2.5 runtime ke dalam ponsel Android (Eclair/FroYo).
3. Meng-install AIR for Android extension untuk Flash CS5 Professional.
4. Membangun applikasi Android di dalam Flash CS5 Professional.
5. Mem-publish applikasi yang sudah Anda bangun dan Meng-install aplikasi tersebut ke dalam ponsel Android Anda.

Bismillah… Semoga penjelasan saya di bawah ini cukup deskriptif.

===== LANGKAH PERTAMA =====
Anda extract terlebih dahulu bumbu (1) ke suatu direktori dalam hardisk Anda. (Dalam kasus ini, saya extractandroid-sdk_r06-windows.zip ke dalam direktori C:\Program Files\)
Apabila sudah berhasil di-extract, klik ganda SDK setup.exe sehingga muncul window seperti di bawah

Bila Anda pengguna OS Windows, klik Available Packages dan check USB Driver Package > Install Selected > Install. Tahap ini bertujuan agar koneksi antara USB komputer Anda dengan ponsel Android berfungsi dengan baik. Untuk pengguna OS Mac langkah ini tidak diperlukan.

Sambungkan ponsel Android Anda melalui USB dan uji apakah langkah pertama ini sudah dilakukan dengan benar atau belum. Pada command prompt atau terminal ketik

    cd C:\Program Files\android-sdk-windows\tools

lalu

    adb devices

Bila benar, pada command prompt akan muncul

    * daemon started successfully *
    List of devices attached
    ID_Android_Device_Anda    Device

===== LANGKAH KEDUA =====
Copy-kan bumbu (3), Runtime_Device_Froyo_20100517.apk, ke dalam direktori C:\Program Files\android-sdk-windows\tools
lalu ketik dalam command prompt

    adb install Runtime_Device_Froyo_20100517.apk

Tunggu hingga muncul

    pkg: /data/local/tmp/Runtime_Device_Froyo_20100517.apk
    Success

Bila tulisan ‘Success’ muncul, itu artinya AIR 2.5 Runtime telah berhasil di-install di dalam ponsel Android Anda.

===== LANGKAH KETIGA =====
Install AIR for Android extension dengan cara klik ganda pada bumbu (4), AIRforAndroid_FlashCS5_070510.zxp.

Secara otomatis program Adobe Extension Manager CS5 akan terbuka. Pada confirmation window-nya klik Accept/Yes.

Instalasi telah berhasil dilakukan.

===== LANGKAH KEEMPAT =====
Buka program Adobe Flash CS5 Professional. Pada Welcome Screen akan muncul satu opsi tambahan di bagianCreate from Template,

Klik pada opsi tersebut (AIR for Android) > OK.

Untuk contoh kali ini, kita hanya akan membuat sebuah aplikasi sederhana, yaitu aplikasi drag-n-drop.
Dalam file Flash Anda, siapkan dua buah layer, layer actions dan layer circle. Setting background stage menjadi hitam.

Pada layer circle, buat sebuah lingkaran 100×100 pixels. Convert to Symbol (F8), beri nama mcCircle dengan registration point di tengah.

Selanjutnya, beri instance name circle_mc.

Kemudian, seleksi frame 1 layer actions. Ketikkan kode actionscript berikut

    circle_mc.addEventListener(MouseEvent.MOUSE_DOWN, goDrag);
    stage.addEventListener(MouseEvent.MOUSE_UP, goDrop);
    function goDrag(e:MouseEvent):void
    {
       circle_mc.startDrag();
    }
    function goDrop(e:MouseEvent):void
    {
       circle_mc.stopDrag();
    }

Simpan file Flash ini dengan nama Test.fla. Test applikasi dengan menekan Ctrl+Enter atau Cmd+Return.
Selain Test.swf, hasil compile yang muncul adalah Test-app.xml. Buka file Test-app.xml tersebut pada program text-editor apapun.
Perhatikan tag XML yang saya tandai dengan persegi merah!

Bila pada file Anda tertulis <version>1.0.0</version>, maka Anda harus mengubah tag dalam file Test-app.xmltersebut agar menjadi <versionNumber>1.0.0<versionNumber>. Jika tidak dilakukan, informasi yang saya baca dari dokumentasinya, Anda tidak akan bisa mem-publish file Flash ini menjadi file .apk (.apk merupakan ekstensi yang diterima Android).

===== LANGKAH KELIMA =====
Kita menuju publish setting (File > AIR Android Setting). Pada tab General, ikuti input berikut

Pada tab Deployment, klik Browse certificate. Jika belum punya, pilih create.
Lalu, masukkan password untuk certificate yang baru saja Anda buat. Kemudian, pilih salah satu opsi Android Deployment Type-nya. Dalam bagian After Publish, klik Browse lokasi Anda meng-extract Android SDK yang sudah dilakukan di LANGKAH PERTAMA.

Di bagian yang saya beri tanda persegi merah, itu bersifat opsional. Bila Anda memiliki ponsel Android dan sudah terhubung dengan komputer Anda, aplikasi yang baru saja Anda buat di Flash secara otomatis sudah ter-install dalam ponsel Anda. Akan tetapi, bila Anda tidak memiliki ponsel Android, pilihan tersebut jangan di-check.
Terakhir, klik Publish.

File Test.apk siap untuk didistribusikan.

Untuk melihat versi pdfnya, silakan download file ini. Semoga bermanfaat.

(Tambahan: Karena banyak yang meminta file extension-nya, saya upload-kan filenya di sini.

pass –> rulyardiansyah.wordpress.com

contents –> Runtime_Emulator_Froyo_20100930.apk, Runtime_Device_Froyo_20100930.apk, AIRforAndroid_FlashCS5_092910.zxp)

sumber