تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عضو جديد وحاب اتواصل معاكم في قسم البرمجة بس اتمنى المساعدة
#1
Bug 
السلام عليكم

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

الان اضعكم مع هذا الكود : اريد ان يقرأء لي الصورة من 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

اتمنى مساعدتي في هذا البرنامج فقط لدي هذة المشكلة واذا واجهتني مشكلة ثانية راح اتقدم وبكل سرور في وضع مشكلتي عندكم ليتم خدمتي بشكل صحيح
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ...
شوف المشاركة هنا
http://vb4arb.com/vb/thread-3604.html
قسم المشاريع به عدد جيد من الامثلة.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
اخي اسعود انت حاولت تساعدني لكن لم تساعدني في شيء فأنا اريد ان يقرأ البرنامج الصورة من قاعدة البيانات من خلال استخدام ComBoBox
فهل يوجد شرح افضل او مثال ؟؟
الرد }}}}
تم الشكر بواسطة:
#4
طيب اخي عطني صورة لواجهة المثال اللي عندك وباذن الله اجهز لك مثال جديد
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته

إذا كان نوع حقل الصورة في قاعدة البيانات من نوع OLE جرب قراءة بيانات الصورة بهذا الكود:
كود :
Dim barrImg As Byte() = DirectCast(dr("Game_Pic"), Byte())
Dim myMS As New IO.MemoryStream(barrImg)
Gamepic.Image = Image.FromStream(mstream)
myMS.Close()
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#6
Gamepic.Image = Image.FromStream( mstream)

هنا يكون الخطأ :

mstream

ما الحل ؟
الرد }}}}
تم الشكر بواسطة:
#7
اخي الكريم 0theghost0
ماهي الطريقة التي حفظت بها الصورة بالقاعدة؟
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
صورة لتوضيح اكثر كما طلب الاخ سعود :

http://s12.postimg.org/axbye5cz1/Untitled.png
الرد }}}}
تم الشكر بواسطة:
#9
OLE Object
الرد }}}}
تم الشكر بواسطة:
#10
اخي الكريم كما هو واضح بالصورة فلقد قمت بالاسناد مرتين لمربع الصورة


اسمح لي اخي ان اصمم مثال بسيط جديد يحتوي الفكرة التالية:
كومبوبوكس باسماء اشخاص وعند نقر اي اسم يتم اظهار صورته بمربع الصورة.

اذا هذا المراد اكتب رد.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 42 22-01-17, 02:27 PM
آخر رد: abo_alaa315
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 8 193 19-01-17, 01:30 PM
آخر رد: محمد بوقزاحة
  [VB.NET] المساعدة في الاكواد لبرنامج انتي فايرس 0theghost0 6 123 11-01-17, 11:08 PM
آخر رد: 0theghost0
  [VB.NET] الرجاء المساعدة noway 2 88 10-01-17, 09:28 AM
آخر رد: thevirus
  [VB.NET] لدي فكرة مشروع لمن يريد المساعدة فاليتفضل 0theghost0 10 272 05-01-17, 05:15 PM
آخر رد: 0theghost0
  مجموعة اسئلة اتمنى الاجابة عليها CLARO 1 92 28-12-16, 05:43 PM
آخر رد: ابو ليلى
  طباعة صورة PictureBox1 بعرض الصفحة .. أرجو المساعدة ahmed_elwerfalli 3 146 24-12-16, 05:59 PM
آخر رد: ahmed_elwerfalli
  اول سؤال لي في منتداكم الرائع ..... من اين ابداء وبما ابداء البرمجة zin1zamanh 16 332 23-12-16, 06:45 PM
آخر رد: zin1zamanh
  [VB.NET] سؤالى عن new Tabpage اريد نسخ جميع المحتوى والاكواد فى تاب جديد elhon.tec 1 96 20-12-16, 09:10 AM
آخر رد: amgad525
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 46 1,834 11-12-16, 12:57 AM
آخر رد: tryold

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


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