Dear Tommy,
Pertama - tama sebelum kita membuat suatu program database, kita harus
menentukan dahulu database apa yang akan kita pakai, contoh, misal kita akan
menggunakan database SQL Server atau Oracle, maka kita tidak bisa memakai
control Data untuk konek ke database-nya.
Namun saya bisa menyarankan supaya anda memakai control ADO ( ActiveX Data
Object ) yang memungkinkan kita konek dengan database yang didukung oleh
Data Source ( ODBC ) Windows. Jenis database yang dapat didukung oleh ADO
ini bisa dibilang hampir tidak terbatas banyaknya karena ADO memakai ActiveX
yang disediakan oleh provider data database tersebut.
Faktor lain yang menentukan pembuatan program database yaitu apakah kita
akan menggunakan aplikasi yang "Bound" ( terkait dengan database secara
terus - menerus), atau "UnBound" ( koneksi dengan database hanya pada saat
melakukan transaksi database ).
Contoh program :
Asumsi : Database sudah tercreate dengan jenis database Access dengan nama
file "D:\Data.MDB" dan mempunyai 1 tabel "Karyawan"
Contoh Bound :
1. Buat textbox untuk field2 yang diperlukan pada form dan ganti semua
"Name" dari textbox tsb menjadi "TxtData"
2. Ganti properties "DataField" dari masing-2 textbox menjadi nama
field, contoh :
Textbox untuk Nama, properties "DataField" isi dengan "Nama, dst.
3. Buat 2 tombol, 1 untuk "Add Data", 1 untuk "Save Data"
4. Coba ketikkan syntax berikut pada form :
'----------
Dim cn as new adodb.connection
Dim rs as new adodb.recordset
Private sub Form_Load()
'ini adalah syntax untuk konek ke database access
Cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data.MDB;Persist
Security Info=False" End sub
'ini adalah syntax untuk konek dengan table "Karyawan" di dalam database
Rs.open "Karyawan", cn, adopenkeyset, adlockbatchoptimistic
Dim oTxt as textbox
For each otxt in txtdata
Set otxt.datasource = rs
next
End sub
Private sub Tambah_Click()
Rs.addnew
End sub
Private sub Simpan_Click()
Rs.updatebatch
End sub
'-----------------
Contoh Unbound :
'----------
Dim cn as new adodb.connection
Private sub Form_Load()
'ini adalah syntax untuk konek ke database access
Cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data.MDB;Persist
Security Info=False" End sub
End sub
Private sub Simpan_Click()
Cn.execute "insert into Karyawan (Nama, NIP, ......., tgl lahir ) " & _
"values( '" & txtdata(0) & "', '" & txtdata(1) & "', '" &
............ & txtdata(6) & "')"
End sub
'-----------------
Untuk lebih jelasnya, anda install aja MSDN, disitu kita bisa belajar
banyak, bahkan ada contoh2 programnya.
Catatan : syntax2 diatas tidak aku tes di VB, jadi kalo kopi paste harap
dibetulkan sedikit2. Mohon maaf kalau ada errornya.
Semoga membantu
Best Regards,
Dhani Aristyawan, S.Kom.
EDP Supervisor PT. Trias Sentosa, Tbk.
Desa Keboharan KM 26
Krian - Sidoarjo
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of TOMMY
Sent: Monday, August 07, 2006 11:07 AM
To: [email protected]
Subject: [indoprog-vb] Re: Contoh Program Input
Dear ... Rekan-rekan Programmer Visual Basic
Saya baru nih dan mencoba belajar dengan program visual basic dan saya
mau berlatih sedikit-demi sedikit. saya mau tanya dan mohon bantuannya
memberikan listingnya karena saya belum sangat paham dan baru belajar
di kuliah saya dan saya mencoba membuat program sederhana yaitu INPUT
contoh :
Nama :
NIP :
jenjang pendidikan :
peringkat jabatan :
asal pengangkatan :
tanggal pengangkatan :
tgl lahir :
dengan database DBPegawai.DB
mohon bantuannya memberikan contoh programnya yah n listingnya
sehingga saya bisa belajar. terima kasih atas bantuannya.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
