18-02-15, 02:22 AM
السلام عليكم ورحمة الله
منذ فترة وانا اسوي برنامج بلغة الفيجوال بيسك مع قاعدة بيانات أكسس 2010
وسوي فورم لادخال البيانات ولكن عندما أشغل البرنامج يخرج لي خطألم استطع ايجاد حل له
هذا كود زر الحفظ
Dim con As New OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=C:\Users\HP\Desktop\mydb.accdb")
Dim da As New OleDbDataAdapter("INSERT INTO * workles", con)
Dim dt As New DataTable()
If (String.IsNullOrEmpty(TextBox1.Text) AndAlso String.IsNullOrEmpty(TextBox2.Text) AndAlso String.IsNullOrEmpty(ComboBox1.Text) AndAlso String.IsNullOrEmpty(TextBox3.Text) AndAlso String.IsNullOrEmpty(DateTimePicker1.Value) AndAlso String.IsNullOrEmpty(TextBox4.Text) AndAlso String.IsNullOrEmpty(TextBox5.Text) AndAlso String.IsNullOrEmpty(TextBox6.Text) AndAlso String.IsNullOrEmpty(TextBox7.Text) AndAlso String.IsNullOrEmpty(ComboBox2.Text) AndAlso String.IsNullOrEmpty(DateTimePicker2.Value) AndAlso String.IsNullOrEmpty(TextBox12.Text) AndAlso String.IsNullOrEmpty(PictureBox1.Text)) Then
MessageBox.Show("يجب ملئ جميع الحقول")
Return
End If
Dim str As String = String.Format("Insert into workles (الرقم الوطني,الاسم رباعي,الجنس,الجنسية,تاريخ الميلاد,اسم الام رباعي,الحالة الاجتماعية,المؤهل العلمي,التخصص,تاريخ الحصول عليه,مكان الاقامة,رقم الهاتف,البريد الالكتروني,الصورة الشخصية,تاريخ التسجيل بالمنظومة,)valeus ('{0}','{1}','{2}','{3}','#{4}#','{5}','{6}','{7}','{8}','{9}','#{10}#','{11}','{12}','{13}')", TextBox1.Text, TextBox2.Text, ComboBox1.Text, TextBox4.Text, DateTimePicker1.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, ComboBox2.Text, DateTimePicker2.Text, TextBox12.Text, PictureBox1.Text, DateTimePicker3.Text)
Dim cmd As New OleDbCommand(Str)
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم التسجيل بنجاح")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
TextBox7.Text = String.Empty
TextBox12.Text = String.Empty
وهذه صورة الخطأ
منذ فترة وانا اسوي برنامج بلغة الفيجوال بيسك مع قاعدة بيانات أكسس 2010
وسوي فورم لادخال البيانات ولكن عندما أشغل البرنامج يخرج لي خطألم استطع ايجاد حل له
هذا كود زر الحفظ
Dim con As New OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=C:\Users\HP\Desktop\mydb.accdb")
Dim da As New OleDbDataAdapter("INSERT INTO * workles", con)
Dim dt As New DataTable()
If (String.IsNullOrEmpty(TextBox1.Text) AndAlso String.IsNullOrEmpty(TextBox2.Text) AndAlso String.IsNullOrEmpty(ComboBox1.Text) AndAlso String.IsNullOrEmpty(TextBox3.Text) AndAlso String.IsNullOrEmpty(DateTimePicker1.Value) AndAlso String.IsNullOrEmpty(TextBox4.Text) AndAlso String.IsNullOrEmpty(TextBox5.Text) AndAlso String.IsNullOrEmpty(TextBox6.Text) AndAlso String.IsNullOrEmpty(TextBox7.Text) AndAlso String.IsNullOrEmpty(ComboBox2.Text) AndAlso String.IsNullOrEmpty(DateTimePicker2.Value) AndAlso String.IsNullOrEmpty(TextBox12.Text) AndAlso String.IsNullOrEmpty(PictureBox1.Text)) Then
MessageBox.Show("يجب ملئ جميع الحقول")
Return
End If
Dim str As String = String.Format("Insert into workles (الرقم الوطني,الاسم رباعي,الجنس,الجنسية,تاريخ الميلاد,اسم الام رباعي,الحالة الاجتماعية,المؤهل العلمي,التخصص,تاريخ الحصول عليه,مكان الاقامة,رقم الهاتف,البريد الالكتروني,الصورة الشخصية,تاريخ التسجيل بالمنظومة,)valeus ('{0}','{1}','{2}','{3}','#{4}#','{5}','{6}','{7}','{8}','{9}','#{10}#','{11}','{12}','{13}')", TextBox1.Text, TextBox2.Text, ComboBox1.Text, TextBox4.Text, DateTimePicker1.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, ComboBox2.Text, DateTimePicker2.Text, TextBox12.Text, PictureBox1.Text, DateTimePicker3.Text)
Dim cmd As New OleDbCommand(Str)
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم التسجيل بنجاح")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
TextBox7.Text = String.Empty
TextBox12.Text = String.Empty
وهذه صورة الخطأ