Visual Basic.net - Zapisywanie ścieżki obrazu do bazy danych Access

Kwestia

Potrzebuję programu do zapisania ścieżki obrazu do mojej bazy danych Access. Jak można to osiągnąć?

Rozwiązanie

Ta aplikacja ma przycisk Open, który pomoże Ci otworzyć dowolny plik obrazu do PictureBox na formularzu za pomocą OpenFileDialog. Zobaczysz ścieżkę pliku obrazu w wyłączonym polu tekstowym. Po kliknięciu przycisku aktualizacji ścieżka obrazu zostanie zapisana w bazie danych dostępu.

Wykonaj poniższe kroki, aby utworzyć podobny projekt dla siebie:

Utwórz nowy projekt Visual Basic.net. Wybierz opcję Windows Forms Application z nowego okna dialogowego projektu. Nazwij tę aplikację jako mikeoe2003PictureApplication.
Utwórz następujące z poniższymi właściwościami:
- Formularz - (Nazwa): mikeoe2003PictureApplication, Tekst: FormPictureApplication
- PictureBox - (Nazwa): PictureBox1, SizeMode: StretchImage
- Przycisk - (Nazwa): ButtonUpdate, Text: & Update
- Przycisk - (Nazwa): ButtonOpen, Tekst: & Otwórz
TextBoxt - (Name): TextBoxPictureFilePath, Enabled: False
Kliknij dwukrotnie formularz, wstaw poniższy kod bezpośrednio nad Public Class mikeoe2003PictureApplication:

 Imports System.Data.OleDb Imports System.IO Importuje Microsoft.Win32 Kliknij dwukrotnie ButtonOpen i wstaw następujący kod: Dim img As String Dim myStream As Stream = Nic Dim openFileDialog1 jako nowy OpenFileDialog () openFileDialog1.InitialDirectory = "c:" openFileDialog1.InitialDirectory = "c:" openFileDialog1 .Filter = Nic openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True openFileDialog1.FileName = "" Jeśli openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Następnie spróbuj myStream = openFileDialog1.OpenFile () If (myStream IsNot Nothing ) Then TextBoxPictureFilePath.Text = "" img = openFileDialog1.Nazwa_pliku PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.Nazwa_pliku Koniec jeśli Catch Ex jako wyjątek MessageBox.Show ("Nie można odczytać pliku z dysku . Oryginalny błąd: "& Ex.Message) Wreszcie jeśli (myStream IsNot Nothing) Następnie myStream.Close () End If End Spróbuj zakończyć jeśli

Utwórz bazę danych Microsoft Access w dogodnej lokalizacji i nadaj jej nazwę Databasemikeoe2003PictureApplication.mdb
Utwórz tabelę o nazwie Tablemikeoe2003PictureApplication i dodaj do niej następujące kolumny:

 Id - Typ danych: Autonumerowanie PicturePath - DataType: Memo (ponieważ ścieżki plików mogą być czasami bardzo długie)

Kliknij dwukrotnie przycisk UpdateButton i wstaw następujący kod:

Próbować

 Dim myConnection As OleDbConnection Dim myCommand As OleDbCommand Dim mySQLString As String myConnection = Nowy OleDbConnection ("Provider = Microsoft.Jet.OLEDB.4.0; Źródło danych = Databasemikeoe2003PictureApplication.mdb;") myConnection.Open () mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath ) VALUES ('"& Zastąp $ (TextBoxPictureFilePath.Text, "' ", " '' ") &" ') "myCommand = Nowy OleDbCommand (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Nic TextBoxPictureFilePath.Text = „” Catch ex As Exception MessageBox.Show (ex.Message & „-” & ex.Source) End Try