0

我有一个带有列表框和图片框的表单。lisbox 使用数据库中的文件名填充。如果用户从列表框中选择一项,则图片应出现在图片框上。在 MySQL 数据库中,我有一个 Pix 表,其中包含字段pixName(varchar), pLocation(varchar)。在 pLocation 我保存了图片的文件路径。

Call Connection()
    With Me
        STRSQL = "Select pLocation From Pix where pixName = " & lstPix.SelectedItem & "'"
        Try
            myCmd.Connection = myConn
            myCmd.CommandText = STRSQL
            reader = myCmd.ExecuteReader
            If reader.Read Then
                Dim path = reader.GetString(0)
                picBox.ImageLocation = path
            End If
        Catch ex As Exception
            MsgBox("no picture")
        End Try
    End With

运行它时没有错误,但是当我在列表框中选择一个时,它显示“无图片”。我怎样才能让它工作?另外,我可以使用相同的代码在表单内以 wmp 播放视频吗?

4

2 回答 2

0

很明显,您的查询缺少撇号。将查询更改为:

STRSQL = "Select pLocation From Pix where pixName = '" & lstPix.SelectedItem.ToString() & "'"

更好的解决方案是改用参数:

STRSQL = "Select pLocation From Pix where pixName = @pixName"
myCmd.Parameters.AddWithValue("@pixName",lstPix.SelectedItem.ToString())
于 2013-02-03T08:33:44.460 回答
0

用这个

dim kol as string

OpenFileDialog1.ShowDialog()

kol = OpenFileDialog1.FileName.Replace("\", "\\")

TextBox1.Text = kol

mysql(插入和更新代码)

于 2013-08-23T08:29:38.373 回答