منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الاستعلام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الاستعلام (/showthread.php?tid=25447)



الاستعلام - ibrahimmakhool - 19-06-18

السلام عليكم .... 

ارجو مساعدتي في الاستعلام ....
اريد تعديل الكود لانه لا يظهر النتائج الا عند كتابة الاسم كامل وما اريده هو عند كتابة حرف واحد يظهر لي النتائج التي تبدا بهذا الحرف
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Dim Query 
As String "Select * From patient Where 0=0"
 
       If TextBox1.Text <> "" Then
            Query 
Query " AND Visitedate >= #" TextBox1.Text "#"
 
       End If
 
       If TextBox2.Text <> "" Then
            Query 
Query " AND Visitedate <= #" TextBox2.Text "#"
 
       End If
 
       If TextBox3.Text <> "" Then
            Query 
Query " AND Patientname = '" TextBox3.Text "'"
 
       End If
 
       If TextBox4.Text <> "" Then
            Query 
Query " AND Diagnosis = '" TextBox4.Text "'"
 
       End If
 
       If TextBox5.Text <> "" Then
            Query 
Query " AND drname = '" TextBox5.Text "'"
 
       End If
 
       Dim cmd As New OleDbCommand(Querycon)
 
       da = New OleDbDataAdapter(cmd)
 
       dt.Clear()
 
       da.Fill(dt)
 
       DataGridView1.DataSource dt 



RE: الاستعلام - elgokr - 20-06-18

وعليكم السلام ورحمة الله
بخصوص الاستعلام ليكون حرفي بدل تطابق كلى

فقط استبدل هذا
كود :
Where 0=0

ليصبح بهذا الشكل
كود :
Where 0 like '%0%'

تحياتى لك
وتمنياتى لك التوفيق