eh ada yang kurang s di Exist.
tertulis :
sQuery="INSERT INTO user (id,pemakai,pass) VALUES (17,'kid','BeExcel')
WHERE NOT EXIST (SELECT id FROM user WHERE id=17);"
harusnya :
sQuery="INSERT INTO user (id,pemakai,pass) VALUES (17,'kid','BeExcel')
WHERE NOT EXIST*S* (SELECT id FROM user WHERE id=17);"
hehehe... maaf ya...
Wassalam,
Kid.
2013/4/18 Mr. Kid <mr.nm...@gmail.com>
> 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.
>>
>>
>>
>
