تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة من اساتذة الفيجوال بيسك 2008
#1
Exclamation 
السلام عليكم ورحمة الله
منذ فترة وانا اسوي برنامج بلغة الفيجوال بيسك مع قاعدة بيانات أكسس 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

وهذه صورة الخطأ


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
حمل اكسس 2007 أو 2010 أو 2013

انت لديك فقط 2003

تحياتي
الرد
تم الشكر بواسطة:
#3
الاكسس اللي عندي هو 2010
الرد
تم الشكر بواسطة:
#4
هذه المشكلة موجودة في الإصدارات القديمة من الفجوال بيسيك التي قبل 2010

ولحلها غير خصائص المشروع إلى x86
تجدها بعد النقر مرتين على My Project في مستكشف المشروع
بعدها تذهب إلى Compile ويوجد فيها زر اسمه advanced compile options وهناك غير target cup إلى x86

هذه المشكلة موجودة في الإصدارات القديمة من الفجوال بيسيك التي قبل 2010

ولحلها غير خصائص المشروع إلى x86
تجدها بعد النقر مرتين على My Project في مستكشف المشروع
بعدها تذهب إلى Compile ويوجد فيها زر اسمه advanced compile options وهناك غير target cup إلى x86
الرد
#5
(18-02-15, 09:58 PM)ameerah كتب : هذه المشكلة موجودة في الإصدارات القديمة من الفجوال بيسيك التي قبل 2010

ولحلها غير خصائص المشروع إلى x86
تجدها بعد النقر مرتين على My Project في مستكشف المشروع
بعدها تذهب إلى  Compile ويوجد فيها زر اسمه advanced compile options وهناك غير target cup إلى x86


هذه المشكلة موجودة في الإصدارات القديمة من الفجوال بيسيك التي قبل 2010

ولحلها غير خصائص المشروع إلى x86
تجدها بعد النقر مرتين على My Project في مستكشف المشروع
بعدها تذهب إلى  Compile ويوجد فيها زر اسمه advanced compile options وهناك غير target cup إلى x86


شكرا ameerah تم حل المشكلة بارك الله فيك
وجزاك الله ألف خير
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 16 292 منذ 4 ساعة مضت
آخر رد: rnmr
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 1 40 اليوم, 12:24 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 75 11-10-18, 03:30 PM
آخر رد: Simo1991
  مساعدة في datatGridviwe DOX.1 6 122 10-10-18, 12:23 AM
آخر رد: حريف برمجة
  [SQL] اريد buckup لقاعدة بيانات 2008 sabrizinoubi 0 47 09-10-18, 04:52 PM
آخر رد: sabrizinoubi
  [سؤال] مشكلة في إرسال بيانات من الفيجوال الى الوورد سعود الشامان 7 349 08-10-18, 01:56 AM
آخر رد: عبد العزيز البسكري
  مطلوب شرح اضافة اداة فى الفيجول بيسك Mohamed Magdy 8 192 05-10-18, 12:26 AM
آخر رد: elgokr
  [VB.NET] مساعدة بخصوص كود الحفظ ay.alhaj 19 271 04-10-18, 10:22 PM
آخر رد: ay.alhaj
  [سؤال] مساعدة في كود تحديث برنامج ScreamVoice 9 139 03-10-18, 02:48 PM
آخر رد: ScreamVoice
  احتاج مساعدة ارجوكم naderalkeng54 11 238 29-09-18, 12:01 PM
آخر رد: naderalkeng54

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم