سؤال:مشكلة في ربط برنامجي بالأكسس

التسسليم هذا الاسبوع وانا الى الان ماخلصت بلييييييييييييز ممكن تساعدوني

Ibenseina.rar

يا اختي ولله انا مش داخلة في مخي يعني انتي دارسة هذي الاشياء في الجامعة وبتسوي مشروع ومش عارفة كيف تسوية !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! يعني كيف بيعطو مشروع اكبر من قدرة الطالب يعني لازم يعطو مشروع في الاشياء الي انتو دارسينها!!!!!! ولله شغلة بتحير

اولا انا قلت اني مبتدئة مو دارسة غير اساسيات صغير ه تعريف متغير فتح ملف نصي وهاي الاشياء

ثاني شيي اهم دايما كذا يعطونا واجبات احنا اساسا مو ماخذينها في المنهج علشان ندور بنفسنا ونجرب

لا كن انا حاولت وتعبت ولا لقيت لابعقلي ولا بالنت قلت اعطي الخباز خبزه ويش اسوي يأست من الشغلة

واهم ماعطونا اساسا كيف نسوي البرنامج مجرد اعطونا الاوامر واحنا نرتبها ونكتب البرنامج

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

فياليت لو احد يعلمني ويش الخطا مو لازم يصلحهم لكن يعلمني وين الخطا يمكن انا مو شايفتة

اختي الكريمة انا حاولت بس وجدت فيه شغلات لخبطتني

انتي تستخدمي recordset وهذا شي غريب في الدوت رغم وجود databinding

انا إن شاء الله اليوم ارسل لك انتي وزميلتك كريستينا اللي عندها نفس مشروعك (ابن سينا) كيف تسوي عملية التالي والسابق

مشكور اخوي انا ابي اسلمه صحيح بس في نفس الوقت ودي افهمه زين لاني بالفعل احب الفيجول بس هذا البرنامج طير عقلي مو خلني انام ابدا

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ،،

معاكم عضو جديد

اطلعت على الموضوع بنظرة خاطفة .. :rolleyes:

بس لقيت الردود مرة يمين ومرة شمال وتخربطت السالفة في مخي :wacko:

أختي الفاضلة

ممكن توضحي بالضبط شنو اللي تبينه ؟؟

اللي فهمته

أن لديك جدولين في قاعدة البيانات وتريدين عرض بياناتهما بالفيجوال على مربعات نص

هل فهمي صحيح ؟!

:unsure:

الاخ تمهيدي نعم فهمك صحيح

واذا اردت تستطيع ان تطلع على الاسئله حول البرنامج ومانريد عمله خطوه بخطوه

الأخت فرحة هذا هو مثال من السي الدي التعليمي الذي يشرح عملية next - previous

الأخت فرحة هذا هو مثال من السي الدي التعليمي الذي يشرح عملية next - previous

Lesson19.zip

Lesson19.zip

السلام عليكم ..

شوفي أختي ..

ركزي معي خطوة بخطوة ( راح أشرح لك الطريقة لأني لو بسوي اللي تبينه وباعطيك وياه ما راح تستفيدي بالتالي ، وأكيد إنتي تبين تفهمين شللي يصير ! ) :rolleyes:

-----------------

* احنا قلنا إن عندنا جدولين

راح أضرب لك مثال بسيط وبعدين إنتي جربي على اللي عندك وخبريني بالنتيجة ..

نفترض إن :

* الجدول الأول اسمه Employee

ويحتوي على الحقول

- No نوعه رقم

- Name نوعه نص

- Addrees نوعه نص

* والجدول الثاني اسمه Phone

ويحتوي على الحقول

- No نوعه رقم

- HomePhone

- MobailPhone

- OtherPhone

وطبعاً جميعهم نوعهم نص

-------------------------

نبدأ الآن في خطوة عرض البيانات بواسطة الفيجوال ( طبعاً بعد ما سوينا اتصال وأنتي تعرفين الطريقة B) )

* التصميم لدينا كالتالي :

6 مربعات نص

نغير خاصية كل مربع نص من قائمة Properties

نفتح إشارة (+) في (DataBindings)

ونختار اسم الحقل المناسب لمربع النص من

 Tag >>> DataSet1 >> اسم الحقل

1 - نضغط دبل كلك على زر الأمر ( عرض ) وليكن اسمه مثلاً : btnDisply

2 - تفتح لنا نافذة الكود ، نكتب فيها التالي

