[viv]

السلام عليكم

ترددت كثيرا في طرح هذا السؤال وقد بحتث كثيرا بالمنتديات الاجنبية عن سبب هذه الرسالة ولم اجد جواب ، لا يوجد لها جواب محسوم .
وقلت ربما المشكلة هي في طريقة برمجتي .

حولت ليلة كاملة ان اجد الحل ولكن لم تنجح ، وقررت ان المشكلة في توزيع الكود .
لن اطيل عليكم ولكن باختصار .

بداية هناك Module تم تعريف فيه محول البيانات كالتالي :

PHP كود :

Friend FbDataReader As FbDataAdapter 


طبعا لا تستغربوا من FbDataAdapter فمن لا يعرفها هي للتعامل مع قواعد بيانات FireBird

لتعبئة الداتاست 

PHP كود :

( FbDataReader = New FbDataAdapter("select * from TABLE_MAIN", con)

 Try

            FbDataReader.Fill(Form1.DataSet1, Form1.DataSet1.Tables("[size=small][font=Monaco, Consolas, Courier, monospace]TABLE_MAIN[/font][/size]").TableName)
                
 Catch ex As Exception
          
  MsgBox(ex.Message)

        Finally 


الـ DataSet موجودة على الـ Form1 ومرتبطة بواسطة DatasourceBinding 


هناك نموذج أخر عليه ادوات TextBox ربطتها يدويا في الـ FormLoad

PHP كود :

txtnum.DataBindings.Add("TEXT", Form1.BindingSource1, "NUM", True) 


الان لاحظوا موديل فيه محول البيانات ونموذج عليه الداتاست ونمودج اخر عليه ادوات العرض

في زر الحفظ بالنموذج الثاني الذي عليه ادوات العرض

PHP كود :

Dim builder As FbCommandBuilder = New FbCommandBuilder(FbDataReader)
        builder.QuotePrefix = "["
        builder.QuoteSuffix = "]"
        Form1.BindingSource1.EndEdit()
        Me.Validate()
        Try

            builder.GetUpdateCommand()
         
            FbDataReader.Update(Form1.DataSet1, Form1.DataSet1.Tables(0).TableName)
            Form1.DataSet1.AcceptChanges()
            builder.RefreshSchema()

            '  Me.Text = Form1.DataSet1.Tables("TABLE_MAIN").Rows(Form1.BindingSource1.Position).Item("id").ToString
            ' Form1.BindingSource1.ResetBindings(True)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            builder.Dispose()
        End Try 


عند اجراء تغييرات وحفظ البيانات يحفظها المرة الاولى بشكل طبيعي
ولكن عند اجراء تغييرات المرة الثانية تظهر الرسالة التي بالعنوان حتى لو اقفلت النمودج وعدت من جديد .


من مر بهذه المشكلة من قبل .