ANDROID :: Cara Update Android SDK

Artikel ini adalah kelanjutan dari artikel sebelumnya, Setelah anda sukses menginstall ADT bundle,  langkah selanjutya adalah mengupdate Android SDK. Loh baru diinstall kok langsung di update?

Secara default, ADT bundle hanya berisi Platform terbaru dari Android. Jika anda dowload ADT dan install sekarang( Nov 2013) , maka saya yakin default Platform yang terinstall hanya untuk versi Kitkat. Kenyataan dilapangan, Kebanyakan android yang terinstall adalah GB, ICS dan Jellybean. Makanya kita perlu update android SDKnya.

Caranya Instalasinya  sebagai berikut :

1. Buka eclipse lalu klik menu Windows -> Android SDK Manager
2. Akan tampil jendela seperti dibawah ini, centanglah Platform yang ingin anda install, saya sarankan installlah Jellybean 4.1.2 (API 16) , ICS 4.0.3 (API 15) dan Giberbread 2.2.3 (API 10)

Instalasi ini bisa berlangsung berjam jam jika koneksi anda lambat, file yang didownload bisa sampai ratusan megabyte. Saya sayarankan cukup install 3 Platform tersebut, jika tetap saja insall lama, saya sarankan install platform yang sesuai dengan Device /Smartphone yang anda miliki.

Ingin lebih cepat lagi, Cukup insall SDK Platform, ARM System Image dan Google API di masing masing API level yang ingin anda install.

Langkah selanjutnya cukup klik install dan Accept semua lisensinya. Anda tunggu saja sampai instalasi selesai. Karena Instalasi bisa memakan waktu lama, cukup minimize saja jendela Android SDK managernya dan anda bisa meneruskan coding atau mengerjakan hal lain.

Penjelasan Komponen Android SDK

Secara umum, komponan dari Android SDK ada 3 yaitu Tools, Android API dan Extras.

Android Tools

Bagian pertama dari Android SDK adalah Android Tool, bagian ini berisi tool tool yang digunakan untuk kompilasi, debuging dan mengkonversi file class menjadi dex serta mengkonversi dex menjadi APK. Intinya, Tools adalah komponen paling penting di SDK yang melakukan semua proses dibelakang layar saat anda meRUN aplikasi di emulator ataupun membuat APK.

Android API

Android API adalah library, file, dokumentasi dan termasuk didalamnya emulator yang bisa kita pakai untuk membuat aplikasi yang spesifik untuk versi android tertentu. Agar anda tidak bingung, Google menggunakan API Level untuk mengetahui versi android paling rendah yang bisa mengnstall aplikasi yang kita buat. Google menggunakan nama makanan penutup agar lebih ramah  ditelinga orang awam (pemakai/konsumen); contohnya Gingerbread atau Ice cream sandwidch, mengunakan nama versi seperti 4.0.3 untuk para geekyang paham dan suka ngoprek android dan mengunakan API level untuk programer. Ketiganya mengacu pada satu versi android tertentu. Untuk lebih detailnya lihat Tabel dibawah ini.

No	Nama	Versi	API Level
1	Cupcake	1.5	3
2	Donut	1.6	4
3	Ecleir	2.0	5
4	Ecleir	2.1	7
5	Froyo	2.2	8
6	Gingerbread	2.3	10
7	HoneyComb	3.0	11
8	HoneyComb	3.1	12
9	HoneyComb	3.2	13
10	Ice cream sandwidch	4.0.3	15
11	Jelly Bean	4.1.2	16
12	Jelly Bean	4.2	17
13	Jelly Bean	4.3	18
14	Kitkat	4.4	19

Penjelasan

Jika google merilis versi baru android namun masih mempunyai nama yang sama, artinya fiturnya hanya perbaikan dan peningkatan fitur yang ada, tidak ada perubahan drastis di OS android itu sendiri. Contohnya adalah Honeycomb dan Jellybean yang rilis sampai 3 kali.

API Level kok terkesan tidak urut? Sebenarnya API level dimulai dari level 1 sampai terakhir adalah level 19, Level yang tidak tercantum di tabel artinya tidak dipakai lagi entah karena bug, tidak stabil atau karena alasan lain.

Masing masing android API ini mempunyai 5 komponen yaitu:

1. SDK platfrom, tool spesifik untuk  mengkompilasi dan membuat apk
2. Sample SDK, berisi contoh contoh kode aplikasi android yang bisa kita pelajari. biasanya contoh  disiini menjelaskan cara memakai fitur spesifik di API Level tersebut.
3. ARM System image dan Intel System Image Singkatnya ini adalah Emulator.
4. Google API berisi fungsi fungsi tambahan yang dipakai jika aplikasi android anda mengakses Layanan Google. Misalkan anda ingin membuat aplikasi yang terintegrasi Google maps, maka Google API wajb anda install.
5. Source code , Berisi source code android. Diperuntukan hanya untuk yang suka ngoprek dan mendalami bagaimana code android dibuat. Source code ini tidak kita pakai saat kita membuat program android. Namun bagi orang yang suka ngoprek atau mau membuat room sendiri, anda bisa melihat source codenya disini. Pihak yang paling mendapat untung dari Source code Android ini adalah pihak manufaktur seperti Samsung dan HTC karena mereka bisa mengcustom android sampai ke akar akarnya.

Extras

Extras adalah Komponen android SDK yang bersifat Opsional. Anda menginstall komponen di extra jika dirasa perlu saja. Contohnya misalkan anda ingin membuat aplikasi yang terintegrasi AdMob(iklan di mobile), anda cukup install Google AdMob Ad SDK. Berikut ini penjelasan bagian extra secara lebih mendetail:

1. Google Play Service, di install jika anda ingin membuat aplikasi berbayar, membuat aplikasi berbasis Layanan Google seperti Google maps atau menerapkan inApp Billing.
2. Google AdMobs SDK membuat aplikasi yang bisa menampilkan iklan, mirip adsense.
3. Google Analytics App Tracking, mengintergrasikan google analitics kedalam android, Jika anda ingin membuat aplikasi dan melacak ‘halaman’ apa yang paling sering di buka oleh user, anda bisa melakukannya dnegan Google analytics App Tracking.
4. Android Suport library, dipakai untuk membuat aplikasi yang terlihat modern untuk user yang masih memakai Froyo atau GIngerbread.
5. Lain lain Yang tidak saya sebutkan, tidak terlalu penting, saya sendiri kurang tau apa manfaatnya.

Sekian, artikel selanjutnya akan membahas struktur direktori Android SDK.

ANDROID :: Source Code Aplikasi Gis Berbasis Android

Menu android mainfest :


<?xml version="1.0" encoding="utf-8"?>
<manifest xmlns:android="http://schemas.android.com/apk/res/android"
      package="com.widhie.skripsi.activity"
      android:versionCode="1"
      android:versionName="1.0">
    <uses-sdk android:minSdkVersion="8" />
    <uses-permission android:name="android.permission.ACCESS_COARSE_LOCATION"></uses-permission>
    <uses-permission android:name="android.permission.ACCESS_FINE_LOCATION"></uses-permission>
    <uses-permission android:name="android.permission.ACCESS_MOCK_LOCATION"></uses-permission>
    <uses-permission android:name="android.permission.INTERNET"></uses-permission>

    <application android:icon="@drawable/icon" android:label="@string/app_name">
    <uses-library android:name="com.google.android.maps" />
        <activity android:name=".SplashLoading"
                  android:label="@string/app_name">
            <intent-filter>
                <action android:name="android.intent.action.MAIN" />
                <category android:name="android.intent.category.LAUNCHER" />
            </intent-filter>
        </activity>

