17-05-18, 09:37 AM
18-05-18, 12:40 AM
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. أدعو الله تعالى أن يمنّ َ عليك بالصحّة و العافية و راحة البال
و أنْ يرزقك في هذا الشّهر الفضيل أنْ يرزقك فيه الذّهن و التّنبيه و يباعدك عن السّفاهة و التّمويه و يجعل لك نصيبًا من كل ذكر و علمٍ تنزل فيه و يقوّك على إقامة أمره و يذقك حلاوة ذكره و يوزعك فيه لأداء شكره بكرمه و يحفظك بحفظه و ستره و يعنْك على صيامه و قيامه و يجنّبك هفواته و آثامه إن شاء الله
تمام التّمام بطوله و عرضه .. الحمد لله .. الفضل له ثم لك أخي الكريم
MRNOOO2000
الفكرة .. هذا ما أريده بالضبط و زيادة
بقيت إشكاليّة بسيطة أخي الغالي .. و هي عن سهو منّي
حيث إذا ما أردت تغيير الرّئيسيين و الفرعيين بحيث أجعل لكل منهما جدول خاص .. كيف ستكون الطريقة لو تكرّمت
ليس القصد إرهاقك أو إتعابك .. الله أعلم بالقصد
بل فقط .. فكّرت لو أردت مستقبلا جعل لكل منهما فورم خاص ستكون قاعدة البيانات بجدوليْن أسهل و أفضل بالنسبة لي .. أجدّد بالنسبة لي
الجدولان بقاعدة البيانات رقم 2 .. مع الفورم رقم 1
شكري و تقديري و تقييمي أخي العزيز
18-05-18, 12:25 PM
(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و بالتوفيق ان شاء الله
18-05-18, 06:46 PM
السّلام عليكم و رحمة الله و بركاته
قمّة التميّز و الإبداع و الإتقان
بارك الله فيك و لك و أحسن إليك و أنعم عليك من حيث تحتسب و من حيث لا تحتسب
تمام التّمام و الحمد لله .. وهو المطلوب و لله الحمد و الشكر
أجدّد شكري و تقديري واحترامي و امتناني لك و لروعة أعمالك
تحياتي و تقييماتي
20-05-18, 12:41 AM
السّلام عليكم و رحمة الله و بركاته
يبدوا انك وجدت ضالتك اخي البكسري ولم تعد في حاجة لي ، بخصوص برنامجك .
اتمنى لك التوفيق .
يبدوا انك وجدت ضالتك اخي البكسري ولم تعد في حاجة لي ، بخصوص برنامجك .
اتمنى لك التوفيق .
20-05-18, 02:28 AM
(20-05-18, 12:41 AM)viv كتب : [ -> ]السّلام عليكم و رحمة الله و بركاته
يبدوا انك وجدت ضالتك اخي البكسري ولم تعد في حاجة لي ، بخصوص برنامجك .
اتمنى لك التوفيق .
السلام عليكم و رحمة الله و بركاته
كيفك أخي الكريم " VIV "
المنتدى كله بحاجة لك يا غالي .. زيادة الخير .. خيرين .. و إذا ممكن .. أنا بانتظار الملف .. فقط لم أحب أزيد عليك .. أنا و أوباما .. كثير عليك
ربنا يكرمك و ينعم عليك بأرزاق الدنيا و الآخرة إن شاء الله
تحياتي
21-05-18, 05:47 AM
السلام عليكم و رحمة الله و بركاته
هههههه والله اوباما متعبني معاه ، انا الان الساعة عندي الثالثة صباحا ولم ادخل للمنزل الا الان فقط .
ولكن ان شاء الله سوف اكمل ما بدأته سابقاً .
تعدد الافكار لا يضر .
هههههه والله اوباما متعبني معاه ، انا الان الساعة عندي الثالثة صباحا ولم ادخل للمنزل الا الان فقط .
ولكن ان شاء الله سوف اكمل ما بدأته سابقاً .
تعدد الافكار لا يضر .