اشکال در نمایش تصویر

[JaVa]

با سلام...

من می خوام وقتی که کاربر روی دیتا گراید کلیک می کنه این امکان وجود داشته باشه که عکش رو داخل PictureBox مشاهده کنه. این برنامه رو براش نوشتم:


Public Sub ClickOnDataGridAndShowPic(ByVal index As Integer)


str = "Select *From TBL_Person Where Id=@ID"
sda = New SqlDataAdapter(str, cnn)
sda.SelectCommand.Parameters.Add("@ID", SqlDbType.Int).Value = _
CInt(index)
ds = New DataSet
cnn.Open()
sda.Fill(ds, "NameDs")
cnn.Close()

Dim ArrPic() As Byte = CType(ds.Tables("TBL_Person") _
.Rows(0).Item("Image"), Byte())

Dim ms As New MemoryStream(ArrPic)

FrmMain.Pic_Person.Image = Image.FromStream(ms)
End Sub


این خطا رو هم نشون میده:
مشکلش کجاست:
با تشکر از کمکهاتون

[ROSTAM2]

فكر كنم توي دستور تعريف شيئي رو جا انداختي يا اشتباه تعريف كرده باشيد مثلا cnn
اون كه گفته اشتباه مي تونهع برا برنامه اي باشه كه ديتابيس قرار ركوردهاي زيادي رو بگيره مسلما سرعت به شدت پايين مي ره

[JaVa]

قبلاها که یه سئوالی که مطرح می کردی خیلی زود به جوابت میرسیدی توی این تالار اما حالا:افسرده:

[JaVa]

دوستان کسی نمی تونه ما رو راهنمایی کنه؟

[JaVa]

دوستان؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[ebraham]

من این کد و نوشتم . اگه میخای کدشو بزارم . چون یکم باکد شما فرق داره . التبه دتابیس من اس کیو ال هستش ولی فکر کنم دیتابیس شما اکسس باشه . که البته فکر نکنم فرق خیلی زیادی داشته باشه تو دستورش .

[ebraham]

توی رویداد کلیک موس دایتاگرید ویو کد زیر را بنویسید :
sqlcon.Open




Dim i AsInteger




Dim dr AsSqlDataReader





Dim cmd AsNewSqlCommand




cmd=NewSqlCommand("select imageField from TableName where FildName='" & DataGridViewX1.SelectedRows(i).Cells(0).Value.ToSt ring & "'", sqlcon)

cmd.Connection = sqlcon



dr = cmd.ExecuteReader




If dr.Read Then





Dim file() AsByte

file = dr(



imameField")





Dim MS AsNewMemoryStream()

MS.Write(file, 0, file.Length)





PictureBox1.Image =



Bitmap.FromStream(MS)

sqlcon.Close



EndIf

[ebraham]

در بالای فرمتون هم این دستوارت را ایمپورت کنید :
Imports








System.Data.SqlClient

Imports








System.IO

Imports








System.ComponentModel

[JaVa]

توی رویداد کلیک موس دایتاگرید ویو کد زیر را بنویسید :
sqlcon.Open




Dim i AsInteger




Dim dr AsSqlDataReader





Dim cmd AsNewSqlCommand




cmd=NewSqlCommand("select imageField from TableName where FildName='" & DataGridViewX1.SelectedRows(i).Cells(0).Value.ToSt ring & "'", sqlcon)

cmd.Connection = sqlcon



dr = cmd.ExecuteReader




If dr.Read Then





Dim file() AsByte

file = dr(



imameField")





Dim MS AsNewMemoryStream()

MS.Write(file, 0, file.Length)





PictureBox1.Image =



Bitmap.FromStream(MS)

sqlcon.Close



EndIf


ای ناقلا می خواستی اینجوری منو اذیت کنی:شیطان:

دستت درد نکنه

[ebraham]

خواهش میکنم .