[نيمو]

البحث عن نص معين بدلالة تاريخين وفي جدولين

كود :

       Dim str As String = "select * from TBLE where Jobs like '%" & TextBox1.Text & "%' or Ctest like '%" & TextBox1.Text & "%' and Date1 between #" & TextBox2.Text & "# And #" & TextBox3.Text & "#"

بحث عن اسم في جدول بدلالة تاريخين

كود :

       Dim str As String = "select * from TBLE where Uname like '%" & TextBox1.Text & "%' and Date1 between #" & TextBox2.Text & "# And #" & TextBox3.Text & "#"

ترتيب الكود بطريقة راديو بوتن اختيار بحث بنص او بنص وتاريخين

كود :

Dim str As String = "select * from TBLE where Uname like '%" & TextBox1.Text & "%' and Date1 between #" & TextBox2.Text & "# And #" & TextBox3.Text & "# order by ID"
       Dim str2 As String = "select * from TBLE where Uname like '%" & TextBox1.Text & "%' order by ID"
       Dim STR3 As String = "SELECT * from TBLE"

       If RadioButton1.Checked = True Then

           DataGridView1.DataSource = GetTable(str2)

       ElseIf RadioButton2.Checked = True Then

           DataGridView1.DataSource = GetTable(str)

       ElseIf TextBox1.Text = Nothing Then

           DataGridView1.DataSource = GetTable(STR3)
       End If

صورة

بهذه الطريقة ام تقصد شي اخر