<activity android:name=".HomeActivity"
            android:theme="@style/Theme.D1"/>
          
            <activity android:name=".DashboardActivity"
            android:theme="@style/Theme.D1"/>
          
                 <activity android:name=".MainKalkulasiJarak"
            android:theme="@style/Theme.D1"/>
          
             <activity android:name=".Compass"/>
          
             <activity android:name=".KalkulasiJson"
            android:theme="@style/Theme.D1"/>
          
            <activity android:name=".Bantuan"
            android:theme="@style/Theme.D1"/>
          
            <activity android:name=".CekJurusan"
            android:theme="@style/Theme.D1"/>
          
            <activity android:name=".MainRss"
            android:theme="@style/Theme.D1"/>
          
            <activity android:name=".Lokasiku"
            android:theme="@style/Theme.D1"/>
          
            <activity android:name=".LokasikuKoordinat"
            android:theme="@style/Theme.D1"/>
      
          <activity android:name=".MapInfoKalkulasi"
            android:theme="@style/Theme.D1"/>
      
        <activity android:name=".Listviewrute"
            android:theme="@style/Theme.D1"/>
          
    
          
        <activity android:name=".MapOverlay" />
        <activity android:name=".AasWidyatama" />
        <activity android:name=".AaYkpn" />
        <activity android:name=".Akakom" />
        <activity android:name=".AkNotokusumo" />
        <activity android:name=".AkPantiRapih" />
        <activity android:name=".Akprind" />
        <activity android:name=".AkYogyakarta" />
        <activity android:name=".AmpPutra" />
        <activity android:name=".Apbrahma" />
        <activity android:name=".ApStipary" />
        <activity android:name=".Aster" />
        <activity android:name=".Atma" />
        <activity android:name=".Pgri" />
        <activity android:name=".StieBisnis" />
        <activity android:name=".StieWidya" />
        <activity android:name=".StikAisyiyah" />
        <activity android:name=".StiKerjasama" />
        <activity android:name=".StikSuryaGlobal" />
        <activity android:name=".Stta" />
        <activity android:name=".Sttl" />
        <activity android:name=".Uad" />
        <activity android:name=".Ucokroaminoto" />
        <activity android:name=".Ugk" />
        <activity android:name=".Ugm" />
        <activity android:name=".Uii" />
        <activity android:name=".Ukdw" />
        <activity android:name=".Uki" />
        <activity android:name=".Umy" />
        <activity android:name=".Unj" />
        <activity android:name=".Unprok" />
        <activity android:name=".Uny" />
        <activity android:name=".Upn" />
        <activity android:name=".Usd" />
        <activity android:name=".Ust" />
        <activity android:name=".Uty" />
        <activity android:name=".Uwm" />
         <activity android:name=".UpnDua" />
         <activity android:name=".Amikom" />


    </application>
</manifest>

Coding menu :

<menu xmlns:android="http://schemas.android.com/apk/res/android">

<item
android:id="@+id/tentang"
android:title="@string/tentang"
android:alphabeticShortcut="@string/tentang_shorcut"
android:icon="@drawable/tentang"
/>

<item
android:id="@+id/close"
android:title="@string/close"
android:alphabeticShortcut="@string/close_shorcut"
android:icon="@drawable/close"
/>
</menu>

Menu posisi  keberadaan :

<menu xmlns:android="http://schemas.android.com/apk/res/android">

<item

android:id="@+id/koordinat"

android:title="@string/koordinat"

android:alphabeticShortcut="@string/koordinat_shorcut"

android:icon="@drawable/koordinat"

/>

</menu>

Menu kalkulasi  :

<menu xmlns:android="http://schemas.android.com/apk/res/android">

<item

android:id="@+id/kalkulasi_list"

android:title="@string/kalkulasi_list"

android:alphabeticShortcut="@string/kalkulasi_shorcut"

android:icon="@drawable/listview"

/>

</menu>

Menu tambahan kompas :

<menu xmlns:android="http://schemas.android.com/apk/res/android">

<item

android:id="@+id/kompas"

android:title="@string/kompas"

android:alphabeticShortcut="@string/kompas_shorcut"

android:icon="@drawable/kompas"

/>

</menu>

Menu cek jurusan yang  tersedia :

<menu xmlns:android="http://schemas.android.com/apk/res/android">

    <item

android:id="@+id/back"

android:title="@string/back"

android:alphabeticShortcut="@string/back_shorcut"

android:icon="@drawable/back"

/>

<item

android:id="@+id/beasiswa"

android:title="@string/beasiswa"

android:alphabeticShortcut="@string/beasiswa_shorcut"

android:icon="@drawable/beasiswa"

/>

</menu>

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