أستغفر الله العظيم ,, اللهم لك الحمد


العودة   منتديات داماس > منتدى البرمجة العام > لغات البرمجة


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


13-03-2017, 02:22 AM
abdo kablan غير متصل
عضو جديد
رقم العضوية: 582162
تاريخ التسجيل: Apr 2015
المشاركات: 6
إعجاب: 1
تلقى إعجاب 1 على مشاركة واحدة
تلقى دعوات الى: 0 موضوع
    #1  

مساعدة في ربط vb.net مع access


انا الان اقوم بتصميم منضومة اسئلة ، مع اني مبتدئ بالبرمجة ولكني مصّر على استكمالها

صورة من قاعدة البيانات

مساعدة vb.net access

هذه نافذة الاقسام
مساعدة vb.net access


وهذه نافذة الأسئلة
مساعدة vb.net access


النافدة يظهر بها مؤقت و group به ارقام الأسئلة (مرئي) ، و group به السؤال والاختيارات (مخفي) ، وعند الضغط على رقم السؤال يظهر group الاسئلة والاختيارات الذي بالاعلى ويختفي group الأرقام
لنفترض الآتي :
مربع المخصص للسؤال : q.text / مربع الخيار 1 : a.text / مربع الخيار 2 : b.text / مربع الخيار 3 : c.text
--------------------------------------------------------------------------
المطلوب : مثلا عند الضغط على الزر رقم (1) في ال group
يأخد السؤال من العمود Qsubjct من الصف الذي فيه Q_id =1 في قاعدة البيانات التي اسمها DBace ويضعها بمربع السؤال فوق (q.text) //الرجاء النظر في صورة قاعدة البيانات للفهم أوضح //
ويأخذ الخيار الأول من العمود Amswr_a من الصف الذي فيه Q_id =1 في قاعدة البيانات التي اسمها DBace ويضعها بمربع الخيار الاول (a.text)
ويأخذ الخيار الثاني من العمود Amswr_b من الصف الذي فيه Q_id =1 في قاعدة البيانات التي اسمها DBace ويضعها بمربع الخيار الثاني (b.text)
ويأخذ الخيار الثالث من العمود Amswr_c من الصف الذي فيه Q_id =1 في قاعدة البيانات التي اسمها DBace ويضعها بمربع الخيار الثالث (c.text)

وهذا الكود الحالي بالزر رقم 1 في group الخاص بالأسئلة :

هذا السطر البرمجي خاص بتشغيل موسيقى حماسية//
My.Computer.Audio.Play(My.Resources.n, AudioPlayMode.Background)
'sndPlaySound("D:\n.wav", 1)
هذان السطران البرمجيان خاص بإظهار المؤقت//
Label1.Visible = True
Timer1.Start()
هذا السطر خاص بإظهار ال group الخاص بالسؤال والخيارات//
GroupBox1.Visible = True
وهذه الاسطر وضعتها مثال//
q.Text = "ssssssss"
a.Text = "aaaa"
b.Text = "bbbb"
c.Text = "cccc"
هذا السطر خاص بإخفاء group الخاص بأرقام الأسئلة//
GroupBox2.Visible = False
هذه الاسطر خاصة بتغيير لون الزر//
' BT1.BackColor = Color.Red
My.Settings.BT1 = Color.Red

ناتج هذا الكود :

مساعدة vb.net access


ان شاء الله نكون شرحتلكم المشكلة بالكامل ، وارجو مساعدتي بهذه المشكلة تكفووون

وأعدكم ان شاء الله عند استكمالها ، سأقوم برفعها حصرا على هذا المنتدى الكريم ^^ مساعدة vb.net access





المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
مساعدة بكود بحث عن قيمة كبري بالدوت نت وقاعدة Access jungel لغات البرمجة 11 21-06-2016 08:17 PM
اردت مساعدة في برنامج Office Access 2003 الفارسس برامج 2 07-11-2007 01:03 AM
Access Denied شامل باساييف صيانة الكمبيوتر وحلول الحاسب الألي - هاردوير 2 06-01-2007 02:31 AM
access to mysql aboarwa برامج 22 01-06-2006 02:30 PM
Access Administrator v3.4 New star برامج 1 21-01-2004 01:14 PM

13-03-2017, 02:31 AM
abdo kablan غير متصل
عضو جديد
رقم العضوية: 582162
تاريخ التسجيل: Apr 2015
المشاركات: 6
إعجاب: 1
تلقى إعجاب 1 على مشاركة واحدة
تلقى دعوات الى: 0 موضوع
    #2  
باختصار باين من عنوان الموضوع
طرق ربط text في vb.net مع access
لدي قاعدة بيانات بها id و name و job ، ولدي عدة ازرار على المشروع مرقمة من 1 الى 50
مثلا عند الضغط على زر رقم 1 ، يذهب لقاعدة البيانات ويأتي بال name ويضعها في text الخاص بها ويأتي ب job ويضعها في ال text الخاص بها علما ان هذه البيانات في الصف الذي فيه id تساوي 1
وعند الضغط على زر 2 ينفذ نفس الاجراء ولكن يأتي بالبيانات من الصف الذي يحتوي على id = 2

13-03-2017, 04:50 AM
abufahmi متصل
مدير منتدى البرمجة العام - والهندسة العكسية
رقم العضوية: 411198
تاريخ التسجيل: Jan 2013
الإقامة: Jordan
المشاركات: 2,605
إعجاب: 674
تلقى 1,994 إعجاب على 627 مشاركة
تلقى دعوات الى: 1894 موضوع
    #3  
