lu bu 0 Report post Posted July 1, 2005 camner nak pakai function find dalam vb yang dah link ngan databaseskrang ni ada satu text box ngan satu command button(kat vb)pas tu bila masukkan nama kat text box tu, tekan command button, terpaparlah maklumat yang nak dicari.camner nak wat haa??? Quote Share this post Link to post Share on other sites
sharuzzaman 1 Report post Posted July 1, 2005 kena guna command SQL"SELECT * FROM table_name WHERE userid='12345';"sebagai contoh Quote Share this post Link to post Share on other sites
lu bu 0 Report post Posted July 1, 2005 kena guna command SQL"SELECT * FROM table_name WHERE userid='12345';"sebagai contoh←sql ni nak masukkan kat mana?? Quote Share this post Link to post Share on other sites
step 0 Report post Posted July 1, 2005 Dah cuba baca buku ker belum ni... Quote Share this post Link to post Share on other sites
lu bu 0 Report post Posted July 1, 2005 nak masukkkan sql dalam database memang mudah,maksud aku ni camner nak masukkannnya dalam vb.Function find dalam database dah biasa buat tapi bila dah masuk dalam vb tak tau macamana nak buat Quote Share this post Link to post Share on other sites
dekzorro 0 Report post Posted July 2, 2005 aku harap ini boleh membantu..yg ni cari dgn gunakan inputbox (bkn textbox)..tapi basic die same je ni. aku harap ko bole study code nih. kat sini aku guna ADODC utk view value.. Private Sub cmdSearch_Click() 'koding utk carian maklumat pelanggan Dim str1, str2, str3 As String str1 = InputBox("1. Cari dengan Nom.Pelanggan." & vbCrLf & "2. Cari dengan Nama Pelanggan." & vbCrLf & " PILIH PILIHAN CARIAN ANDA", "Carian") If str1 = "" Then Exit Sub If str1 = 1 Then str2 = InputBox("Masukkan Nom. Pelanggan :", "Carian Nombor Pelanggan") Adodc1.Recordset.Filter = "NoPelanggan ='" & str2 & "'" Else If str1 = 2 Then str3 = InputBox("Masukkan nama pelanggan :", "Carian Nama Pelanggan") Adodc1.Recordset.Filter = "Nama ='" & str3 & "'" End If End If End Sub Quote Share this post Link to post Share on other sites
lu bu 0 Report post Posted July 2, 2005 wahhhh..terima kasih. Sebenarnya dah puas aku cari code ni dalam buku tapi takde, kat internet plak, tak faham coding yg diberi .. tek sangka ada tahu pakai code ni ..thanks Quote Share this post Link to post Share on other sites
FryShadow 90 Report post Posted July 3, 2005 satu lagi coding search :Private Sub btnSearch_Click() dataSearch.RecordSource = ("SELECT * From Pelajar Where pel_name='" & txtName.Text & "' ") dataSearch.RefreshEnd Sub[/code] Quote Share this post Link to post Share on other sites