السلام عليكم ورحمة الله و بركاتة
لقد قمت بالاعلان عن هذه المتغيرات
Dim da As New OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim dt As DataTable
وكتبت الكود التالي ,, لإضهار الصورة من قاعدة الليانات علي اداة Picturebox
Dim crPosition As Integer
crPosition = Me.BindingContext(dt).Position
Dim arrayImage() As Byte = CType(ds.Tables(0).Rows(crPosition)("BarCode"), Byte())
Dim ms As New MemoryStream(arrayImage)
With Me.PictureBox1
.Image = Image.FromStream(ms)
.SizeMode = PictureBoxSizeMode.CenterImage
End With
عند التنفيذ بيعترض علي سطرين
الأول : -
crPosition = Me.BindingContext(dt).Position
ورساله الخطأ هي : -Value cannot be null.
Parameter name: dataSource
و السطر الثاني هو : -
Dim arrayImage() As Byte = CType(ds.Tables(0).Rows(crPosition)("BarCode"), Byte())
ورساله الخطأ هي : Cannot find table 0.
ارجو المساعدة ,,
