Wa'alaikumussalam Wr. Wb.
wow selamat ya...
kalau mau coba script berikut :
dim conn as adodb.connection
dim rs as adodb.recordset
dim sConn as string, sQuery as string
set conn=new adodb.connection
sconn="DRIVER={MySQL ODBC 5.2w Driver}" & _
";SERVER= localhost" & _
";database= database_ho" & _
";user= root" & _
";password= ione123"
conn.open sconn
*conn.cursorlocation=aduseclient 'atau isi dengan 3*
set rs=new adodb.recordset
squery="SELECT pass FROM user"
*rs.open squery,conn,adopenstatic,adlockreadonly* 'ganti adlockreadonly
menjadi adlockoptimistic jika akan ada kegiatan write
if rs.recordcount>0 then
msgbox "Ada " & rs.recordcount & " record(s).",vbinformation
else
msgbox "Tidak ada data",vbinformation
endif
Bagian :
*conn.cursorlocation=aduseclient 'atau isi dengan 3*
akan meletakkan user pada sisi client, artinya seluruh recordset hasil
query akan diletakkan di memory aplikasi si client.
dengan begitu, maka seluruh proses menggunakan ADO akan terasa simpel. Tapi
hati-hati dengan proses update,insert,delete records, karena dengan
meletakkan pada sisi client, maka recordset akan bersifat statis alias
berupa salinan data dan bukan data yang ada dalam server.
Bagian :
*rs.open squery,conn,adopenstatic,adlockreadonly*
akan membuat recordset bersifat statis (by default sebenarnya sudah
adopenstatic ketika cursor aduseclient) dan hanya bisa dibaca saja karena
set adlockreadonly. Hal ini akan mencegah proses penulisan data ke
database. Set adlockreadonly sesuai untuk kegiatan ambil data untuk
ditampilkan ke suatu obejct seperti ke worksheet, listbox, combobox, dsb.
Jika aplikasi akan ada proses write untuk kegiatan insert,update,delete
maka ubah adlockreadonly menjadi adlockoptimistic.
Proses write juga bisa menggunakan object conn (relatif lebih cepat
dibanding menggunakan object rs) dengan memanfaatkan query Insert Into,
Update Set, Delete From
contoh,
pada tabel user ada kolom id (int), pemakai (varchar), dan pass (varchar)
dianggap saja kolom id adalah unique.
sQuery="INSERT INTO user (id,pemakai,pass) VALUES (17,'kid','BeExcel')
WHERE NOT EXIST (SELECT id FROM user WHERE id=17);"
conn.execute squery
Contoh seperti itu bisa diterapkan untuk UPDATE SET maupun DELETE FROM
Wassalamu'alaikum Wr. Wb.
Kid.
2013/4/18 Rahmat Hermawan <ione_1...@yahoo.com>
> **
>
>
> Assalamualaikum..
>
> Horee.. berhasil Master..
> Taunya query nya seperti ini :
>
> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>
> strsql = SELECT COUNT(pass) as pass_count FROM user
>
> rs.open strsql, conn
>
> rs.MoveFirst
>
> If rs.fields ("pass_count") > 0 Then
>
> MsgBox "Data Ada"
>
> Else
>
> MsgBox "Data Tidak Ada"
>
> End If
>
> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>
> *Keterangan:
> - pass = field dalam database
> - user = tabel dalam database mysql
>
> Dengan query seperti diatas record dalam database mysql akan terbaca.
>
> Terima kasih atas referensinya Mr. Kid.
>
> Wassalamualaikum. Wr. Wb.
>
>
>
