18-10-17, 06:24 PM
السلام عليكم ورحمةالله وبركاته
تظهر رسالة خطأ في البرنامج عند استدعاء البيانات من قاعدة البيانات لاظهارها على مربع النص
ال TextBox
ومن ضمن هذه البيانات اداة الصورة PictureBox
هنا المشكلة في اظهار الصورة من قاعدة البيانات الي اداة الصورة
وهذا نص الكود
تظهر رسالة خطأ في البرنامج عند استدعاء البيانات من قاعدة البيانات لاظهارها على مربع النص
ال TextBox
ومن ضمن هذه البيانات اداة الصورة PictureBox
هنا المشكلة في اظهار الصورة من قاعدة البيانات الي اداة الصورة
وهذا نص الكود
كود :
Using MYDataAdapter As New OleDbDataAdapter("SELECT * FROM tblCommunity " & MYFilter & "", Con)
Call MYDataAdapter.Fill(DataSet3, "tblCommunity")
If Me.BindingContext(DataSet3, "tblCommunity").Count <> 0 Then
Call MYDataAdapter.Fill(DataSet3, "CommunityTable")
For i = 0 To DataSet3.Tables(0).Rows.Count - 1
txtID.Text = DataSet3.Tables(0).Rows(i)("ID")
txtHeadComm.Text = DataSet3.Tables(0).Rows(i)("HeadComm")
txtIDHead.Text = DataSet3.Tables(0).Rows(i)("IDHead")
txtMobHead.Text = DataSet3.Tables(0).Rows(i)("MobHead")
txtNaHead.Text = DataSet3.Tables(0).Rows(i)("NaHead")
txtAddrHead.Text = DataSet3.Tables(0).Rows(i)("AddrHead")
txtNotesHead.Text = DataSet3.Tables(0).Rows(i)("NotesHead")
txtAssHead.Text = DataSet3.Tables(0).Rows(i)("AssHead")
txtIDAssHead.Text = DataSet3.Tables(0).Rows(i)("IDAssHead")
txtMobAssHe.Text = DataSet3.Tables(0).Rows(i)("MobAssHe")
txtNaAssHe.Text = DataSet3.Tables(0).Rows(i)("NaAssHe")
txtAddAssHe.Text = DataSet3.Tables(0).Rows(i)("AddAssHe")
txtNotesAssHe.Text = DataSet3.Tables(0).Rows(i)("NotesAssHe")
txtAddressComm.Text = DataSet3.Tables(0).Rows(i)("AddressComm")
txtCommCensus.Text = DataSet3.Tables(0).Rows(i)("CommCensus")
RTBMPA.Text = DataSet3.Tables(0).Rows(i)("MPA")
PBImageHead.Image = DataSet3.Tables(0).Rows(i)("ImageHead")
Next
ENF IF
END USING