السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير
قمت بتصميم برنامج وربطه بقاعدة بيانات من نوع اكسس
وهناك مشكلة عندما اقوم باضافة بيانات وعمل حفظ في قاعدة البيانات تظهر هذه الرسالة التي في الصورة
مع ان الاكواد المستخدمة قمت باستخدمها في برنامج اخر من قبل وهي تعمل بشكل جيد ولكن لا اعرف لماذا عند هذا البرنامج
وهذه هي الاكواد
وشكرا
قمت بتصميم برنامج وربطه بقاعدة بيانات من نوع اكسس
وهناك مشكلة عندما اقوم باضافة بيانات وعمل حفظ في قاعدة البيانات تظهر هذه الرسالة التي في الصورة
مع ان الاكواد المستخدمة قمت باستخدمها في برنامج اخر من قبل وهي تعمل بشكل جيد ولكن لا اعرف لماذا عند هذا البرنامج
وهذه هي الاكواد
كود :
Imports System.Data.OleDb
Imports System.Data
Imports System.Globalization
Imports System.IO
Imports System.Drawing.Image
Public Class UserControl2
Dim con As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\gastec.mdb;user id=admin;jet oledb:database password=343282")
Private Sub UserControl2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Guna.UI.Lib.GraphicsHelper.DrawLineShadow(Me, Color.Black, 50, 20, Guna.UI.WinForms.VerHorAlign.VerticalLeft)
End Sub
Private Sub usr_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub GunaGradientButton3_Click(sender As Object, e As EventArgs) Handles GunaGradientButton3.Click
OpenFileDialog1.Filter = "Image Formats (*.PNG; *.JPG; *.BMP) | *.PNG; *.JPG; *.BMP | All Files (*.*) | *.*"
'Dim OpenFileDialog1 As New OpenFileDialog
With OpenFileDialog1
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then
MsgBox("image is not choised")
Return
Else
photoadd.Image = Image.FromFile(OpenFileDialog1.FileName)
End If
End With
End Sub
Private Sub GunaGradientButton1_Click(sender As Object, e As EventArgs) Handles GunaGradientButton1.Click
If (String.IsNullOrEmpty(id.Text)) Then
MessageBox.Show("يجب ادخال الاسم اولا قبل الحفظ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End If
'==============================================================================================================
Try
Dim cmd As New OleDbCommand("insert into newcust ([NationalID],[pName],[Address],[Phone],[City],[CarNumber],[carModel],[carChassis],[MotorNumber],[Payment],[TotalPrice],[nDate]) values(@id,@gname,@address,@phone,@city,@carnum,@model,@chassis,@motornu,@pay,@cash,@gdate,@photoadd)", con)
cmd.Parameters.AddWithValue("@NationalID", id.Text)
cmd.Parameters.AddWithValue("@pName", gname.Text)
cmd.Parameters.AddWithValue("@Address", address.Text)
cmd.Parameters.AddWithValue("@Phone", phone.Text)
cmd.Parameters.AddWithValue("@City", city.Text)
cmd.Parameters.AddWithValue("@CarNumber", carnum.Text)
cmd.Parameters.AddWithValue("@carModel", model.Text)
cmd.Parameters.AddWithValue("@carChassis", chassis.Text)
cmd.Parameters.AddWithValue("@MotorNumber", motornu.Text)
cmd.Parameters.AddWithValue("@Payment", pay.Text)
cmd.Parameters.AddWithValue("@TotalPrice", cash.Text)
cmd.Parameters.AddWithValue("@nDate", gdate.Text)
Dim ms = New IO.MemoryStream()
photoadd.Image.Save(ms, photoadd.Image.RawFormat)
Dim bytes = ms.ToArray()
cmd.Parameters.AddWithValue("@Photo", bytes)
'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال
con.Open()
cmd.ExecuteNonQuery()
con.Close()
'اظهار رساله للمستخدم تبين له نجاح اضافته واغلاق الاتصال واغلاق الفورم بتاع الاضافه والذهاب الى الفورم الرئيسى
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح", 64, "حفظ الاضافة")
id.Text = ""
gname.Text = ""
address.Text = ""
phone.Text = ""
city.Text = ""
carnum.Text = ""
model.Text = ""
chassis.Text = ""
motornu.Text = ""
pay.SelectedIndex = -1
cash.Text = ""
gdate.Text = Date.Today
photoadd.Text = Nothing
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
وشكرا