Visual Basic.net - salvando o caminho da imagem para um banco de dados do Access
Questão
Eu preciso de um programa para salvar o caminho da imagem para o meu banco de dados do Access. Como isso pode ser alcançado?
Solução
Esta aplicação tem um botão Abrir que irá ajudá-lo a abrir qualquer arquivo de imagem para uma PictureBox no formulário usando OpenFileDialog. Você verá o caminho do arquivo de imagem em um TextBox desativado. Quando você clica no botão de atualização, o caminho da imagem é salvo em um banco de dados do Access.
Siga os passos abaixo para criar um projeto semelhante para você:
- Crie um novo projeto Visual Basic.net. Selecione Aplicativo do Windows Forms na caixa de diálogo Novo Projeto. Nomeie este aplicativo como mikeoe2003PictureApplication.
- Crie o seguinte com propriedades abaixo mencionadas:
- Formulário - (nome): mikeoe2003PictureApplication, texto: FormPictureApplication
- PictureBox - (nome): PictureBox1, SizeMode: StretchImage
- Botão - (Nome): ButtonUpdate, Texto: & Atualizar
- Botão - (nome): ButtonOpen, texto: & aberto
- TextBoxt - (Name): TextBoxPictureFilePath, ativado: falso
- Clique duas vezes no formulário, insira o seguinte código logo acima de Public Class mikeoe2003PictureApplication:
Imports System.Data.OleDb Imports System.IO Importa o Microsoft.Win32 Double Click ButtonAbra e insira o código a seguir: Dim img As String Dim myStream Como Stream = Nothing Dim openFileDialog1 Como Novo OpenFileDialog () openFileDialog1.InitialDirectory = "c: \" openFileDialog1 .Filter = Nada openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True openFileDialog1.FileName = "" Se openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Então tente myStream = openFileDialog1.OpenFile () Se (myStream IsNot Nothing Em seguida, TextBoxPictureFilePath.Text = "" img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.FileName End Se Catch Ex Como Exception MessageBox.Show ("Não é possível ler o arquivo do disco Erro original: "& Ex.Message) Finalmente If (myStream IsNot Nothing) Então myStream.Close () End If End Tentar End If
- Crie um banco de dados do Microsoft Access em seu local conveniente e nomeie-o como Databasemikeoe2003PictureApplication.mdb
- Crie uma tabela com o nome Tablemikeoe2003PictureApplication e adicione as seguintes colunas a ela:
Id - Datatype: Autonumber PicturePath - DataType: Memo (como caminhos de arquivos podem ser consideravelmente longos às vezes)
- Clique duas vezes no UpdateButton e insira o seguinte código:
Experimentar
Dim myConnection Como OleDbConnection Dim myCommand Como OleDbCommand Dim mySQLString Como String myConnection = Novo OleDbConnection ("Provedor = Microsoft.Jet.OLEDB.4.0; Fonte de Dados = Databasemikeoe2003PictureApplication.mdb;") myConnection.Open () mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath ) VALUES ('"& Substituir $ (TextBoxPictureFilePath.Text, "' ", " '' ") &" ') "myCommand = Novo OleDbCommand (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Nada TextBoxPictureFilePath.Text = "" Catch ex Como Exception MessageBox.Show (ex.Message & "-" & ex.Source) End Try
- Execute o aplicativo, ele deve funcionar conforme desejado.
Obrigado ao Zohaib R por essa dica no fórum.