- في أعلى نافذة الكود نكتب :

Imports System.Data.OleDb

- عند الضغط على زر الأمر :

  Private Sub btnDisply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisply.Click
        Dim dis1 As New OleDbCommand
        Dim dis2 As New OleDbCommand

        Dim drobj As OleDbDataReader
        Dim dr As OleDbDataReader
        dis1.Connection = OleDbConnection1

        dis1.CommandText = " SELECT * From Man "

        OleDbConnection1.Open()
        drobj = dis1.ExecuteReader

        Clear()

        If drobj.Read Then
            txtNo.Text = drobj.GetValue(0)
            txtName.Text = drobj.GetString(1)
            txtAddress.Text = drobj.GetValue(2)

        End If
        drobj.Close()
        OleDbConnection1.Close()


        dis2.Connection = OleDbConnection1
        dis2.CommandText = " SELECT * From Phone where(No_M = " & txtNo.Text & ")"
        OleDbConnection1.Open()
        dr = dis2.ExecuteReader

        If dr.Read Then
            txtHome.Text = dr.GetString(1)
            txtMobile.Text = dr.GetString(2)
            txtOther.Text = dr.GetString(3)

        End If
        dr.Close()
        OleDbConnection1.Close()

    End Sub

- الـ Clear إجراء فرعي لمسح ما بداخل مربعات النص ؛ ونكتبه كالتالي في أي مكان فارغ في الكود تحت Public Class Form1 وفوق End Class:

 Sub Clear()
        txtNo.Clear()
        txtName.Clear()
        txtAddress.Clear()
        txtHome.Clear()
        txtMobile.Clear()
        txtOther.Clear()
    End Sub

المثال في المرفق ( احفظيه على سطح المكتب لئلا تضطري لتغيير مسار الاتصال ) B)

تحياتي وبالتوفيق ؛؛ :rolleyes:

farah_979.zip

شكرا جزيلا

وسعطيك ااااااااالف عااااااااافية

العفو

بس المهم هل تطبق أم لا ؟؟!

عموماً إذا واجهتك أي مشكلة أخبرينا لعل باستطاعتي أو أحد الأخوة المساعدة

بالتوفيق :)

السلام عليكم

ياأخ تمهيدي طبقت البرنامج لكن ماشتغل معي يحط خطأ عند جملة

( )OleDbConnection1.Open

كيف اطبقة على جدول واحد

وشكرا جزيلا

السلام عليكم

الحمد لله يوم إنه طبَّق .. :rolleyes:

أختي كرستينا تأكدي من رقم الاتصال عندك

في نافذة التصميم شنو رقم الاتصال الموجود عندك تحت الـ Form

أو من نافذة الكود اضغطي على Ctrl + مسافة راح تظهر لك قائمة شوفي اسم الاتصال عندك وحطيه

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

يعني : إذا نبي نعرض بس بيانات جدول Man ( اللي عندنا في المثال )

Private Sub btnDisply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisply.Click
       Dim dis1 As New OleDbCommand
     
       Dim drobj As OleDbDataReader
       Dim dr As OleDbDataReader
       dis1.Connection = OleDbConnection1

       dis1.CommandText = " SELECT * From Man "

       OleDbConnection1.Open()
       drobj = dis1.ExecuteReader

       Clear()

       If drobj.Read Then
           txtNo.Text = drobj.GetValue(0)
           txtName.Text = drobj.GetString(1)
           txtAddress.Text = drobj.GetValue(2)

       End If
       drobj.Close()
       OleDbConnection1.Close()


   End Sub

أتمنى يكون الشرح واضح لأني بصراحة ما أعرف أشرح !! :unsure:

* ملاحظة :

اعتذر لأني في بداية الشرح كتبت اسم الجدول Employee

اقتباس

نفترض إن :

* الجدول الأول اسمه Employee

بينما استخدمنا في مثالنا جدول Man

فعذراً على الخطأ المطبعي :D

تحياتي للجميع وبالتوفيق ؛؛ :)

تأكدت من رقم الاتصال نفس الشي مايشتغل

السلام عليكم :rolleyes:

