18-05-17, 01:06 AM
السلام عليكم ورحمه الله وبركاته
ارجو حل المشكلة
الكود شغال تمام اضافة بيانات للداتا جريد
المشكلة انه ما بخزن مباشرة لازم اطلع من الفورم وارجع مرة ثانية لتضهر نتائج الاضافة بالداتا جريد
ارجو حل المشكلة
الكود شغال تمام اضافة بيانات للداتا جريد
المشكلة انه ما بخزن مباشرة لازم اطلع من الفورم وارجع مرة ثانية لتضهر نتائج الاضافة بالداتا جريد
كود :
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