Option Explicit
Public connString As String
Public connMain As New ADODB.Connection
Public rs As ADODB.Recordset
Public htmTitle As String
Dim pBag As PropertyBag
Dim pByteA() As Byte
Private Sub Command1_Click()
loadRecord Text1.Text
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Media1.FileName = CommonDialog1.FileName
Media1.Play
End Sub
Private Sub Command3_Click()
Dim strQuery
'Create propertybag
Set pBag = New PropertyBag
'Write object
pBag.WriteProperty "Myvideo", Media1
'Fill array with binary data of pic
pByteA = pBag.Contents
'Write data to database
'strQuery = "INSERT INTO Employees (emppic) VALUES (" & pByteA & ")"
'connMain.Execute strQuery
rs.AddNew
rs.Fields("datas").Value = pByteA
rs.Update
End Sub
Private Sub Form_Load()
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\my documents\ghfr.mdb;Persist Security Info=False;"
connMain.Open connString
Set rs = New ADODB.Recordset
rs.Open "viveks", connMain, adOpenKeyset, adLockPessimistic, adCmdTable
End Sub
Private Sub loadRecord(strkey As String)
Dim strQuery As String
Dim objRs As Recordset
Set objRs = New ADODB.Recordset
strQuery = "Select * from viveks where empid = " & strkey
objRs.Open strQuery, connMain
On Error Resume Next
pByteA = objRs.Fields("datas").Value
Set pBag = New PropertyBag
pBag.Contents = pByteA
Set Media1 = pBag.ReadProperty("Myvideo")
objRs.Close
End Sub
The code is not working. I am trying to save a .avi to database but it is showing error.
