21-07-20, 10:16 PM
(آخر تعديل لهذه المشاركة : 21-07-20, 10:26 PM {2} بواسطة khowla.goma.)
(21-07-20, 09:51 PM)ابراهيم ايبو كتب : اختي الكريمةاخي الكريم يعطي خطا في جمله في IsDBNull تحتها خط كانها مش معرفه
جربي الكود بهذا الشكل
كود :Public Sub selectSader1(id_esaryS As Integer)
Dim dts As New DataTable
Dim Cmd As New OleDbCommand()
Try
dts.Clear()
Cmd = New OleDbCommand("select * from Sader1 where id_esaryS = " & id_esaryS, cn)
Con.Open()
dts.Load(Cmd.ExecuteReader)
If dts.Rows.Count > 0 Then
Me.id_esaryS.Text = dts.Rows(0)("id_esaryS").value
Me.date_MasgS.Value = dts.Rows(0)("date_MasgS").value
Me.Mostalem.Text = dts.Rows(0)("Mostalem").value
Me.sefa.Text = dts.Rows(0)("sefa").value
Me.namberphon.Text = dts.Rows(0)("namberphon").value
Me.websait.Text = dts.Rows(0)("websait").value
Me.morfagatS.Text = dts.Rows(0)("morfagatS").value
Me.Sader_ela.Text = dts.Rows(0)("Sader_ela").value
Me.Sader_men.Text = dts.Rows(0)("Sader_men").value
Me.mawdo_MasgS.Text = dts.Rows(0)("mawdo_MasgS").value
Me.note.Text = dts.Rows(0)("note").value
If Not IsDBNull(dts.Rows(0)(11).Value) Then
Dim Pictur() As Byte = (CType(dts.Rows((0)(11).Value), Byte()))
Dim ms As New MemoryStream(Pictur)
Me.PictureBox1.Image = Image.FromStream(ms)
Else
MsgBox("لاتوجد صورة ", MsgBoxStyle.Exclamation, "تنبيه")
Me.PictureBox1.Image = Nothing
End If
Else
MsgBox("هذا السجل غير موجود", MsgBoxStyle.Exclamation, "تنبيه")
End If
Con.Close()
Catch ex As Exception
Messagebox.show(ex.Message, "Alert", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End Sub
If Not IsDBNull(dts.Rows(0)(11).Value) Then
و في ((0) كذلك
Dim Pictur() As Byte = (CType(dts.Rows((0)(11).Value), Byte()))
(21-07-20, 10:16 PM)khowla.goma كتب :(21-07-20, 09:51 PM)ابراهيم ايبو كتب : اختي الكريمةاخي الكريم يعطي خطا في جمله في IsDBNull تحتها خط كانها مش معرفه
جربي الكود بهذا الشكل
كود :Public Sub selectSader1(id_esaryS As Integer)
Dim dts As New DataTable
Dim Cmd As New OleDbCommand()
Try
dts.Clear()
Cmd = New OleDbCommand("select * from Sader1 where id_esaryS = " & id_esaryS, cn)
Con.Open()
dts.Load(Cmd.ExecuteReader)
If dts.Rows.Count > 0 Then
Me.id_esaryS.Text = dts.Rows(0)("id_esaryS").value
Me.date_MasgS.Value = dts.Rows(0)("date_MasgS").value
Me.Mostalem.Text = dts.Rows(0)("Mostalem").value
Me.sefa.Text = dts.Rows(0)("sefa").value
Me.namberphon.Text = dts.Rows(0)("namberphon").value
Me.websait.Text = dts.Rows(0)("websait").value
Me.morfagatS.Text = dts.Rows(0)("morfagatS").value
Me.Sader_ela.Text = dts.Rows(0)("Sader_ela").value
Me.Sader_men.Text = dts.Rows(0)("Sader_men").value
Me.mawdo_MasgS.Text = dts.Rows(0)("mawdo_MasgS").value
Me.note.Text = dts.Rows(0)("note").value
If Not IsDBNull(dts.Rows(0)(11).Value) Then
Dim Pictur() As Byte = (CType(dts.Rows((0)(11).Value), Byte()))
Dim ms As New MemoryStream(Pictur)
Me.PictureBox1.Image = Image.FromStream(ms)
Else
MsgBox("لاتوجد صورة ", MsgBoxStyle.Exclamation, "تنبيه")
Me.PictureBox1.Image = Nothing
End If
Else
MsgBox("هذا السجل غير موجود", MsgBoxStyle.Exclamation, "تنبيه")
End If
Con.Close()
Catch ex As Exception
Messagebox.show(ex.Message, "Alert", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End Sub
If Not IsDBNull(dts.Rows(0)(11).Value) Then
و في ((0) كذلك
Dim Pictur() As Byte = (CType(dts.Rows((0)(11).Value), Byte()))
