[alma_fandi]

السلام  عليكم ورحمه الله وبركاته

ارجو حل  المشكلة

الكود  شغال  تمام  اضافة  بيانات  للداتا جريد
المشكلة انه ما  بخزن مباشرة  لازم اطلع  من  الفورم وارجع  مرة  ثانية  لتضهر  نتائج  الاضافة بالداتا جريد

كود :

Private Function SaveData() As Boolean
       Try

           Dim sql As String =
               " INSERT INTO [Scion] ([Name2],[Date2],[Nat2],[Nat_num2],[Invoice],[ckeck],[info]) " & _
               " VALUES( @Name2,@Date2,@Nat2,@Nat_num2,@Invoice,@ckeck,@info) "
           Using cmd As New OleDbCommand(sql, Con)
               With cmd

                   .Parameters.AddWithValue("Name2", txtName.Text.Trim)
                   .Parameters.AddWithValue("Date2", date2.Value.Date)
                   .Parameters.AddWithValue("Nat2", cbonat2.Text.Trim)
                   .Parameters.AddWithValue("Nat_num2", Val(txtNationalityID.Text))
                   .Parameters.AddWithValue("Invoice", TextBox2.Text.Trim)
                   .Parameters.AddWithValue("ckeck", CheckBox1.Checked)
                   .Parameters.AddWithValue("info", info.Text.Trim)
                 

               End With

               MsgBox("تم حفظ البيانات بنجاح", MsgBoxStyle.Information, "ألف مبروك")
               Me.DialogResult = Windows.Forms.DialogResult.OK

               If Con.State <> ConnectionState.Open Then Con.Open()

               cmd.ExecuteNonQuery()
               Con.Close()
           End Using


           Return True
       Catch ex As Exception
           MsgBox(ex.Message)
           Return False
       End Try
   End Function