21-11-17, 08:18 PM
السلام عليكم ورحمة الله
اخى الكريم ممكن حل
عندي مشكله في البحث حيث يقوم البرنامج بالبحث عن اي كلمة باللغه الانجليزيه ولا يقوم بالبحث عن اي كلمة باللغه العربيه vb.net and sql server
Dim SQL As String = ""
Select Case ComboBox1.SelectedIndex
Case 0
SQL = ("SELECT * FROM PationtInfo WHERE PationtCode LIKE '%" & TextBox1.Text & "%'")
Case 1
SQL = ("SELECT * FROM PationtInfo WHERE PationtName LIKE '%" & TextBox1.Text & "%'")
Case 2
SQL = ("SELECT * FROM PationtInfo WHERE PationtReveal LIKE '%" & TextBox1.Text & "%'")
End Select
'===========================================================
Dim ADB As New SqlClient.SqlDataAdapter(SQL, Sqlconn)
Dim DS As New DataSet
ADB.Fill(DS)
Dim DT = DS.Tables(0)
'-=======================================================
DataGridView1.DataSource = DT.DefaultView
DataGridView1.AutoGenerateColumns = False
اخى الكريم ممكن حل
عندي مشكله في البحث حيث يقوم البرنامج بالبحث عن اي كلمة باللغه الانجليزيه ولا يقوم بالبحث عن اي كلمة باللغه العربيه vb.net and sql server
Dim SQL As String = ""
Select Case ComboBox1.SelectedIndex
Case 0
SQL = ("SELECT * FROM PationtInfo WHERE PationtCode LIKE '%" & TextBox1.Text & "%'")
Case 1
SQL = ("SELECT * FROM PationtInfo WHERE PationtName LIKE '%" & TextBox1.Text & "%'")
Case 2
SQL = ("SELECT * FROM PationtInfo WHERE PationtReveal LIKE '%" & TextBox1.Text & "%'")
End Select
'===========================================================
Dim ADB As New SqlClient.SqlDataAdapter(SQL, Sqlconn)
Dim DS As New DataSet
ADB.Fill(DS)
Dim DT = DS.Tables(0)
'-=======================================================
DataGridView1.DataSource = DT.DefaultView
DataGridView1.AutoGenerateColumns = False