[dubai.eig]

(05-07-18, 10:32 PM)elgokr كتب :

الان انا اصبحت فى توهان لا اعلم

اين انت متوقف وماذا تريد بضبط

بناءا على ما فهمته مسبقاً قمت بالرد عليه

بكل طريقة فد فهمت فيها ما تريده

فاذا كلا من الردود السابقة ليست الحل

فوضح ما تريده تماماً حتى اقوم بكتابة الكود طبقاً لما تريد

تحياتى لك

مرحبا 

الموضوع الان الكود الخاص بالاخ والاستاذ سعود شغال تمام بس شغال على 
DataGridView

وانا الكود الخاص بي يعتمد على
الـListview 

محتاج تعديل في الكود فقط 

هذا كود الاستاذ سعود

كود :

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