تقييم الموضوع :
  • 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 مساعدة nabilelk 1 36 أمس, 11:48 PM
آخر رد: ابراهيم النعيمي
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 95 07-12-16, 02:39 PM
آخر رد: a_abdullah
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 58 07-12-16, 12:20 AM
آخر رد: amgad525
  طريقة نقل الفيجوال ستيديو من جهاز لاخر CLARO 1 39 06-12-16, 08:15 PM
آخر رد: محمد كريّم
  نقل واسترجاع ملفات بواسطة الفيجوال بيسك عبدالرحمن المكاوي 25 520 05-12-16, 08:30 PM
آخر رد: عبدالرحمن المكاوي
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 95 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 56 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 65 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 304 25-11-16, 11:57 AM
آخر رد: العزابي

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


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