[RESOLVED] [2005] Problem saving image path to db

[maco]

Hi guys!

I'm using an openfiledialog along with some other textboxes and so and then extracting the text from the textboxes and putting them into my database. When I open a file with the dialog I also take the path to the file and put it in to a textbox to save it later in the database. But this is where it all goes wrong, it works fine to save if I don't import a picture, but once I import a picture (it goes in a picture box for preview and path in the textbox) then when I add the stuff to the database it changes the path to the database, replacing it with the path to the image? :S

And I just can't figure out why! I've tried everything, I tried writing the path to a textfile instead, same error, even when that code is outside the db-connection.

Even if I don't put in any code relating to saving the image in the database or anywhere else I still get the same error as long as I import an image to my picturebox!

I really need help!

Here's the code for importing the image, and saving it to my database:

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        With OpenFileDialog1.Filter = "All Images (*.gif; *.jpeg; *.jpg; *.bmp)|*.gif; *.jpeg; *.jpg; *.bmp"
        End With
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
 
            PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage
            PictureBox3.ImageLocation = OpenFileDialog1.FileName
 
 
            BrowseText.Text = OpenFileDialog1.FileName
        End If
 
 
 
 
    End Sub

Private Sub AddMovieBtn_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddMovieBtn.Click
 
        Dim addresponce As Integer
        addresponce = MsgBox(" Do you want to add the following object? " + "Movie Title: " + Title.Text, MsgBoxStyle.YesNo)
        If addresponce = vbYes Then
 
 
            If Title.Text = "" And Actor.Text = "" And Descrip.Text = "" And Length.Text = "" Then
 
 
 
                MsgBox("You have to fill at least 1 field!")
            Else
 
                If Rating.Text = "" Then
                    Rating.Text = "1"
                End If
 
                If Length.Text = "" Then
                    Length.Text = "1"
                End If
 
 
 
 
                Try
 
 
 
                    cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=movies.mdb;")
                    cn.Open()
                   
                    str = "INSERT INTO moviedata (Title, Length, Actors, Description, Rating, Genre, Location, ImageLocation) VALUES('" & Title.Text & "' , '" & Length.Text & "' , '" & Actor.Text & "' , '" & Descrip.Text & "' , '" & Rating.SelectedItem & "' , '" & Genre.SelectedItem & "  ' , '" & FileLocation.Text & "', '" & BrowseText.Text & "')"
                    
 
                    cmd = New OleDbCommand(str, cn)
                    icount = cmd.ExecuteNonQuery
                    'MsgBox(icount)
                    'displays number of records inserted
 
                    cn.Close()
 
 
 
 
 
 
 
                    MsgBox("The Movie Has Been Added To The Database")
 
                    'Rensa ut all data
                    Title.Text = ""
                    Length.Text = ""
                    Actor.Text = ""
                    Descrip.Text = ""
                    Rating.Text = ""
                    Genre.Text = ""
                    FileLocation.Text = ""
                    BrowseText.Text = ""
 
 
                    PictureBox3.Image = Nothing
 
 
 
                Catch ex As Exception
                    MessageBox.Show(ex.ToString())
 
                    'Catch
                    '   MsgBox("An error was reported! Please try again!")
                End Try
 
 
 
 
 
 
            End If
 
        Else
            If addresponce = vbNo Then
                Me.Select()
            End If
        End If
        Me.MoviedataTableAdapter.Fill(Me.MoviesDataSet.moviedata)
 
 
    End Sub

[jmcilhinney]

It's because of this:

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=movies.mdb;")

By not specifying the absolute path you are implicitly using the current directory. When you run your app the current directory will initially be the folder containing the executable by default, but it can change.

One of the things that can change it is an OpenFileDialog. A quick fix is to set the RestoreDirectory property of the OFD to True so it doesn't change the current directory, but that's not a proper solution.

There's no guarantee that something else won't change the current directory. Unless you specifically want to follow the current directory you shouldn't use a path that implies the current directory. If you want a path that refers to the folder that contains the executable then that's what you should use. In a .NET connection string that looks like this:

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\movies.mdb;")

The |DataDirectory| variable refers to the folder containing the executable unless you change it through the current AppDomain. That's not going to happen unless you specifically want it to.

[maco]

Thanks Jim!

I solved it by creating a new string that contains the Application.Startuppath plus the db name. Then changing the source to that string.

[jmcilhinney]

Why do that when you can do it "properly" with |DataDirectory|? That's specifically why the |DataDirectory| variable exists.