Question

我有一个带有2个WinForms的VB.NET项目。现在在 Form 1 中，我添加了一个PictureBox，一个Button，一个OpenFileDialog。我编写了按钮，将PictureBox中的图片添加到sql数据库。现在我在 Form 2 中有另一个图片框。

所以我的问题是，如何从sql数据库中检索图像并将其显示在图片框中？

连接字符串如下：

Dim con As New SqlConnection
con.ConnectionString = "Data source=" & My.Settings.sqlserver & "," & My.Settings.sqlport &
                       ";Network Library=DBMSSOCN;initial catalog=" & My.Settings.dbname & 
                       ";User id=" & My.Settings.Username &
                       ";Password=" & My.Settings.Password & ";"
Dim cmd As New SqlCommand("select * from userandadmins where Username = @username and Password = @password", con)
con.Open()

Answer 1

我使用Oracle来存储照片。您需要使用out参数检索照片，该参数与存储照片的字段的类型相同。我认为它是BLOB。在将照片存储到数据库之前，您必须将其转换为字节数组。由于这不是问题所在，我将发布用于从我的Oracle数据库中检索照片的代码，转换为Sql Server代码应该是一件简单的事情。

我打开与数据库的连接并将其传递给retrieve函数。我返回一个包含一行数据的数据集，即照片和其他识别信息。然后我将BLOB分配给变量，从那里做你需要的。我用它做的是将它分配给一个图像控件，该控件调用另一个aspx页面来检索照片（imageURL）。检索它的代码位于被调用的＆＃34; Image.aspx＆＃34;中，然后将照片返回到图像控件。 html用于GetPhoto功能。这样我就不需要将照片存储在硬盘驱动器的任何位置并检索它。

Dim MyConnection As New OracleConnection
Dim MyDataSet As New DataSet
Dim MyPhoto() As Byte = {}

MyConnection = OpenConnection(Session("USERNAME"), Session("PASSWORD"))

MyDataSet = GetPhoto(MyConnection, pPhotoID)

myPhoto = MyDataSet.Tables("Data").Rows(0)("Photo")

Public Function GetPhoto(ByVal TheConnection As OracleConnection, ByVal pPhotoID As String) As DataSet
    Dim myCommand As New OracleCommand
    Dim DS As New DataSet
    Try
        With myCommand
            .Connection = TheConnection
            .CommandText = "Darlington.PlayerSignUps.GetPhoto"
            .CommandType = CommandType.StoredProcedure
            .Parameters.Clear()
            .Parameters.Add(New OracleParameter("pPhotoID", OracleDbType.Varchar2, pPlayerID.Length)).Value = pPhotoID 
            .Parameters.Add(New OracleParameter("pDataOut", OracleDbType.RefCursor))
            .Parameters(0).Direction = ParameterDirection.Input
            .Parameters(1).Direction = ParameterDirection.Output
            Dim DA As New OracleDataAdapter(myCommand)
            DA.Fill(DS, "DATA")
            GetPhoto = DS
        End With
    Catch exc As Exception
        Throw New Exception("Error occured while retreiving photo from database, the error is: " & exc.Message)
    End Try
    myCommand = Nothing

End Function

<tr>
    <td style="width: 372px; text-align: center">
        <asp:Image ID="Image_Photo" runat="server" ImageUrl="Image.aspx" />
    </td>
</tr>

从数据库检索照片到PictureBox

1 个答案: