تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل الأكواد من الفيجوال بيسك 6 إلى الفيجوال ستيديو
#31
تفضل أخى 

و بالتوفيق ان شاء الله


الملفات المرفقة
.rar   Exams.rar (الحجم : 91.5 ك ب / التحميلات : 41)
الرد }}}
#32
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. أدعو الله تعالى أن يمنّ َ عليك بالصحّة و العافية و راحة البال
و أنْ يرزقك في هذا الشّهر الفضيل أنْ يرزقك فيه الذّهن و التّنبيه و يباعدك عن السّفاهة و التّمويه و يجعل لك نصيبًا من كل ذكر و علمٍ تنزل فيه و يقوّك على إقامة أمره و يذقك حلاوة ذكره و يوزعك فيه لأداء شكره بكرمه و يحفظك بحفظه و ستره و يعنْك على صيامه و قيامه و يجنّبك هفواته و آثامه إن شاء الله
تمام التّمام بطوله و عرضه .. الحمد لله .. الفضل له ثم لك أخي الكريم
MRNOOO2000
الفكرة .. هذا ما أريده بالضبط و زيادة
بقيت إشكاليّة بسيطة أخي الغالي .. و هي عن سهو منّي
حيث إذا ما أردت تغيير الرّئيسيين و الفرعيين بحيث أجعل لكل منهما جدول خاص .. كيف ستكون الطريقة لو تكرّمت
ليس القصد إرهاقك أو إتعابك .. الله أعلم بالقصد
بل فقط .. فكّرت لو أردت مستقبلا جعل لكل منهما فورم خاص ستكون قاعدة البيانات بجدوليْن أسهل و أفضل بالنسبة لي .. أجدّد بالنسبة لي
الجدولان بقاعدة البيانات رقم 2 .. مع الفورم رقم 1
شكري و تقديري و تقييمي أخي العزيز


الملفات المرفقة
.rar   Last Exams.rar (الحجم : 122.96 ك ب / التحميلات : 32)
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: سعود , ابراهيم ايبو
#33
(18-05-18, 12:40 AM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. أدعو الله تعالى أن يمنّ َ عليك بالصحّة و العافية و راحة البال
و أنْ يرزقك في هذا الشّهر الفضيل أنْ يرزقك فيه الذّهن و التّنبيه و يباعدك عن السّفاهة و التّمويه و يجعل لك نصيبًا من كل ذكر و علمٍ تنزل فيه و يقوّك على إقامة أمره و يذقك حلاوة ذكره و يوزعك فيه لأداء شكره بكرمه و يحفظك بحفظه و ستره و يعنْك على صيامه و قيامه و يجنّبك هفواته و آثامه إن شاء الله
تمام التّمام بطوله و عرضه .. الحمد لله .. الفضل له ثم لك أخي الكريم
MRNOOO2000
الفكرة .. هذا ما أريده بالضبط و زيادة
بقيت إشكاليّة بسيطة أخي الغالي .. و هي عن سهو منّي
حيث إذا ما أردت تغيير الرّئيسيين و الفرعيين بحيث أجعل لكل منهما جدول خاص .. كيف ستكون الطريقة لو تكرّمت
ليس القصد إرهاقك أو إتعابك .. الله أعلم بالقصد
بل فقط .. فكّرت لو أردت مستقبلا جعل لكل منهما فورم خاص ستكون قاعدة البيانات بجدوليْن أسهل و أفضل بالنسبة لي .. أجدّد بالنسبة لي
الجدولان بقاعدة البيانات رقم 2 .. مع الفورم رقم 1
شكري و تقديري و تقييمي أخي العزيز


أشكرك أخى الكريم على دعاءك و أسأل الله أن يعطيك مثله ان شاء الله 

بالنسبة لما طلبت من وجهة نظرى أن فصل الأسماء الى جدولين أفضل من الناحية البنيوية لقاعدة البيانات 
و يمكن التعامل معها بسهولة 
و انت فصلتها فعلا فى جدولين فى قاعدة البيانات الجديدة و لكن كان من المفترض بك حذف السطور الخالية من جدول المراقبين الرئيسيين لتبقى 20 سطر فقط 
و بالنسبة للتعامل معها فى النموذج 

هناك طريقتين :- 
الأولى لن تحتاج الا الى تعديل بسيط جدا و هى 
أن نضع استعلام يعطينا نتيجة تشبه الجدول القديم (الذى يحتوى على أسماء المجموعتين ) و لكن هذا سيتطلب منك أن تكون 
لكن هذا يتطلب أن تكون جميع الأرقام الموجودة فى الجدول الرئيسى يماثلها نفس الأرقام فى الجدول الفرعى  ( لذلك أنا لا أفضل هذه الطريقة )

كود :
           Dim DataAdapter1 As New OleDbDataAdapter("SELECT GUARD_SECONDAIRES.IDD, GUARD_PRINCIPAUX.FIRST_NAME, GUARD_SECONDAIRES.LAST_NAME FROM GUARD_PRINCIPAUX
                                                     RIGHT JOIN GUARD_SECONDAIRES ON GUARD_PRINCIPAUX.IDD = GUARD_SECONDAIRES.IDD;", Conn)

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

كود :
   Private ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\DATABSE2.mdb"
   Private tbl_PRINCIPAUX As New DataTable
   Private tbl_SECONDAIRES As New DataTable
   Private PRINCIPAUX_list As New List(Of String)
   Private SECONDAIRES_list As New List(Of String)
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Using Conn As New OleDbConnection(ConStr)
           Conn.Open()
           Using DataAdapter1 As New OleDbDataAdapter("SELECT * FROM GUARD_PRINCIPAUX", Conn)
               DataAdapter1.Fill(tbl_PRINCIPAUX)
           End Using
           Using DataAdapter2 As New OleDbDataAdapter("SELECT * FROM GUARD_SECONDAIRES", Conn)
               DataAdapter2.Fill(tbl_SECONDAIRES)
           End Using
           Conn.Close()
       End Using
       For Each rw As DataRow In tbl_PRINCIPAUX.Rows
           If rw("FIRST_NAME").ToString.Trim.Length > 0 Then PRINCIPAUX_list.Add(rw("FIRST_NAME"))
       Next
       For Each rw As DataRow In tbl_SECONDAIRES.Rows
           If rw("LAST_NAME").ToString.Trim.Length > 0 Then SECONDAIRES_list.Add(rw("LAST_NAME"))
       Next

   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If PRINCIPAUX_list.Count <= 0 Then
           MsgBox("لم يتم العثور على أسماء في حقل الحراس الرئيسيين", vbOKOnly + vbExclamation, "تنبيه")
           Exit Sub
       End If
       If SECONDAIRES_list.Count <= 0 Then
           MsgBox("لم يتم العثور على أسماء في حقل الحراس المتغيرين", vbOKOnly + vbExclamation, "تنبيه")
           Exit Sub
       End If
       If Nrows.Value > PRINCIPAUX_list.Count Then
           MsgBox("عدد الحجرات أكبر من عدد الحراس الرئيسيين", vbOKOnly + vbExclamation, "تنبيه")
           Exit Sub
       End If
       If Nrows.Value > Int(SECONDAIRES_list.Count / Ncolumns.Value) Then
           MsgBox("عدد أعضاء الحراسة لا يمكن أن يغطّي عدد الحجرات", vbOKOnly + vbExclamation, "تنبيه")
           Exit Sub
       End If
       Try
           Dim rand As New Random()
           Dim Max_tracks As Integer = PRINCIPAUX_list.Count
           Dim TrackName As String = "", RacerName As String = "", RacerName2 As String = ""
           For x As Integer = 1 To Nrows.Value
               TrackName = PRINCIPAUX_list(rand.Next(0, PRINCIPAUX_list.Count - 1))
               RacerName = SECONDAIRES_list(rand.Next(0, SECONDAIRES_list.Count - 1))
               RacerName2 = ""
               If Ncolumns.Value > 1 Then RacerName2 = SECONDAIRES_list(rand.Next(0, SECONDAIRES_list.Count - 1))

               DataGridView1.Rows.Add("الحجرة :  " & x, TrackName, RacerName, RacerName2)
               PRINCIPAUX_list.Remove(TrackName)
               SECONDAIRES_list.Remove(RacerName)
               SECONDAIRES_list.Remove(RacerName2)
           Next
       Catch ex As Exception
           MsgBox(ex.Message, vbOKOnly + vbCritical, "خطأ")
       End Try
       Button1.Enabled = False
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       DataGridView1.Rows.Clear()
       PRINCIPAUX_list.Clear()
       SECONDAIRES_list.Clear()
       For Each rw As DataRow In tbl_PRINCIPAUX.Rows
           If rw("FIRST_NAME").ToString.Trim.Length > 0 Then PRINCIPAUX_list.Add(rw("FIRST_NAME"))
       Next
       For Each rw As DataRow In tbl_SECONDAIRES.Rows
           If rw("LAST_NAME").ToString.Trim.Length > 0 Then SECONDAIRES_list.Add(rw("LAST_NAME"))
       Next
       Button1.Enabled = True
   End Sub


و بالتوفيق ان شاء الله
الرد }}}
#34
السّلام عليكم و رحمة الله و بركاته
قمّة التميّز و الإبداع و الإتقان
بارك الله فيك و لك و أحسن إليك و أنعم عليك من حيث تحتسب و من حيث لا تحتسب
تمام التّمام و الحمد لله .. وهو المطلوب و لله الحمد و الشكر
أجدّد شكري و تقديري واحترامي و امتناني لك و لروعة أعمالك
تحياتي و تقييماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: viv , ابراهيم ايبو
#35
السّلام عليكم و رحمة الله و بركاته

يبدوا انك وجدت ضالتك اخي البكسري ولم تعد في حاجة لي ، بخصوص برنامجك .
اتمنى لك التوفيق .
الرد }}}
#36
(20-05-18, 12:41 AM)viv كتب : السّلام عليكم و رحمة الله و بركاته

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

السلام عليكم و رحمة الله و بركاته
كيفك أخي الكريم " VIV "
المنتدى كله بحاجة لك يا غالي .. زيادة الخير .. خيرين .. و إذا ممكن .. أنا بانتظار الملف .. فقط لم أحب أزيد عليك .. أنا و أوباما .. كثير عليك
ربنا يكرمك و ينعم عليك بأرزاق الدنيا و الآخرة إن شاء الله
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: viv , ابراهيم ايبو
#37
السلام عليكم و رحمة الله و بركاته

هههههه والله اوباما متعبني معاه ، انا الان الساعة عندي الثالثة صباحا ولم ادخل للمنزل الا الان فقط .
ولكن ان شاء الله سوف اكمل ما بدأته سابقاً .
تعدد الافكار لا يضر .
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم