[لا يعرف المستحيل]

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


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

[محمود اكرم]

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

[لا يعرف المستحيل]

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

[لا يعرف المستحيل]

المشروع مع الملفات المرفقة احياتا يكون في مشكلة لفتح قاعدة البيانات
[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
'علما بان اسم الزر "اضافة"

[لا يعرف المستحيل]

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

[Abu Ehab]

دلــــــــيل الهــــاتف هنـــــــــــــا

[مصطفى مجيد]

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