VB not saving to access database

[mcoliver88]

I Have created a movie database in visual studio 2008, and its just not saving my records to my access database, Can anyone help me, if it helps if you send me a PM i can send you the file

Thanks
Michael

[Reverend Jim]

Help is offered in the public forums, not through PM. Please post your code here and we can have a look.

[mcoliver88]

Hi, Thanks for your reply, I have tried creating my database in VB6 and i ahve most of it working. One aspect that i am having issues with is saving an image to the database. I hsve uploaded my UI and code. Is there any chance you could help me get get images into my Database

Private Sub browse_Click()
    'Open Dialog Box
    Image.Picture = Nothing
    With CommonDialog1
        .DialogTitle = "Open Image File...."
        .Filter = "Image Files (*.gif; *.bmp *.png *.jpg *.jpeg)| *.gif;*.bmp; *.png; *.jpg; *.jpeg"
        .CancelError = False
         .ShowOpen
        If .FileName = "" Then
         Image.Picture = Nothing
       Else
         Image = .FileName
         Image.Picture = LoadPicture(.FileName)
       End If
    End With
End Sub

Private Sub cmdAddNew_Click()
datFilm.Recordset.AddNew
txtTitle.SetFocus
End Sub

Private Sub cmdFind_Click()
Dim strSearch As String

strSearch = InputBox("What is the Name of the Film You are looking for?", "Find Record")

If strSearch <> "" Then
    datFilm.Recordset.FindFirst "Title = '" & strSearch & "'"

    If datFilm.Recordset.NoMatch Then
        MsgBox "Record not found!", vbOKOnly + vbCritical, "Find a Record"
    End If

End If

End Sub

Private Sub cmdFirst_Click()
datFilm.Recordset.MoveFirst
End Sub

Private Sub cmdLast_Click()
datFilm.Recordset.MoveLast
End Sub
Private Sub cmdNext_Click()
datFilm.Recordset.MoveNext
If datFilm.Recordset.EOF Then
    MsgBox "At Last Record!", vbCritical + vbOKOnly, "Move Next"
    datFilm.Recordset.MovePrevious
End If
End Sub

Private Sub Command2_KeyPress(KeyAscii As Integer)
Dim VideoAddr As String
VideoAddr = Replace(URLAddr.Text, "/watch?v=", "/v/")
If KeyAscii = 13 Then
    WindowsMediaPlayer1.URL = VideoAddr
End If


End Sub

Private Sub OLE1_Updated(Code As Integer)

End Sub

Private Sub image_Click()
 LoadPictureFromDB (rstRecordset)
End Sub

Private Sub iImage_Click()
LoadPictureFromDB (rstRecordset)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim VideoAddr As String
VideoAddr = Replace(URLAddr.Text, "/watch?v=", "/v/")
If KeyAscii = 13 Then
    WindowsMediaPlayer1.URL = VideoAddr
End If

End Sub

Thanks Michael

[Jx_Man]

save the binary picture to the access database.

[imBaCodes]

Also try to convert your image to base 64 before saving to database. to save space..