Dim Hubungan As New ADODB.Connection
Dim MyDatabase1 As New ADODB.Recordset (kata Recordset = record data/baris data
atau apalah)
Kode baris 1 untuk memesan memory koneksi ke database dengan menggunakan ADODB
Kode baris 2 untuk memesan memory yang nantinya di gunakan untuk tabel virtual
(pada memori komp klien)
Koneksi standar untuk membuka database adalah sebagai berikut : (Ms Acces)
If Hubungan.State = adStateOpen Then
Hubungan.Close
Set Hubungan = Nothing
End If
Hubungan.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\namadatabase.mdb;Mode=ReadWrite;Persist Security Info=False"
On Error Resume Next
Hubungan.Open
If Err Then
MsgBox "Program Ini Tidak Dapat Dijalankan, Database Tidak Ada"
Exit Sub
End If
klu untuk MySQL, (gunakan ODBC 3,51, klu yang lebih terkadang ada masalah dalam
mengunakan database, klu yang versi 5 masih belum sempurna):
Hubungan.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & namaserver & ";" & _
"DATABASE=namadatabse;" & _
"USER=" & namauser & ";" & _
"PASSWORD=" & namapassword & ";OPTION=" & 1 + 2 + 8 + 32 +
2048 + 16384
kalau koneksi diatas sudah dibuka, untuk mengambil data dalam tabel dalam
databse perintah standarnya ya ini:
If MyDatabase1.State = adStateOpen Then
MyDatabase1.Close
Set MyDatabase1 = Nothing
End If
MyDatabase1.ActiveConnection = Hubungan ....>untuk menggunakan koneksi
Hubungan diatas
MyDatabase1.CursorType = adOpenStatic
MyDatabase1.CursorLocation = adUseClient ...> menjalankan perintah di komp
klien
MyDatabase1.LockType = adLockOptimistic
MyDatabase1.open "select * from tabel1 where id = 1" ..> untuk mengambil
data dari tabel 1 dengan idnya 1. Tabel ini disimpan dalam memori, namanya
record set, dapat dikatakan tabel virtual di memori kompu klien. krn di
jalankan dan dibuat dikomp klien, server tidak terlalu dibebani kinerjanya, dan
user lain dapat mengambil data dari server tanpa terganggu.
klu mau menambah data didalam tabel ya pake perintah :
MyDatabase1.addnew
misalnya ada kolom yang mau diisi
MyDatabase1("kolom1") = 1
MyDatabase1("kolom2") = 13
MyDatabase1("kolom3") = 14
MyDatabase1.update ...> untuk menyimpan data didalam tabel virtual dimemori
komp kedalam tabel didalam database langsung. Dengan metode ini, klu ada kolom
yang tidak diisi, tidak perlu dikasi nilainya, yang diisi hanya kolom yang
diperlukan.
klu sudah tidak diperlukan dapat dikasi perintah :
MyDatabase1.close
sehingga memori dapat dikosongkan dan digunakan oleh komputer.
untuk menghapus data yang sudah dicaria diatas dengan perintah select ... where
tinggal kasih perintah:
MyDatabase1.delete ...> data yang ditabel database langsung dihapus.
Dengan menggunakan memory di kompu klien, program dapat membuka dan menutup
koneksi dengan cepat. dan tidak mempengaruhi kinerja kompu secara signifikan.
Semoga membantu: =(oVo)=
====================
BaceInside Publisher
Copyright @2007
Not for reproduced, republished.
Thank You
====================
----- Original Message ----
From: ChipMunks <[EMAIL PROTECTED]>
To: Bace - Bace <[email protected]>
Sent: Friday, April 20, 2007 10:19:25 AM
Subject: Re[2]: [Programmer-VB] Masalah Tuning2an
Bace
Bace> Saya rasa masalah tuning2an dalam penggunaan database tidak
Bace> perlu dirisaukan. Program vb yang sudah saya buat, dapat
Bace> mengambil data pembayaran per costumer dengan cepat (hitungan 5
Bace> detik, dilakukan via jaringan) untuk data pembayaran yang
Bace> banyaknya di atas 2 juta data. padahal komputer klien yang dipergunakan
hanya pentium 2.
Bace> Menurut pengalaman saya,
Bace> Apapun database yang dipergunakan, jika menggunakan ADODC VB
Bace> perintah yang digunakan untuk mengambil database cukup perintah
Bace> select saja, kemudian untuk menyortir data gunakan kondisi where
Bace> nya saja. dan lakukan pengolahan data di komputer klien, bukan
Bace> diservernya. Untuk menambah gunakan addnew, menyimpan update.
Bace> menghapus delete. Dengan begini semua perinta dilakukan di tabel
Bace> virtual didalam memori kemudian jika ada perubahan diupdate kedalam
databse diserver.
maksudnya tabel virtual di dalam memory itu gimana mas... bisa
jelaskan lebih detail.
Bace> tabel data sebaiknya di satukan dalam satu tabel, supaya lebih
Bace> terkoordinir, jangan dipisah2 pertahun, karena jika dipisa
Bace> pertahun, pengguna akan kebingungan jika tabel untuk tahun yang akan
dimasukkannya tidak ada.
Bace> Untuk baris kode penggunaan ADODC saya rasa sudah standard dari
Bace> sononya (pembuatnya) jadi tidak ada yang bisa disederhanakan
Bace> lagi. Hanya programer dapat mengakalinya dengan membuka dan
Bace> menutup koneksi apabila sudah tidak diperlukan lagi, agar memory
Bace> komputer dapat dipakai oleh kompu untuk resource lain.
Bace>
Bace> Semoga membantu: =(oVo)=
Bace> ============ ========
Bace> BaceInside Publisher
Bace> Copyright @2007
Bace> Not for reproduced, republished.
Bace> Thank You
Bace> ============ ========
Bace> ____________ _________ _________ _________ _________ __
Bace> Do You Yahoo!?
Bace> Tired of spam? Yahoo! Mail has the best spam protection around
Bace> http://mail. yahoo.com
Salam,
ChipMunks (Copy Paste Programmer)
mailto: [EMAIL PROTECTED] co.id
Yahoo : Henqy
Skype : Hengky_Purnomo
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
