26-04-14, 11:34 AM
فى محاولة لمعرفة كود اسشتدعاء صورة من قاعدة بيانات أكسس
وجدت هذا الكود
المشكلة أنه به متغير
SysMom
هذا المتغير كيف يتم تعريفه
أرجو الرد ممن عنده الخبره
وشكراً جزيلاً
وجدت هذا الكود
كود :
Try
Dim dtp As New OleDbDataAdapter("select * from t1 where id = '" & TextBox1.Text & "'", con)
Dim ds As New DataSet
dtp.Fill(ds)
Dim picbyte As Byte()
If ds.Tables("table").Rows.Count <> 0 Then
picbyte = ds.Tables("t1").Rows(0).Item(1)
SysMom.Write(picbyte, 0, picbyte.Length)
PictureBox1.Image = Image.FromStream(SysMom)
PictureBox1.DataBindings.Add("Image", ds, "table.Pic", True)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End SubSysMom
هذا المتغير كيف يتم تعريفه
أرجو الرد ممن عنده الخبره
وشكراً جزيلاً