[VB.NET] استفسار :- فرز البيانات على حسب السنوات

كود :

   Dim com As String = String.Format("select id,CAL ,date ,timek  FROM DB{0} order by date DESC , timek desc", strcallbk)

        Using Adpt As New SQLiteDataAdapter(com, con)

            Dim ds As New DataSet()



            Adpt.Fill(ds, String.Format("DB{0}", strcallbk))



            DataGridView1.DataSource = ds.Tables(String.Format("DB{0}", strcallbk)).DefaultView

        End Using

        With DataGridView1

            .RowHeadersVisible = False

            .Columns(0).Visible = False

            .Columns(1).HeaderCell.Value = "Call Sign"

            .Columns(2).HeaderCell.Value = "Date"

            .Columns(3).HeaderCell.Value = "Time"



        End With

كود :

       ' ضح قئمة الاستعلام لعمود التاريخ بدلاً من التاريخ

        ' Dim date_ As DateTime = ds(0)(date)

        Dim date_ As DateTime = #05-08-2018#

        ' بعد ذلك استخدم التالى 

        ' date_.Year()

كود :

"SELECT * FROM nametable WHERE date Like '%" & ComboBox1.Text & "%'"

PHP كود :

TextBox2.Text = CDate(TextBox1.Text).Year

PHP كود :

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
    Dim con As OleDb.OleDbConnection
    Dim da As OleDb.OleDbDataAdapter
    Dim cm As OleDb.OleDbCommandBuilder
    Dim dta As DataTable
    Dim all_date As New List(Of String)
    Private Sub gd()
        con = New OleDb.OleDbConnection(str)
        Dim sql As String = "select * from tb"
        da = New OleDb.OleDbDataAdapter(sql, con)
        cm = New OleDb.OleDbCommandBuilder(da)
        dta = New DataTable
        da.Fill(dta)
        If dta.Rows.Count > 0 Then
            For r As Integer = 0 To dta.Rows.Count - 1
                Dim yr As String = CDate(dta.Rows(r).Item(2)).Year
                all_date.Add(yr)
            Next
        End If
    End Sub
  

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim row As DataRow = dta.NewRow
        row(1) = tname.Text
        row(2) = CDate(tdate.Text).ToShortDateString
        dta.Rows.Add(row)
        da.Update(dta)
        d.Refresh()
    End Sub

    Private Sub c_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles c.SelectedIndexChanged
        If c.Items.Count = 0 Then Exit Sub
        d.Rows.Clear()
        For r As Integer = 0 To all_date.Count - 1
            Dim rowdate As String = all_date(r)
            If rowdate = c.Text Then
                d.Rows.Add(dta.Rows(r)(1), CDate(dta.Rows(r)(2)).ToShortDateString)
            End If
        Next
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        gd()
    End Sub
End Class

كود :

   Sub fill()

        Dim con As New SQLiteConnection(String.Format("Data Source= C:\DB{0}.s3db", strbk))



        lst1.FullRowSelect = True

        Me.lbl_start.Text = "0 / 0"

        Dim da As New SQLiteDataAdapter("SELECT (SELECT COUNT(*) FROM [DB" & strbk & "] t WHERE [DB" & strbk & "].id >= t.id) AS [Serial], * FROM   [DB" & strbk & "]   ", con)

        lst1.Items.Clear()

        dt.Clear()

        If da.Fill(dt) > 0 Then

            totalpages = Math.Ceiling(dt.Rows.Count / perpage)

            viewpage(page)

        End If





    End Sub







  Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load



        fill()

        Application.DoEvents()





    End Sub

كود :

Public Class Form1

    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"

    Dim con As OleDb.OleDbConnection

    Dim da As OleDb.OleDbDataAdapter

    Dim cm As OleDb.OleDbCommandBuilder

    Dim dta As DataTable

    Dim all_date As New List(Of String)

    Private Sub gd()

        con = New OleDb.OleDbConnection(str)

        Dim sql As String = "select * from tb"

        da = New OleDb.OleDbDataAdapter(sql, con)

        cm = New OleDb.OleDbCommandBuilder(da)

        dta = New DataTable

        da.Fill(dta)

        If dta.Rows.Count > 0 Then

            For r As Integer = 0 To dta.Rows.Count - 1

                Dim yr As String = CDate(dta.Rows(r).Item(2)).Year

                all_date.Add(yr)

            Next

        End If

    End Sub

  



    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim row As DataRow = dta.NewRow

        row(1) = tname.Text

        row(2) = CDate(tdate.Text).ToShortDateString

        dta.Rows.Add(row)

        da.Update(dta)

        d.Refresh()

    End Sub



    Private Sub c_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles c.SelectedIndexChanged

        If c.Items.Count = 0 Then Exit Sub

        d.Rows.Clear()

        For r As Integer = 0 To all_date.Count - 1

            Dim rowdate As String = all_date(r)

            If rowdate = c.Text Then

                d.Rows.Add(dta.Rows(r)(1), CDate(dta.Rows(r)(2)).ToShortDateString)

            End If

        Next

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        gd()

    End Sub

End Class

كود :

Public Class Form1

 Sub fill()

       Dim con As New SQLiteConnection(String.Format("Data Source= C:\DB{0}.s3db", strbk))



       lst1.FullRowSelect = True

       Me.lbl_start.Text = "0 / 0"

       Dim da As New SQLiteDataAdapter("SELECT (SELECT COUNT(*) FROM [DB" & strbk & "] t WHERE [DB" & strbk & "].id >= t.id) AS [Serial], * FROM   [DB" & strbk & "]   ", con)

       lst1.Items.Clear()

       dt.Clear()

       If da.Fill(dt) > 0 Then

           totalpages = Math.Ceiling(dt.Rows.Count / perpage)

           viewpage(page)

       End If





   End Sub







 Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load



       fill()

       Application.DoEvents()





   End Sub



End Class