Visual Basic.net - Access 데이터베이스에 이미지 경로 저장

발행물

내 Access 데이터베이스에 이미지 경로를 저장하는 프로그램이 필요합니다. 어떻게 이것을 달성 할 수 있습니까?

해결책

이 응용 프로그램에는 OpenFileDialog를 사용하여 양식의 PictureBox에 그림 파일을 열 수있는 열기 단추가 있습니다. 비활성화 된 TextBox에 그림 파일의 경로가 표시됩니다. 업데이트 버튼을 클릭하면 그림의 경로가 Access 데이터베이스에 저장됩니다.

아래 단계에 따라 유사한 프로젝트를 만듭니다.

새 Visual Basic.net 프로젝트를 만듭니다. 새 프로젝트 대화 상자에서 Windows Forms 응용 프로그램을 선택하십시오. 이 응용 프로그램의 이름을 mikeoe2003PictureApplication으로 지정하십시오.
아래에 언급 된 속성을 사용하여 다음을 만듭니다.
- 양식 - (이름) : mikeoe2003PictureApplication, 텍스트 : FormPictureApplication
- PictureBox - (이름) : PictureBox1, SizeMode : StretchImage
- 버튼 - (이름) : 버튼 업데이트, 텍스트 : & 업데이트
- 버튼 - (이름) : ButtonOpen, 텍스트 : & 열기
TextBoxt - (Name) : TextBoxPictureFilePath, Enabled : False
양식을 두 번 클릭하고 공용 클래스 mikeoe2003PictureApplication 바로 위에 다음 코드를 삽입하십시오.

 Imports System.Data.OleDb System.IO Imports Microsoft.Win32를 두 번 클릭 ButtonOpen을 클릭하고 다음 코드를 삽입합니다. Dim img As String Stream = Nothing Dim openFileDialog1 As New openFileDialog () openFileDialog1.InitialDirectory = "c : \"openFileDialog1 .Filter = Nothing openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True openFileDialog1.FileName = ""openFileDialog1.ShowDialog () = System.Windows.Forms.DialogResult.OK Then try myStream = openFileDialog1.OpenFile () If (myStream IsNot Nothing ) 다음 TextBoxPictureFilePath.Text = ""img = openFileDialog1.FileName PictureBox1.Image = System.Drawing.Bitmap.FromFile (img) TextBoxPictureFilePath.Text = openFileDialog1.FileName End If Exatch Ex Exception MessageBox.Show ( "디스크에서 파일을 읽을 수 없습니다. 원래 오류 : "& Ex.Message) 마지막으로 If (myStream IsNot Nothing) 그런 다음 myStream.Close () End If End Try End If

편리한 위치에 Microsoft Access 데이터베이스를 만들고 Databasemikeoe2003PictureApplication.mdb로 이름을 지정하십시오.
Tablemikeoe2003PictureApplication이라는 이름으로 테이블을 만들고 다음 열을 추가하십시오.

 ID - 데이터 유형 : 자동 번호 PicturePath - 데이터 유형 : 메모 (파일 경로가 상당히 길어질 수 있음)

UpdateButton을 두 번 클릭하고 다음 코드를 삽입하십시오.

시험

 Dim myConnection as OleDbConnection Dim myCommand as OleDbCommand Dim mySQLString as String myConnection = 새 OleDbConnection ( "공급자 = Microsoft.Jet.OLEDB.4.0; 데이터 원본 = Databasemikeoe2003PictureApplication.mdb;") myConnection.Open () mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath ")"myCommand = 새 OleDbCommand (mySQLString, myConnection) myCommand.ExecuteNonQuery () PictureBox1.Image = Nothing TextBoxPictureFilePath.Text = "Ex"Exception MessageBox.Show (ex.Message & "-"& ex.Source)를 끝내십시오.