الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ربط البرنامج بقاعدة بيانات أكسس

بدأه مصطفى_ظيمة في 22 أبريل 2010 · 8 رد · 1,996 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بداية ... السلام عليكم ورخمة الله وبركاته

وأود ان اعبر لكل القائمين على هذا المنتدى عن اعتزازى بوجودى بينكم كعضو من اعضائة

ولأنى قد عزمت النية على الدخول فى برمجة برنامج بواسطة vb2008 ولكنى اصطدمت باختلافة عن vb6 تماما

فأعذرونى ان كانت أسألتى هنا كثيرة

وبداية أحب أن اعرف كيف اربط قاعدة البيانات من نوع أكسس ومشفرة بباسورد بالبرنامج بحيث يكون كود الربط فى مديول يعنى يكون الكود عام

ثانيا عايز أعرف كود ربط اكثر من جدول من قاعدة البيانات بالبرنامج مع العلم ان كل جدول يمثله فروم منفصلة

بس ياريت يكون الأكواد مذيلة بشرح لكل كود بطريقة مبسطة وسهلة كما عهدت فيكم

وفى النهاية

اشكر لكم تفهمكم وتعاونكم معى فى الوصول إلى مبتغاى

#2

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

أخى العزيز

علشان تعمل ربط بيهم اول حاجة تجيب sqlconn و تضع conectionstring

ده conectionstring من عندى خده و ظبطه انت

Provider=Microsoft.Jet.OLEDB.3.51;Password=2213124;Persist Security Info=True;Data Source=Application.StartupPath & \account.mdb

ازاى تعمله على مستوى الكود عام شيله على متغير من نوع string مثلا

ده و انت مبتدأ زى ما انت بتقول و بعد كده لازم تتعلم حاجة اسمها sqlhelper

ازاى تربط بين الجدوال تقصد يعنى عمل relations بين الجدوال

 Dim myconnection As SqlClient.SqlConnection

        Dim myda As SqlClient.SqlDataAdapter

        Dim ds As DataSet

        Dim mydr As DataRelation

        Try

            myconnection = New SqlClient.SqlConnection("server=localhost;database=northwind;uid=sa;password=;")

            myda = New SqlClient.SqlDataAdapter("Select * from Orders", myconnection)

            ds = New DataSet()

            myda.Fill(ds, "Orders")

            myda.SelectCommand.CommandText = "Select * from [Order Details]"

            myda.Fill(ds, "OrdersDet")

            mydr = New DataRelation("OrderRelation", ds.Tables(0).Columns("Orderid"), ds.Tables(1).Columns("Orderid"))

            ds.Relations.Add(mydr)

            Dim dr1 As DataRow

            Dim dr2 As DataRow

            Dim strval As String

            For Each dr1 In ds.Tables(0).Rows

                strval = strval & "<b>" & dr1("Orderid") & "</b>"


                For Each dr2 In dr1.GetChildRows(mydr)

                    strval = strval & "Productid: " & dr2("Productid") & " UnitPrice : " & dr2("UnitPrice") & ""



                Next

            Next

            Label1.Text = (strval)

        Catch ex As Exception



        End Try
#3

الحقيقة يا أخى انا شاكر لك على محاولتك فى مساعدتى

لكن الحقيقة انك ما وضحت الكود على الوجة المطلوب

ما المقصود بـ تجيب sqlconn و تضع conectionstring

وكلك من أين اتعلم sqlhelper

وكذلك انا قصدت انى اربط جدول من قاعدة البيانات بفورم وليس عمل علاقة بين الجداول فى قاعدة البانات

ارجو انى اكون وضحت المطلوب اكثر

وشكرا لك مساعدتك لى

#4

ألا يوجد مساعد

أم أن الموضوع غير واضح

أم أن الموضوع صعب

#5
http://www.homeandlearn.co.uk/NET/nets12p4.html

 وممّا زادنـــي شرفــاً وتيهــاً   **  وكدت بأخمصي أطأ الثريّا

دخولي تحت قولك يا عبادي  **   وأن صيّرت أحمد لي نبيّـاً

#6

ايه يا اخوانا انتوا بتعرضوا الحلول زى الألغاز ليه

يا ريت توضحوا اكتر

انا قلت انى مبتدئ فى vb.net

#7

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

أخى العزيز انا متاسف على التأخير و على عدم وضوح المشاركة المرة اللى فاتت

اولا ده application انا عاملة فيه داتا بيس access

http://www.4shared.com/file/PAWQ2XMz/Selected_Preview.html

و ده رابط تحميل sqlhlper

http://www.4shared.com/file/24Z4IsQK/DataAccessApplicationBlock0.html

ثالثا

المقصود ب sqlconn دى عبارة عن اداة موجودة فى toolbox اسمها OleDbConnection

اما conectionstring فهو مكان الداتا بيس على الجهاز اللى هى دى فى المثال المرفق مكتوبة كده

Private Conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=School.mdb;")

رابعا ربط الفروم تقصد ايه بيها

انا مش فاهم قصدك بصراحة

#8

السلام عليكم جميعا

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

ولا يوجد اختلاف بينها وبين 2008 سوى اشياء بسيطة

ارجو ان تعم الفائدة على الجميع

بالتوفيق

DataBase Lesson.rar

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#9

الحقيقة الردود بتاعتكم أكثر من رائعة

لكن لدى بعض الاستفسارات

أولا : كود ربط البرنامج بقاعدة كيف أعدله لربط قاعد بيانات مشفرة بباسورد

ثانيا : فى الـ vb6 كنت أضع كود ربط البرنامج بقاعدة البيانات فى Module حتى يكون عام بالنسبة لجميع الـ Forms ... فهل هذه الخاصية موجودة ايضا فى vb2008

الحقيقة هيه دى الاستقسارات اللى عندى حتى الآن

انا عارف انى هاتعبكم معايا

بس اتمنى انكم تستحملونى حتى ادرك الموضوع لأنه مختلف عن البيسك 6 كتير

وشاكر لكم سعة صدركم

مواضيع مشابهة