اخوانى فى الله انا عندى برنامج تعلمت فيه كيفيه الاتصال بقواعد البيانات والحمد لله ولكن فى عملت الاضافه والحفظ والتعديل وعمليت البحث التى قد جننتنى ففى المثال المرفق سترون اريد من احد الاخوهالتكرم وان يكمل هذه الصفحه فى البرنامج حتى اتعلم ومنكم نستفيد وقد رئيت ما فى المنتدى وفعلته ولكن هناك اخطاء حيث اننى اول مره اتعامل مع قواعد البيانات فى الدوت نت والكن سبق لى فى 6.......................
ولكم جزيـــــــــــــــل الشكـــــــــــــــــــر :rolleyes:
لن تبلغ المجد حتى تلعق الصبرااااااااا
حياك الله أخي ,,
نزلت المرفق ,, ولكن على أي إصدار تعمل ,, أرجو ألا يكون 2005 ,,,
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
لا يا اخى 2003
ارجوكم ساعدون ان اتعلم انا فى انتظار ردودكم
وليس هذا فحسب من اراد الزياده من التعليم فليضيف
لن تبلغ المجد حتى تلعق الصبرااااااااا
هل راجعت الموضوع السابق الذي جاوبت عليك فيه ,,
بس حبيت تمر هناك مشان تستفيد ,, وبشوف لك المشروع إن شاء الله ,,
أختك ,,,
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
السلام عليكم
أخي الكريم بإمكانك الاطلاع على الشرح و الملف المرفق في الموضوع التالي
ففيه الأكواد التي تريدها
تمنياتي بالتوفيق ؛؛
تم تعديل هذه المشاركة بواسطة تمهيدي في 12 مايو 2006 في 21:44
{ وقل رب زدني علماً }
اخى فى الله تمهيدى اطلعت على ما فى الرابطه وحملة البرنامج الى فيها وهناك مشاكل ايضا فى الاضافه ولا اعلم سببها ارجوك الاطلاع على البرنامج المرفق واجبنى فيه بالله عليكم
وجزاكم الله خيرا
لن تبلغ المجد حتى تلعق الصبرااااااااا
إن شاء الله أخي أطلع عليه
لكن لدي سؤال
الاتصال الذي أنشأته
أنشأته عن طريق المعالج أم عن طريق الكود ؟؟
بالتوفيق ؛؛
{ وقل رب زدني علماً }
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
السلام عليكم
أخي الكريم مشكلتك كالتالي، في Form_Load أنت كاتب:
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb"
con.Open()
Dim da As New OleDbDataAdapter("select * from info", con)
Dim ds As New DataSet
da.Fill(ds, "info")
Me.DataGrid1.DataSource = ds
Me.num_txt.DataBindings.Add(New Binding("text", ds, "info.name"))
Me.text_txt.DataBindings.Add(New Binding("text", ds, "info.phon"))
Me.kin_txt.DataBindings.Add(New Binding("text", ds, "info.addres"))
con.Close()لاحظت أنك معرف Global Variables داخل الفورم حتى تستخدمها في كل أحداث الأزرار التي وضعتها، لكن المشكلة أنك معرف متغيرات داخل Form_Load بنفس أسماء المتغيرات اللي معرفها في الخارج وهي con, da, ds وبالتالي هذه متغيرات جديدة ولا علاقة لها بالمتغيرات الخارجية التي تستدعيها داخل كود الأزرار، وبالتالي الحل هذا هو:
con = New OleDbConnection
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb"
con.Open()
da = New OleDbDataAdapter("select * from info", con)
ds = New DataSet
da.Fill(ds, "info")
Me.DataGrid1.DataSource = ds
Me.num_txt.DataBindings.Add(New Binding("text", ds, "info.name"))
Me.text_txt.DataBindings.Add(New Binding("text", ds, "info.phon"))
Me.kin_txt.DataBindings.Add(New Binding("text", ds, "info.addres"))
con.Close()وفي مشكلة ثانية لكن ما وصلت لحلها بعد
If Debugging is the process of removing bugs from the program, Then Programming must be the process of putting them in
اخوانى ف الله بعد شكر الاساتذه الافاضل بالرد السريع
الا ان البرنامج كما هو به نفس الاخطاء وما تصلحتش
بالله عليكم ساعدومى
ارجــــــــــــــــــــــــــــــــــــــــــــــــــــوكم
انا تعبت
0000000000000000000000000
لن تبلغ المجد حتى تلعق الصبرااااااااا
أخي الكريم
الحل في الملف المرفق
أرتكبت الأخطاء التالية:
1- كما قال الأخوة سابقاً بشأن تعريف المتحولات بنفس الاسم على نسختين: عامة ومحلية .. تخلص من المحلية واحتفظ بالعامة
2- عندما بنيت التيبل أدابتر قمت بإنشاء كوماند السلكت فقط ولم تقم بإنشاء الكوماندات الثلاث الباقية (أبديت - ديليت - إنسيرت) ، عليك إنشائها .. أسهل طريقة هي استخدام الكوماند بلدر كما هو موضح في الملف المرفق.
3- في عبارة التحديث لم تذكر اسم الجدول المراد تحديثه ، عليك ذكره كما في الملف المرفق .. وهذا لأنك استخدمت الكود وليس المعالج في بناء الداتا سيت فلم يقم بحفظ أسماء الجداول بداخله كما هو الحال عند استخدام المعالج.
بالتوفيق
اخى عاجز انا عن تقديم الشكر للمساعده ولكن بدون ثقل هناك مشكلتين
1-ان عندما اضيف شخص يضاف ويحفظ امامى على الداتا جرد ولكن حينما اذهب لقاعدة البيانات الاصليه اكسس
لا يوجد الركود الذى اضيف فما الحل
2- وهى عمليه البحث ممكن ن تكون بجمله (sql)(select)
ام لا يجوز
ومنكم اخوانى نستفيد وثانيا اقدم الشكر لاخى هارون على مساعدتى
الهم اغفر ورحم كل من شارك او ساهم فى هذا المنتدى
نشكركم ونرجو ردكم الكريم
لن تبلغ المجد حتى تلعق الصبرااااااااا
السلام عليكم
إخوانى مازالت المشكلة مطروحة
Sub FillSupplyOrder()
Private MyCONN As New OleDbConnection
Private ConnStr = ("Provider=Microsoft.jet.oleDB.4.0;Data Source=" & Application.StartupPath & "\purchases.mdb;" & "Persist Security Info=False")
MyCONN.ConnectionString = ConnStr
Dim OleCommand As New OleDbCommand
Dim OleDataReader As OleDbDataReader
OleCommand.CommandText = "select * from supply where supplyOrder='" & txtsupplyOrder.Text.Trim & "'"
OleCommand.Connection = MyCONN
MyCONN.Open()
OleDataReader = OleCommand.ExecuteReader()
If OleDataReader.Read Then
txtSupplyerName.Text = OleDataReader.GetString(1)
txtSupplyDate.Text = OleDataReader.GetString(2)
Else
MsgBox(" هذا الرقم غير موجود")
End If
MyCONN.Close()
OleDataReader.Close()
End Subلماذا لا ينفذ هذا الكود
أرجو الافادة
تحياتى..........
السلام عليكم
أسف لهذا الخطأ
Private MyCONN As New OleDbConnection
Private ConnStr = ("Provider=Microsoft.jet.oleDB.4.0;Data Source=" & Application.StartupPath & "\purchases.mdb;" & "Persist Security Info=False")
Sub FillSupplyOrder()
MyCONN.ConnectionString = ConnStr
Dim OleCommand As New OleDbCommand
Dim OleDataReader As OleDbDataReader
OleCommand.CommandText = "select * from supply where supplyOrder='" & txtsupplyOrder.Text.Trim & "'"
OleCommand.Connection = MyCONN
MyCONN.Open()
OleDataReader = OleCommand.ExecuteReader()
If OleDataReader.Read Then
txtSupplyerName.Text = OleDataReader.GetString(1)
txtSupplyDate.Text = OleDataReader.GetString(2)
Else
MsgBox(" هذا الرقم غير موجود")
End If
MyCONN.Close()
OleDataReader.Close()
End Subتحياتى..........
قال رسول الله صلى الله عليه وسلم
يكبر بن أدام ويكبر معه شيئان كثرة المال وطول العمر
صدق رسول الله صلى الله عليه وسلم
قال عمر بن الخطاب رضي الله عنه
نحن قوم أعزنا الله بالإسلام فإذا إبتغينا العزة فى غيره أذلنا الله
السلام عليكم
الحقيقة ما عرفت لبرمجتك أخي crazy.net
لكني سويت بالطريقة اللي أعرفها >>> تجدها في الملف المرفق
ولم أعرف كيف أتعامل مع DataGraid
لأني مازلت مبتدئاً ولا أملك خبرة كافية ؛ فحبيت أساعدك باللي أقدر عليه !
أرجو من الأخوة المبرمجين التعديل على الملف إن كان بحاجة لذلك !
اقتباس* ملاحظة :إذا كان عندك قسم D على القرص الصلب فاجعل الملف فيه
وإلا فستضطر إلى تغيير مسار قاعدة البيانات
{ وقل رب زدني علماً }
ارجو من الاخوه المبرمجين المساعده ان ينزل البرنامج المرفق اعلاه فى اول الصفحه ويقوم ببرمجت ما ينقص منه لانى لا اعلم وجربت كتير بالطريقه المرفقه والاخوه الكرام جربو ولا يقدرن ارجو من الاخوه الاعضاء والمشرفين الاهتمام
ارجــــــــــــــــــــــــــــــــوكـــــــــــــــــــــــــم
لن تبلغ المجد حتى تلعق الصبرااااااااا
cdcase كتب:السلام عليكمإخوانى مازالت المشكلة مطروحة
Sub FillSupplyOrder() Private MyCONN As New OleDbConnection Private ConnStr = ("Provider=Microsoft.jet.oleDB.4.0;Data Source=" & Application.StartupPath & "\purchases.mdb;" & "Persist Security Info=False") MyCONN.ConnectionString = ConnStr Dim OleCommand As New OleDbCommand Dim OleDataReader As OleDbDataReader OleCommand.CommandText = "select * from supply where supplyOrder='" & txtsupplyOrder.Text.Trim & "'" OleCommand.Connection = MyCONN MyCONN.Open() OleDataReader = OleCommand.ExecuteReader() If OleDataReader.Read Then txtSupplyerName.Text = OleDataReader.GetString(1) txtSupplyDate.Text = OleDataReader.GetString(2) Else MsgBox(" هذا الرقم غير موجود") End If MyCONN.Close() OleDataReader.Close() End Subلماذا لا ينفذ هذا الكود
أرجو الافادة
تحياتى..........
السلام عليكم
أسف لهذا الخطأ
Private MyCONN As New OleDbConnection Private ConnStr = ("Provider=Microsoft.jet.oleDB.4.0;Data Source=" & Application.StartupPath & "\purchases.mdb;" & "Persist Security Info=False") Sub FillSupplyOrder() MyCONN.ConnectionString = ConnStr Dim OleCommand As New OleDbCommand Dim OleDataReader As OleDbDataReader OleCommand.CommandText = "select * from supply where supplyOrder='" & txtsupplyOrder.Text.Trim & "'" OleCommand.Connection = MyCONN MyCONN.Open() OleDataReader = OleCommand.ExecuteReader() If OleDataReader.Read Then txtSupplyerName.Text = OleDataReader.GetString(1) txtSupplyDate.Text = OleDataReader.GetString(2) Else MsgBox(" هذا الرقم غير موجود") End If MyCONN.Close() OleDataReader.Close() End Subتحياتى..........
السلام عليكم
أرجو من الاخوة الكرام عدم الاهتمام بهذا الموضوع
ولله الحمد لقد وجدت حل مشكلتى
تحياتى...........
قال رسول الله صلى الله عليه وسلم
يكبر بن أدام ويكبر معه شيئان كثرة المال وطول العمر
صدق رسول الله صلى الله عليه وسلم
قال عمر بن الخطاب رضي الله عنه
نحن قوم أعزنا الله بالإسلام فإذا إبتغينا العزة فى غيره أذلنا الله
بودي أساعدك أخي لكني لا أعرف للطريقة التي استخدمتها
أتمنى لك التوفيق
وإن شاء الله أحد يقدر يساعدك
الأخ/ـت cdcase
الحمد لله
هل لك أن تخبرنا بالحل ؟
تحياتي وبالتوفيق ؛؛
{ وقل رب زدني علماً }
السلام عليكم
أخى فى الله تمهيدى
الحل كان أبسك مما كنت اتخيل وهو إن جملة ال Select كانت خطأ لان ال SupplyOrder Field
عبارة عن رقم
وجملة ال Select بالاعلا كانت لنص
هذا فقط كان الحل
أخى أتمنى ان اكون وفقت بالتوضيح
تحياتى .......
قال رسول الله صلى الله عليه وسلم
يكبر بن أدام ويكبر معه شيئان كثرة المال وطول العمر
صدق رسول الله صلى الله عليه وسلم
قال عمر بن الخطاب رضي الله عنه
نحن قوم أعزنا الله بالإسلام فإذا إبتغينا العزة فى غيره أذلنا الله
هو انتم نسيتو انى واضع مشكله
ارجو من المشرفين حلها
البرنامج معروض فى اول الصفحات
لن تبلغ المجد حتى تلعق الصبرااااااااا
هذا الموضوع مغلق.