Dim con As New OleDb.OleDbConnection()
        Dim Myds As New DataSet()
        Dim sql(1) As String
        sql(0) = "select id,filenum,pname,age,phone from pdatas"
        sql(1) = "select ID,vtime,docname,clinic,notes from hospital"
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=ibensena1.mdb;Persist Security Info=False"
        Try
            Dim dapdatas As New OleDb.OleDbDataAdapter(sql(0), con)
            Dim dahospital As New OleDb.OleDbDataAdapter(sql(1), con)
            dapdatas.Fill(Myds, "pdatas")
            dahospital.Fill(Myds, "hospital")
            DataGrid1.DataSource = Myds
            Myds.Relations.Add("patient datas", "&" Myds.Tables("pdatas").Columns(3))(Myds.Tables("hospital").Columns(2), True)
        Catch e1 As OleDb.OleDbException
            Label10.Text = e1.Message
        End Try

هذا الكود طبقتة لكن ماأعرف وين الخطا في هذي الجملة

Myds.Relations.Add("patient datas", "&" Myds.Tables("pdatas").Columns(3))(Myds.Tables("hospital").Columns(2), True)

وشكرا

السلام عليكم

لقد جربت هذا الكود ولكن يوجد مشكلة

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()
		Try
			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()
		Catch ex As OleDb.OleDbException
			MessageBox.Show(ex.Message)
		End Try
	End Sub

بالنسبة لهذا الامر

OleCommand.CommandText = "select * from supply where supplyOrder=' & txtsupplyOrder.Text.Trim & '"

الداتا تايب بتاعته رقم ومع ذلك يعترض وكنت من قبل قد جربت هذا الكود بدلا من السابق

OleCommand.CommandText = "select * from supply where supplyOrder='" & txtsupplyOrder.Text.Trim & "'"

ولكن المشكلة مارالت مطروحة

أرجو الافادة

تحياتى.....

السلام عليكم

لقد جربت هذا الكود ولكن يوجد مشكلة

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()
		Try
			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()
		Catch ex As OleDb.OleDbException
			MessageBox.Show(ex.Message)
		End Try
	End Sub

بالنسبة لهذا الامر

OleCommand.CommandText = "select * from supply where supplyOrder=' & txtsupplyOrder.Text.Trim & '"

الداتا تايب بتاعته رقم ومع ذلك يعترض وكنت من قبل قد جربت هذا الكود بدلا من السابق

OleCommand.CommandText = "select * from supply where supplyOrder='" & txtsupplyOrder.Text.Trim & "'"

ولكن المشكلة مارالت مطروحة

أرجو الافادة

تحياتى.....

السلام عليكم

الأخ/ـت cdcase

هل بإمكانك إرفاق ملف للتوضيح أكثر والبحث عن المشكلة!

بالتوفيق ؛؛

:wacko:السلام عليكم انا فكتوريا قريت الموضوع واعجبني لأنة يخصني وابغى اتعلم من البرمجين المخضرمين لأننا لما درسنا اعطونا اي كلام والسلام

وبالمرة انا عندي برنامج القاعدة على الأكسس وربطة بالفجول عن طريق الويزرد واشتغل زي الهوى لكن المشكلة لما بغيت اعملة ملف تنفيذي اتحملت الواجهات بدون قاعدة البيانات وهذي هي مشكلتي كيف احمل قاعدة البيانات مع البرنامج ؟ وشكراً مرة اخرى للخبراء

جميع الاعضاء يشغلون البرامج على سطح المكتب وهذا خطأ

عند عمل أي مشروع لابد أي يكون المشروع على السي وليس على سطح المكتب

ثانيا عند ربط الأكسس بالمعالج وتشغيله في أي مكان لازم تعمل له ربط ثاني مره

حتى يعمل معك البرنامج

ثالثاً : المكاتب مفتوحه وتعمل مشاريع تخرج بأرخص الاسعار

واذا تبقي تتعلم بعد ما تسلم المشروع تعلم

تحياتي

شكلك عندك مكتب برمجة وتبيع برامج لأنك ماتبغى تعلم احد :P

انظرى يا اخت فقد قربت من انهاء برنامجك

انا عملته من جديد بطريقط ربط بالاداوات الكنكشن

انظرى

ومش من حق الاخت الكريمه الى بتقول عندها مكتب مش من حقا ان تقول ذللك

تمهيدي كتب:

السلام عليكم

الأخ/ـت cdcase

هل بإمكانك إرفاق ملف للتوضيح أكثر والبحث عن المشكلة!

بالتوفيق ؛؛

السلام عليكم

الاخ تمهيدى لك وافر الشكر والاحترام

لقد تم حل المشكلة بالامس

مشكور أخى

تحياتى..........