> dim msql as string
> msql = text1 + text2 + text3 <---- penjumlahan stringnya bagaimana ?
> set rs = cnn.execute(msql)
> end sub
>
> Bagaimana cara menjumlahkan nilai string dari ketiga text box di atas
> untuk di jadikan query.?
> Masalahnya belum tentu user mengisi ketiga text box tersebut. bisa
> saja salah satunya atau salah duanya atau juga ketiga tiganya yang di
> isi..
> Bagaimana ya kira2 logika kodingnya..?
> Mohon bantuan dong.. Pliisss. makaciii
Halo Syafruddin,
Logikanya :
1. cek isi dari textbox tersebut
2. jika ada isinya, cek lagi apa ada kata "where"
2.a. Jika ada kata "where", maka tambahkan kata "and"
2.b. Jika tidak ada "where", tambahkan kata "where"
contoh :
buat sebuah fungsi untuk mengecek ada tidaknya kata "where"
Private function CekWhere(data as string) as string
if instr(1,data,"where")>0 then
cekWhere=data & " and "
else
cekwhere=data & " where "
end if
end function
lalu di sebelum diexecute :
mysql="Select * from TblA "
if text1.text<>"" then mysql=mysql & cekwhere(mysql) & " Nama='" &
text1.text & "'"
if text2.text<>"" then mysql=mysql & cekwhere(mysql) & " Nama='" &
text2.text & "'"
if text3.text<>"" then mysql=mysql & cekwhere(mysql) & " Nama='" &
text3.text & "'"
Jika ingin lebih mudah, textboxnya dibuat array saja. Jadi coding lebih pendek.
--
Best Regards,
David J M
Advess
ISV and IT Consultant
