[Kian Tech]

مع أن هذا الكود صحيح 100 % ولكن يعطيني أنه في مشكلة
مع انه يوجد مثل هذا الاداة في فورم اخر ولا يعطي مشكلة ؟؟

[أسامة]

(30-06-16, 02:32 AM)Deya R Ataya كتب : مع أن هذا الكود صحيح 100 % ولكن يعطيني أنه في مشكلة
مع انه يوجد مثل هذا الاداة في فورم اخر ولا يعطي مشكلة ؟؟

جرب استخدام هذه الطريقة

كود :

     Dim OpenFileDialog1 As New OpenFileDialog
       Try
           OpenFileDialog1.FileName = String.Empty
           OpenFileDialog1.Filter = "Image File (*.jpg;*bmp;*.gif;*.png;*.jpeg;)|*.jpg;*bmp;*.gif;*.png;*.jpeg;"
           OpenFileDialog1.ShowDialog()
           If Not OpenFileDialog1.FileName = String.Empty Then
               PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
           End If


       Catch ex As Exception

       End Try

[Kian Tech]

الاخوة الكرام الطرق جميعها لم تنجح للاسف

---

اكتشفت ان المشكلة من هذا الكود بعد ازالته ولكن لا ادري ما مشكلة فيه

Try

Dim SQLStr As String = "SELECT * from skin"
Dim DataAdapter1 As New OleDbDataAdapter(SQLStr, Conn)
Conn.Open()
DataSet1 = New DataSet


DataAdapter1.Fill(DataSet1, "skin")
Conn.Close()
PictureBox3.DataBindings.Clear()
PictureBox3.DataBindings.Add("image", DataSet1, "skin.papic", True)

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "خطأ")
End Try

[aliday03]

ارفق ملف المشروع لكي أساعدك

[الوادي]

يا ضياء،

لفت نظري الكود، إذا استخدمت DataAdapter فلا تفتخ أو تغلق الاتصال لأنه DataAdapter يقوم بذلك
يعني احذف Conn.Open و Conn.Close

اما المشكلة غريبة فعلا، لكن عند البحث هناك من يقول أن OpenFileDialog له علاقة ب Framework 2.0 تحديدا وينحون باعادة تركيبه.
أعلم أنك تعمل على Framework مختلف، لكن لا أدري...

[Kian Tech]

شكرا تم حل المشكلة والسبب كما قلت انت مسحت conn.close ونحلت المشكلة
انت محترف
وشكرا للجميع

[الوادي]

رمية من غير رامي