المشاركة الأصلية كتبت بواسطة abdo kablan 
باختصار باين من عنوان الموضوع
طرق ربط text في vb.net مع access
لدي قاعدة بيانات بها id و name و job ، ولدي عدة ازرار على المشروع مرقمة من 1 الى 50
مثلا عند الضغط على زر رقم 1 ، يذهب لقاعدة البيانات ويأتي بال name ويضعها في text الخاص بها ويأتي ب job ويضعها في ال text الخاص بها علما ان هذه البيانات في الصف الذي فيه id تساوي 1
وعند الضغط على زر 2 ينفذ نفس الاجراء ولكن يأتي بالبيانات من الصف الذي يحتوي على id = 2
اخي الكريم انت موضوعك عبارة عن اختيار Select
لذا انا قمت بهذا الموضوع :
http://www.damasgate.com/vb/t404812-post2990755.html

بعملية شرح لكل من :
- Select
- Delete
- Insert
- Update
- LoadData At Startup


بامكانك تحميل المشروع والاستعانة بالافكار بمشروعك



13-03-2017, 05:14 AM
memoarfaa غير متصل
عضو ذهبي
رقم العضوية: 370034
تاريخ التسجيل: Apr 2011
الإقامة: مصر
المشاركات: 745
إعجاب: 167
تلقى 313 إعجاب على 156 مشاركة
تلقى دعوات الى: 2109 موضوع
    #4  
بما ان ازرار الخمسين النص الخاص بهم مرقمين بنفس الايدي من 1 الي 50
1- انشئ حدث خاص بالخمسين زر بتحديدهم جميعا ثم خصائص (properties) اختر الحدث button event click

وضع به هذا الكود
Sub General_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim Connection As New  OledbConnection("بيانات الاتصال بالقاعده")
Dim command As  OledbCommand 
        Dim reader As OleDbDataReader
        Dim btn As Button = TryCast(sender, Button)
        If btn IsNot Nothing Then
            Try

                Connection.Open()
                Dim query As String
           query = "Select * from Table1 where Q_id=" & btn.Text & "" 'هو اسم الجدول Table1 .
                command = New OleDbCommand(query, Connection)
                reader = command.ExecuteReader
                reader.Read()
                If reader.HasRows Then
                    q.Text = reader.Item("Qsubjct").ToString
                    a.Text = reader.Item("Answr_a").ToString
                    b.Text = reader.Item("Answr_b").ToString
                    c.Text = reader.Item("Answr_c").ToString


                    Connection.Close()
                End If
            Catch ex As OleDbException
                MsgBox(ex.Message)
            Finally
                Connection.Dispose()
            End Try
        End If
    End Sub
مثال في المرفقات


12-05-2017, 08:36 PM
abdo kablan غير متصل
عضو جديد
رقم العضوية: 582162
تاريخ التسجيل: Apr 2015
المشاركات: 6
إعجاب: 1
تلقى إعجاب 1 على مشاركة واحدة
تلقى دعوات الى: 0 موضوع
    #5  
المشاركة الأصلية كتبت بواسطة memoarfaa 
بما ان ازرار الخمسين النص الخاص بهم مرقمين بنفس الايدي من 1 الي 50
1- انشئ حدث خاص بالخمسين زر بتحديدهم جميعا ثم خصائص (properties) اختر الحدث button event click

وضع به هذا الكود
Sub General_OnClick(ByVal sender As Object, ByVal e As EventArgs)
Dim Connection As New  OledbConnection("بيانات الاتصال بالقاعده")
Dim command As  OledbCommand 
        Dim reader As OleDbDataReader
        Dim btn As Button = TryCast(sender, Button)
        If btn IsNot Nothing Then
            Try

                Connection.Open()
                Dim query As String
           query = "Select * from Table1 where Q_id=" & btn.Text & "" 'هو اسم الجدول Table1 .
                command = New OleDbCommand(query, Connection)
                reader = command.ExecuteReader
                reader.Read()
                If reader.HasRows Then
                    q.Text = reader.Item("Qsubjct").ToString
                    a.Text = reader.Item("Answr_a").ToString
                    b.Text = reader.Item("Answr_b").ToString
                    c.Text = reader.Item("Answr_c").ToString


                    Connection.Close()
                End If
            Catch ex As OleDbException
                MsgBox(ex.Message)
            Finally
                Connection.Dispose()
            End Try
        End If
    End Sub
مثال في المرفقات
مشكووووووووووور كثيرا اخي
بارك الله فيك ورحم الله والديك
اشتغلت معي

13-05-2017, 02:05 AM
memoarfaa غير متصل
عضو ذهبي
رقم العضوية: 370034
تاريخ التسجيل: Apr 2011
الإقامة: مصر
المشاركات: 745
إعجاب: 167
تلقى 313 إعجاب على 156 مشاركة
تلقى دعوات الى: 2109 موضوع
    #6  
المشاركة الأصلية كتبت بواسطة abdo kablan 
مشكووووووووووور كثيرا اخي
بارك الله فيك ورحم الله والديك
اشتغلت معي
الشكر لله وحده اخي دعوه جميله منك الهم تقبلها

 


مساعدة في ربط vb.net مع access

English

Powered by vBulletin® Version
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.