منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

يسعد اوقاتكم جميعا انا استخدم vb2010 مع قاعدة بيانات اكسس .... اذا سمحتو مساعدة بخصوص البحث عن نص معين بين تاريخين اذا سمحتو المقصود اريد البحث عن عدد اجازات الموظف x بين تاريخ 1 وتاريخ 2

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

كود :

       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

صورة

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

PHP كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        DataGridView1.DataSource = SelectBetweenVB(DateTimePicker1.Value, DateTimePicker2.Value, 1626)
    End Sub
    Private Function SelectBetweenVB(Date1 As DateTime, Date2 As DateTime, EmpID As Integer) As DataTable
        Dim StrSQL As String = "Select * FROM EmpTbl Where  Tdata BETWEEN #" & Date1.ToString("yyyy-MM-dd") & "# and #" & Date2.ToString("yyyy-MM-dd") & "# and EmpID=" & EmpID
        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\AsemXP\Desktop\Test.accdb;Jet OLEDB:Database Password=;")
        Dim da As New OleDbDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt)
        Return dt
    End Function 

[attachment=27841]

وهذا مثال .

[attachment=27842]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ibrahimmakhool

نيمو

asemshahen5