مساعدة من اساتذة الفيجوال بيسك 2008 - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : مساعدة من اساتذة الفيجوال بيسك 2008 (/showthread.php?tid=11464) |
مساعدة من اساتذة الفيجوال بيسك 2008 - ابن صحراء الليبو - 18-02-15 السلام عليكم ورحمة الله منذ فترة وانا اسوي برنامج بلغة الفيجوال بيسك مع قاعدة بيانات أكسس 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 وهذه صورة الخطأ RE: مساعدة من اساتذة الفيجوال بيسك 2008 - العزابي - 18-02-15 حمل اكسس 2007 أو 2010 أو 2013 انت لديك فقط 2003 تحياتي RE: مساعدة من اساتذة الفيجوال بيسك 2008 - ابن صحراء الليبو - 18-02-15 الاكسس اللي عندي هو 2010 RE: مساعدة من اساتذة الفيجوال بيسك 2008 - ameerah - 18-02-15 هذه المشكلة موجودة في الإصدارات القديمة من الفجوال بيسيك التي قبل 2010 ولحلها غير خصائص المشروع إلى x86 تجدها بعد النقر مرتين على My Project في مستكشف المشروع بعدها تذهب إلى Compile ويوجد فيها زر اسمه advanced compile options وهناك غير target cup إلى x86 هذه المشكلة موجودة في الإصدارات القديمة من الفجوال بيسيك التي قبل 2010 ولحلها غير خصائص المشروع إلى x86 تجدها بعد النقر مرتين على My Project في مستكشف المشروع بعدها تذهب إلى Compile ويوجد فيها زر اسمه advanced compile options وهناك غير target cup إلى x86 RE: مساعدة من اساتذة الفيجوال بيسك 2008 - ابن صحراء الليبو - 18-02-15 (18-02-15, 09:58 PM)ameerah كتب : هذه المشكلة موجودة في الإصدارات القديمة من الفجوال بيسيك التي قبل 2010 شكرا ameerah تم حل المشكلة بارك الله فيك وجزاك الله ألف خير |