显示 MS Access 数据库中的图片答案

【问题标题】：Display a picture from MS Access database显示 MS Access 数据库中的图片
【发布时间】：2015-08-22 02:18:11
【问题描述】：

美好的一天！我目前正在使用 Access 数据库在 VB.Net 中构建学生管理信息系统。除了这个之外，所有东西都运行良好：

显示当前登录用户的图片列中的图片。

所有文本字段都根据当前登录的用户显示在我的数据库中分配的所有值。这是我显示用户信息的代码：

Dim cn As New OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\Data\Db\Faculty.mdb;")
    Dim dr1 As OleDbDataReader
    Dim com As New OleDbCommand


    com.CommandText = "select [Username],[Fname],[Lname],[Mname],[NickName],[Birthday],[Adds],[City],[CounPC],[Gender],[Religion],[Citizenship],[Contact],[stats],[Fathername],[Mothername],[FMAddress],[CollCourse],[VocCourse],[ElemEd],[ElemGrad],[HighEd],[HighGrad],[CollegeEd],[CollegeGrad],[VocationalCourse],[Skills],[Company],[Company1],[Position],[Position1],[YrStart],[YrStart1] from Personal where Username = '" & mainForm.TSUname.Text & "'"
    com.Connection = cn
    If cn.State = ConnectionState.Closed Then cn.Open()

    ' Username
    Dim Username As OleDbParameter = New OleDbParameter("@Username", OleDbType.VarWChar, 50)
    Username.Value = mainForm.TSUname.Text.ToString
    com.Parameters.Add(Username)

    dr1 = com.ExecuteReader
    If dr1.Read Then
        If dr1(1) = My.Settings.CurrentUserName.ToString Then
            ' Personal Information
            tbFname.Text = dr1(1)
            tbLname.Text = dr1(2)
            tbMname.Text = dr1(3)
            lblNickname.Text = dr1(4) & "!"
            tbBday.Text = dr1(5)
            tbAdd.Text = dr1(6)
            tbCity.Text = dr1(7)
            tbCountry.Text = dr1(8)
            tbGender.Text = dr1(9)
            tbReligion.Text = dr1(10)
            tbCitizenship.Text = dr1(11)
            tbContact.Text = dr1(12)
            tbStatus.Text = dr1(13)
            ' Parents
            tbFather.Text = dr1(14)
            tbMother.Text = dr1(15)
            tbAddress.Text = dr1(16)
            'Educational Background
            tbCollCourse.Text = dr1(17)
            tbVocCourse.Text = dr1(18)
            tbElemEd.Text = dr1(19)
            tbElemGrad.Text = dr1(20)
            tbHSEd.Text = dr1(21)
            tbHSGrad.Text = dr1(22)
            tbCollED.Text = dr1(23)
            tbColGrad.Text = dr1(24)
            tbVocational.Text = dr1(25)
            tbSkill.Text = dr1(26)
            ' Employment Background
            tbCompany.Text = dr1(27)
            tbCompany1.Text = dr1(28)
            tbPosition.Text = dr1(29)
            tbPosition1.Text = dr1(30)
            tbStart.Text = dr1(31)
            tbStart1.Text = dr1(32)
        Else
            MessageBox.Show("Incorrect Input", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    Else
        MessageBox.Show("UserID is Wrong", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If

我也想将用户的图片放入我的PictureBox。但是怎么做？任何帮助将不胜感激。谢谢！

【问题讨论】：

在保存时，您需要将图像转换为字节数组，然后在读取记录时将其转换回来。 This answer 为 C# 做这件事（基本上是 image-> memstream -> byte() ）。您还需要实现 SQL 参数以避免 SQL 注入攻击。
感谢您的回答。无论如何，我是否必须复制他/她的代码并将其转换为 vb？
我会使用 JPG 作为基础而不是 BMP - 它会导致输出更小。否则，您可以使用最后 4 行链接代码来查看步骤（反向执行以保存到数据库）。这是一个VB版本：stackoverflow.com/a/6861581/1070452
哦，谢谢。我会尝试看看它是否有效。谢谢
将图像本身保存在 .mdb 或 .accdb 中通常是个坏主意。文件很容易膨胀，即使您小心，也可能会遇到 Access 的 2GB max db size 限制。更常见的方法是将图像保存到磁盘并在 Access 数据库文件中仅存储路径（或足够的信息来重新创建路径）。

标签： vb.net ms-access picturebox

【解决方案1】：

我跟随大多数人，只是将图像上传到特定目录，然后将其路径存储在我的数据库中。然后，每当我想检索图像并将其分配给我的图片框的 imagePath 属性时，我都会获取路径。

【讨论】：

感谢所有帮助的人！