تقييم الموضوع :
  • 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] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 64 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  [سؤال] كود فتح الاوتوكاد عن طريق الفجوال 2008 gharib 3 75 21-05-17, 06:46 PM
آخر رد: gharib
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 137 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] مساعدة التحقق من الاتصال بالانترنت dubai.eig 3 100 19-05-17, 06:46 PM
آخر رد: dubai.eig
  مساعدة بخصوص تشفير ملف exe OakenShield 1 58 18-05-17, 11:27 AM
آخر رد: OakenShield
Lightbulb [سؤال] كيف اعمل sutup بالفيجوال بيسك الاصدار2013؟ moh_g 1 59 17-05-17, 05:13 AM
آخر رد: samawi
Exclamation [سؤال] كيفية التعامل مع الdataset في الوضع المنفصل في الفيجوال البيسك 2010 moh_g 4 113 16-05-17, 06:50 PM
آخر رد: moh_g
  مساعدة في حساب الدائن والمدين وايجاد الرصيد alwasela 6 537 16-05-17, 01:12 AM
آخر رد: salah mansour
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 88 11-05-17, 09:56 AM
آخر رد: جميل علي
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 103 10-05-17, 11:17 AM
آخر رد: khaled12345

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


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