03-08-14, 04:46 PM
السلام عليكم
كثير من المواقع التي قمت بتسجيل عندهم ولكن لايخبروني مكان الخطأ او التعديل السليم للكود دائما يقولون لي عليك بأن تبحث وتتعلم ولكن هم لايعلمون كثير ما ابحث واسأل حتى اني اوقات اتصل ببعض المبرمجين ليعطوني او يدرسوني بمبلغ مادي لكن للاسف المبرمجين ليس لديهم وقت للدريسي او تعليمي لذا فكرت اني ابحث واحاول اني اطور نفسي في عالم البرمجة لان هذا طموحي على ماوصلت لهذا المستوى الضئيل من البرمجة لدي صديقي خبير في البرمجمة ووضيفته في البرمجة فيجوال بيسك لكن الان هو سوف يكمل دينه بإذن الله ولا اعتقد انه راح يكون فاضي لي :
الان اضعكم مع هذا الكود : اريد ان يقرأء لي الصورة من access 2013 الى البرنامج
اتمنى مساعدتي في هذا البرنامج فقط لدي هذة المشكلة واذا واجهتني مشكلة ثانية راح اتقدم وبكل سرور في وضع مشكلتي عندكم ليتم خدمتي بشكل صحيح
كثير من المواقع التي قمت بتسجيل عندهم ولكن لايخبروني مكان الخطأ او التعديل السليم للكود دائما يقولون لي عليك بأن تبحث وتتعلم ولكن هم لايعلمون كثير ما ابحث واسأل حتى اني اوقات اتصل ببعض المبرمجين ليعطوني او يدرسوني بمبلغ مادي لكن للاسف المبرمجين ليس لديهم وقت للدريسي او تعليمي لذا فكرت اني ابحث واحاول اني اطور نفسي في عالم البرمجة لان هذا طموحي على ماوصلت لهذا المستوى الضئيل من البرمجة لدي صديقي خبير في البرمجمة ووضيفته في البرمجة فيجوال بيسك لكن الان هو سوف يكمل دينه بإذن الله ولا اعتقد انه راح يكون فاضي لي :
الان اضعكم مع هذا الكود : اريد ان يقرأء لي الصورة من 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اتمنى مساعدتي في هذا البرنامج فقط لدي هذة المشكلة واذا واجهتني مشكلة ثانية راح اتقدم وبكل سرور في وضع مشكلتي عندكم ليتم خدمتي بشكل صحيح