كيف يتم كتابه مثل هذه الاكواد
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim strFile As String = tbImagePath.Text
Dim imageStream As New System.IO.FileStream(strFile, System.IO.FileMode.Open)
Dim imageData(imageStream.Length) As Byte
imageStream.Read(imageData, 0, imageStream.Length)
imageStream.Close()
cmd = New OleDb.OleDbCommand("spInsertImage", conn)
cmd.CommandType = CommandType.StoredProcedure
param = New OleDb.OleDbParameter("@ImageData", OleDb.OleDbType.LongVarBinary)
param.Value = imageData
cmd.Parameters.Add(param)
Try
If MessageBox.Show("هل فعلا تريد اضافة هذا السجل", "اضافة سجل", MessageBoxButtons.YesNo, MessageBoxIcon.Warning).CompareTo(DialogResult.No) Then
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
End If
Catch ex As Exception
conn.Close()
MessageBox.Show(ex.Message)
End Try
Call getIds()
tbImagePath.ResetText()
End Sub
Private Sub btnGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGet.Click
Dim imageData() As Byte
Dim memoryStream As System.IO.MemoryStream
cmd = New OleDb.OleDbCommand("spGetImage", conn)
cmd.CommandType = CommandType.StoredProcedure
param = New OleDb.OleDbParameter("@id", OleDb.OleDbType.Integer)
param.Value = cbIDs.Text
cmd.Parameters.Add(param)
Try
conn.Open()
If Not cmd.ExecuteScalar Is System.DBNull.Value Then
imageData = CType(cmd.ExecuteScalar, Byte())
If Not imageData Is Nothing Then
memoryStream = New IO.MemoryStream(imageData)
pb.Image = New Bitmap(memoryStream)
memoryStream.Close()
Else
pb.Image = Nothing
End If
Else
pb.Image = Nothing
End If
conn.Close()
Catch ex As Exception
conn.Close()
MessageBox.Show(ex.Message)
End Try
End Sub
ارجو من الاخوه الافاضل المتميزين فى هذا المجال ان يفيدزنى بشرح وافى عن طريق كتابه هذه الاكواد وكيف يتم معرفه خصاص كل عنصر من عناصر الفيجوال بيزيك برمجيا