Button Search Untuk Sistem

[mon678 48]

Tiada Error tp x kuar data kt text field huhu harap ada org blh membantu
sy gune visual studio 2008 dan sql server 2005..
sy membuat sistem gune windows form





[CODE]Private Sub Cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cari.Click
Dim searchby As String = ""
If ComboBox1.SelectedIndex = -1 Then
MessageBox.Show("Please select search by field.", "Error")
ElseIf (txtCari.Text.Trim() = "") Then
MessageBox.Show("Please enter StafID number or IC number.", "Error")
ElseIf ComboBox1.SelectedIndex = 0 Then
searchby = "StafID"
Else
searchby = "kp"
Dim con As SqlConnection = New SqlConnection("server =localhost;database=Library;Integrated Security=True;Trusted_Connection = yes")
Dim myInsertQuery As String = "SELECT * FROM Staf WHERE " + searchby + " = '" + txtCari.Text + "'"
Dim myCommand As New SqlCommand(myInsertQuery, con)
Dim Dr As SqlDataReader
con.Open()
Dr = myCommand.ExecuteReader()
While (Dr.Read())
txtStaffID.Text = Dr("StafID").ToString()
txtNama.Text = Dr("nama").ToString()
txtKP.Text = Dr("kp").ToString()
'txtDob.Text = Dr("dob").ToString()
txtAddress.Text = Dr("alamat").ToString()
txtBandar.Text = Dr("bandar").ToString()
txtNegeri.Text = Dr("negeri").ToString()
txtposkod.Text = Dr("poskod").ToString()
txtNegara.Text = Dr("negara").ToString()
txtEmail.Text = Dr("email").ToString()
txthp.Text = Dr("hp").ToString()
djawatan.SelectedItem = Dr("jawatan").ToString()

End While

UbahSuai.Enabled = True
UbahSuai.Text = "Edit"
con.Close()
con.Dispose()
End If
End Sub[/CODE] Edited April 17, 2012 by ahaksz28
Guna code tag lain kali

[Chuki2 32]

Salam bro.. apa kata cuba run query bro dalam Server Managment Studio sekiranya ada..

Cuba letak nilai yang bro nak cari, cuba lihat result itu keluar atau tak..

Yang ini cara yang dah agak lama, apakata bro cuba belajar mengenai LINQ.. Lagi cepat untuk lihat hasil query...

Gud Luck...