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

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


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


الملفات المرفقة
.rar   Last Exams.rar (الحجم : 122.96 ك ب / التحميلات : 25)
الرد
تم الشكر بواسطة: سعود
#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


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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج لنك فيجول بيسك 2013 رابط مباشر naderalkeng54 0 1 منذ 8 دقيقة مضت
آخر رد: naderalkeng54
  [سؤال] مشكلة فى اضافة اداة vlc فى الفجول بيسك 2010 naderalkeng54 1 11 منذ 22 دقيقة مضت
آخر رد: aljzazy
  فكرة مشروع بالفيجوال بيسك وقاعده بيانات اكسس ارجو المساعده خالد كامل1 3 95 18-09-18, 01:34 PM
آخر رد: elgokr
  [VB.NET] مساعده في تفعيل سلفر اكسيس مع الفجيوال بيسك hayitham 6 107 18-09-18, 11:28 AM
آخر رد: elgokr
  عمل دمج مرسلات من الوورد إلى الفيجوال (mail merge ) جيولوجي مبتدئ 5 159 05-09-18, 10:38 AM
آخر رد: elgokr
  [C#.NET] سلام عليكم يا أهل فيجوال بيسك بحاجة الى مساعدة aloush 5 132 02-09-18, 01:33 PM
آخر رد: aloush
  وجود Error رغم أن الأكواد صحيحة Hazem1 7 215 28-08-18, 12:14 AM
آخر رد: elgokr
  [VB.NET] تشغيل اوامر الدوس في شاشة في فيوجال بيسك dasktop 2 109 25-08-18, 10:05 AM
آخر رد: elgokr
  تحويل كود من c# إلى vb.net sads 17 518 25-08-18, 08:22 AM
آخر رد: elgokr
  [VB.NET] استفسار :- SlimDX بعد تحويل المشروع الى ملف EXE dubai.eig 7 155 15-08-18, 09:51 PM
آخر رد: elgokr

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


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