+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عندي مشكله في البحث (/showthread.php?tid=22655)
عندي مشكله في البحث - engmedomed@gmail.com - 21-11-17
السلام عليكم ورحمة الله
اخى الكريم ممكن حل
عندي مشكله في البحث حيث يقوم البرنامج بالبحث عن اي كلمة باللغه الانجليزيه ولا يقوم بالبحث عن اي كلمة باللغه العربيه 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
RE: عندي مشكله في البحث - أحمد النجار - 21-11-17
ضع بعد كلمة Likeفي الاستعلام حرف N
RE: عندي مشكله في البحث - a.ahmed - 21-11-17
NCHAR
NVARCHAR
PHP كود :
If ComboBox1.SelectedIndex < 0 Then Return
'==========================================================='
Dim SQL As String = "SELECT * FROM [PationtInfo] WHERE [" & {"PationtCode", "PationtName", "PationtReveal"}(ComboBox1.SelectedIndex) & "] LIKE '%' + @param + '%'"
Dim ADB As New SqlClient.SqlDataAdapter(SQL, Sqlconn)
ADB.SelectCommand.Parameters.AddWithValue("@param", TextBox1.Text)
Dim DT As New DataTable
ADB.Fill(DT)
'==========================================================='
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = DT