Re: [Programmer-VB] Tolong Pencarian Data...

Fri, 24 Mar 2006 00:32:29 -0800


Coba bantu ya , source kurang lebih begini :
 
 vsdata = Split(Text1, " ")
      sql = ""
         For i = 0 To UBound(vsdata)
          If Trim(vsdata(i)) <> "" Then
             If i = 0 Then
               sql = "like '%" & (vsdata(i)) & "%'"
                       
             Else
               sql = sql & " or NamaBarang like '%" & (vsdata(i)) & "%'"
             End If
           
          End If
        Next
       
   sql = "select * from table  where NamaBarang  " & sql & "  order by NamaBarang     "
Rs.Open sql, cn, adOpenStatic, adLockReadOnly
----- Original Message -----
Sent: Friday, March 24, 2006 2:46 PM
Subject: [Programmer-VB] Tolong Pencarian Data...

Saya mau nanya nih teman-teman :
 
saya punya tabel barang isinya :
 
kode  namabarang
----------------------------
1       Monitor LG 17" CRT
2       Monitor Samsung 19" LCD
3       CDR Samsung 52 X try-in
4       CVDRD LG 52x 48x 4x
 
saya mealukan pencarian namabarang dengan code sebagai berikut :
code :
---------
Rs.Open "SELECT * FROM Barang  where namabarang like '%" & text1.text & "%' order by namabarang", cn, adOpenStatic, adLockReadOnly
jika saya masukkan kata "Monitor LG" pada text1.text maka data yang muncul cuman data barang 1.
Jika saya masukan "Monitor" muncul data barang 1 dan 2.
 
Pertanyaan :
------------------
Saya pengen saat saya memasukkan kata "Monitor LG" yang muncul barang 1, 2 , dan 4.
 
Bagaimana ya code nya????? mohon petunjuk.
 

Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo! Indonesia yang baru!


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke