Member Avatar for jomared145

'I have a problem in database Program in VB 6.0 that connects to Ms access which the field datatype is OLE object.
' here is my problem

'when i tried to run my program i always got this error message
'"System Error &H80040E00 (-2147217920)"

'here is my code for uploading the picture....

Private Sub Command1_Click()
    Dialog1.ShowOpen
    TxtPicture.Text = Dialog1.FileName
    Picture1.Picture = LoadPicture(TxtPicture.Text)
End Sub
'and when i tried to save...
Private Sub Command1_Click()
    Data1.recordset.update
End Sub

'...........after that it still have the system error, but however it stilll does save as binary object in the Mcaccess Field.
'please, i need help for these, im working this for more than a week but still no idea..
'hope to solve this,
'thanks in advance..

  • 2 Contributors
  • 1 Reply
  • 259 Views
  • 2 Days Discussion Span
  • Latest Post Latest Post by nkwuda.mathias
Member Avatar for nkwuda.mathias 
Private Sub Command1_Click()
Dialog1.ShowOpen
TxtPicture.Text = Dialog1.FileName
Picture1.Picture = LoadPicture(TxtPicture.Text)
End Sub
Edited by Dani because: Formatting fixed
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.