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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عضو جديد وحاب اتواصل معاكم في قسم البرمجة بس اتمنى المساعدة (/showthread.php?tid=10341)

عضو جديد وحاب اتواصل معاكم في قسم البرمجة بس اتمنى المساعدة - theghost - 03-08-14

السلام عليكم

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

الان اضعكم مع هذا الكود : اريد ان يقرأء لي الصورة من access 2013 الى البرنامج

كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try

            Dim myMS As New IO.MemoryStream
            Dim dt As New DataTable


            cmd.Connection = dbConnect()
            cmd.CommandText = "Select * from PcGame where Game_Name = '" & ComboBox1.Text & "'"

            dr = cmd.ExecuteReader

            While dr.Read()
                DateTimePicker1.Value = dr("Game_Release").ToString
                TextBox2.Text = dr("Game_Rating").ToString
                TextBox3.Text = dr("Game_Developed").ToString
                TextBox4.Text = dr("Game_Published").ToString
                TextBox5.Text = dr("Game_Genres").ToString
                TextBox6.Text = dr("Game_Price").ToString
                Gamepic.Text = dr("Game_Pic").ToString
            End While
            dr.Close()
            Me.Gamepic.DataBindings.Add(New Binding("Image", "PcGame.Game_Pic", True))

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Read Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

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

عضو جديد وحاب اتواصل معاكم في قسم البرمجة بس اتمنى المساعدة - theghost - 04-08-14

3 مشاهدات من غير اي رد

عضو جديد وحاب اتواصل معاكم في قسم البرمجة بس اتمنى المساعدة - abulayth - 06-08-14

السلام عليكم

اخي الكريم لكي تحصل على اجابة شافية اشترك في المنتدى الجديد

حياك الله

عضو جديد وحاب اتواصل معاكم في قسم البرمجة بس اتمنى المساعدة - theghost - 09-08-14

ويش رابط المنتدى الجديد ؟

عضو جديد وحاب اتواصل معاكم في قسم البرمجة بس اتمنى المساعدة - Ammar Yaseen - 10-08-14

السلام عليكم

هذا هو الرابط

http://www.vb4arb.com/vb/

حياك الله