منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مساكم الله جميعا بكل خير ... عندي مشكلة عند الربط بقاعدة البيانات وهي كم موضح ف الصورة الدرجة ... اتمنى منك المساعدة


والله يحفظكم ويرعاكم

سلام عليكم ممكن ترفع المشروع لانه الصورة مو واضحة

المشروع عبارة عن مشروع دليل هاتف .... زر الاضافة لا يعمل ارجو منك توضيح النقاط التي لا تجعله يعمل
برف المشروع وهو مضغوط

المشروع مع الملفات المرفقة احياتا يكون في مشكلة لفتح قاعدة البيانات
[ATTACH]3110[/ATTACH]

السلام عليكم
هناك اسباب لعدم تشغيل زر الاضافة احد هذه الاسباب
اولا: استخدام اسم للعمود كلمة محجوزة
الحل معرفة ماهذا العمود
هذا الرابط يساعدك لتتأكد من كل الاعمدة في الجداول المستخدمة في برنامج بحيث انك تفتح هذا الرابط وتستخدم خاصية البحث فان وجدت اسم العمود محجوز غيره بطريقة ما
هذا هو الرابط 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
'علما بان اسم الزر "اضافة"

مشكور الله يعطيك الف عافية يارب ....

مرحبا....محتاج  برمجه  اداة combobox لتحديد فصيله الدم