طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94) +--- قسم : قسم قواعد البيانات العام (http://vb4arb.com/vb/forumdisplay.php?fid=169) +--- الموضوع : طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات (/showthread.php?tid=9372)

طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات - لا يعرف المستحيل - 21-06-13 مساكم الله جميعا بكل خير ... عندي مشكلة عند الربط بقاعدة البيانات وهي كم موضح ف الصورة الدرجة ... اتمنى منك المساعدة والله يحفظكم ويرعاكم طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات - محمود اكرم - 21-06-13 سلام عليكم ممكن ترفع المشروع لانه الصورة مو واضحة طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات - لا يعرف المستحيل - 21-06-13 المشروع عبارة عن مشروع دليل هاتف .... زر الاضافة لا يعمل ارجو منك توضيح النقاط التي لا تجعله يعمل برف المشروع وهو مضغوط طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات - لا يعرف المستحيل - 21-06-13 المشروع مع الملفات المرفقة احياتا يكون في مشكلة لفتح قاعدة البيانات [ATTACH]3110[/ATTACH] طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات - محمود اكرم - 22-06-13 السلام عليكم هناك اسباب لعدم تشغيل زر الاضافة احد هذه الاسباب اولا: استخدام اسم للعمود كلمة محجوزة الحل معرفة ماهذا العمود هذا الرابط يساعدك لتتأكد من كل الاعمدة في الجداول المستخدمة في برنامج بحيث انك تفتح هذا الرابط وتستخدم خاصية البحث فان وجدت اسم العمود محجوز غيره بطريقة ما هذا هو الرابط http://support.microsoft.com/kb/248738 ثانيا: جملة الاضافة فيها خطأ 1- يجب ان تربط قاعدة البيانات اولا 2- وضع جملتي الكود في بداية شاشة الكود Imports System.Data Imports System.Data.OleDb 3- وضع جملة الاتصال عادة تكون هكذا Dim Conect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataB.mdb;Persist Security Info=True" Dim newConect As New OleDbConnection(Conect) Dim Dataset1 As New DataSet Dim cmd As New OleDbCommand Dim SQLstr As String = "Select * From tab" علما بانه يجب ان يجب تغيير كلمة tab اسم الجدول واسم قاعدة البيانات 4- في حدث التحميل نضع الجمل التالية newConect.Open() Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newConect) DataAdapter1.Fill(dataset1, "tab") newConect.Close() TextBox1.DataBindings.Add("text", Dataset1, "tab.id") TextBox2.DataBindings.Add("text", Dataset1, "tab.Name") علما بانid و Name و tab يتم تغييرهم حيث ان tab اسم الجدول و idوName هم احد الاعمدة 5- في زر الاضافة يجب تجهيز النص بحيث يكون فارغا لذا وبعد ذلك يجب حفظ الاضافة لذا هذا هو الكود If Button1.Text = "اضافة" Then TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" Button1.Text = "حفظ" Else newConect.Open() cmd.Connection = newConect cmd.CommandText = "INSERT INTO Tab (name,Id) Values('" + TextBox2.Text + "'," + TextBox3.Text + ")" cmd.CommandType = CommandType.Text cmd.ExecuteNonQuery() newConect.Close() Button1.Text = "اضافة" End If 'علما بان اسم الزر "اضافة" طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات - لا يعرف المستحيل - 22-06-13 مشكور الله يعطيك الف عافية يارب .... طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات - Abu Ehab - 22-06-13 دلــــــــيل الهــــاتف هنـــــــــــــا RE: طلب مساعدة عندي مشكلة عند الربط بقاعدة البيانات - مصطفى مجيد - 04-02-15 مرحبا....محتاج  برمجه  اداة combobox لتحديد فصيله الدم