تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تكرار البيانات مع كل فتح للنموذج
#1
السلام عليكم ورحمة الله وبركاته

كنت أعمل برنامجي بفيجوال ستوديو2013 ومن ثم قمت بنقله على 2019


ظهرت لي مشكلة لم تكن موجودة من قبل وهي كالتالي:
عندما افتح النموذج(أي نموذج) يفتح بشكل طبيعي، وعند فتح النموذج الثاني(تظهر بيانات الأول بالإضافة للثاني في الداتاجرد في الثاني).
، وعند الثالث نظهر بيانات الأول والثاني والثالث وهكذا مع عكس الترتيب!!


حاولت الوصول لحل فلم أفلح، وكأن الخادم يستمر بحمل البيانات محتفظا بها حتى عند غلق النموذج، وعند استدعاء بيانات النموذج الثاني يرفقها مع بيانات الأول!
فلماذا مع أن الاتصال يغلق، وكذلك النموذج؟



هذا الكود المستخدم في النماذج

كود :
   Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


If Sqlcon.State = ConnectionState.Open Then Sqlcon.Close()
           Dim strquery As String = "SELECT * FROM table1"
           Sqlcon.Open()
           adapter = New SqlDataAdapter(strquery, Sqlcon)
           adapter.Fill(Db)
           DGVvacationtype.DataSource = Db
           'Db.Constraints.Add("primary", Db.Columns("id"), True)

           Sqlcon.Close()

end sub
الرد }}
تم الشكر بواسطة: سعود , سعود
#2
PHP كود :
  Sqlcon.Open()
 
       Dim sqlqry As String "select * from table1"
 
       Dim adapter As New SqlDataAdapter(sqlqrySqlcon)
 
       Dim Db As New DataSet()
 
       adapter.Fill(ds"table1")
 
       Sqlcon.Close()
 
       DataGridView1.DataSource Db
        DataGridView1
.DataMember "table1"
 
       Dim table As New DataTable
        adapter
.Fill(table
الرد }}
تم الشكر بواسطة: أشرف كريم 2 , مسلم_١ , سعود
#3
(25-10-21, 07:01 PM)مسلم_١ كتب : السلام عليكم ورحمة الله وبركاته

كنت أعمل برنامجي بفيجوال ستوديو2013 ومن ثم قمت بنقله على 2019


ظهرت لي مشكلة لم تكن موجودة من قبل وهي كالتالي:
عندما افتح النموذج(أي نموذج) يفتح بشكل طبيعي، وعند فتح النموذج الثاني(تظهر بيانات الأول بالإضافة للثاني في الداتاجرد في الثاني).
، وعند الثالث نظهر بيانات الأول والثاني والثالث وهكذا مع عكس الترتيب!!


حاولت الوصول لحل فلم أفلح، وكأن الخادم يستمر بحمل البيانات محتفظا بها حتى عند غلق النموذج، وعند استدعاء بيانات النموذج الثاني يرفقها مع بيانات الأول!
فلماذا مع أن الاتصال يغلق، وكذلك النموذج؟



هذا الكود المستخدم في النماذج

كود :
   Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


If Sqlcon.State = ConnectionState.Open Then Sqlcon.Close()
           Dim strquery As String = "SELECT * FROM table1"
           Sqlcon.Open()
           adapter = New SqlDataAdapter(strquery, Sqlcon)
           adapter.Fill(Db)
           DGVvacationtype.DataSource = Db
           'Db.Constraints.Add("primary", Db.Columns("id"), True)

           Sqlcon.Close()

end sub

جرب هذا التعديل
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim da As New SqlDataAdapter("SELECT * FROM table1", Sqlcon)
    Dim dt As New DataTable
    da.Fill(dt)
    DGVvacationtype.DataSource = dt
End Sub

او في الكود بتاعك اعمل clear ال Db قبل ما تعمل fill
الرد }}
تم الشكر بواسطة: مسلم_١ , سعود
#4
شكر الله لك أخي الحبيب، ونفع بك ?
الرد }}
تم الشكر بواسطة: أشرف كريم 2 , سعود



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم