Masalah Database Kat Vb

[lu bu 0]

camner nak pakai function find dalam vb yang dah link ngan database

skrang 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???

[sharuzzaman 1]

kena guna command SQL

"SELECT * FROM table_name WHERE userid='12345';"

sebagai contoh

[lu bu 0]

kena guna command SQL

"SELECT * FROM table_name WHERE userid='12345';"

sebagai contoh

←

sql ni nak masukkan kat mana??

[step 0]

Dah cuba baca buku ker belum ni...

[lu bu 0]

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

[dekzorro 0]

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

[lu bu 0]

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

[FryShadow 90]

satu lagi coding search :

Private Sub btnSearch_Click()
    
    
    dataSearch.RecordSource = ("SELECT * From Pelajar Where pel_name='" & txtName.Text & "' ")
    dataSearch.Refresh

End Sub[/code]