显示图片框VB网络的图片路径 [英] Display picture path to picturebox VB net

问题描述

我有一个带搜索按钮，图片框和文件框的文件图像路径的程序，我想搜索发票编号并在文本框中显示图片和图片路径，但代码不会处理，你能帮我吗？这个代码??



我尝试过：

 Private Sub search_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理search.Click 
 command.Connection = con 
尝试
 str =Select * from datagambar其中NoFaktur = @nofaktur
 command = New OleDbCommand（str，con）
 command.Parameters.Add（@ nofaktur，OleDbType.VarChar）.Value = nofaktur.Text 
 command .ExecuteNonQuery（）
调用showimage1（）
 command.Dispose（）
 con.Close（）
 Catch ex As Exception 
 MsgBox（ex.Message）
结束尝试
结束子
 
子showimage1（）
 Pictu reBox1.Visible = True 
 PictureBox1.Image = Image.FromFile（G：\ Aplikasi \ Photo \ Faktur Invoice）
 End Sub 

INSERT ，<$ c $> c> UPDATE 或 DELETE ，不返回任何数据。



要执行 SELECT 查询并读取结果，请使用 ExecuteReader 方法 [ ^ ]。

 私人  Sub  search_Click（ ByVal  sender < span class =code-keyword> As  System。 Object ， ByVal  e  As  System.EventArgs）句柄 search.Click 
 使用命令作为 新 OleDbCommand （  SELECT * FROM datagambar WHERE NoFaktur = @nofaktur，con）
 command.Parameters .Add（  @ nofaktur，OleDbType.VarChar）.Value = nofaktur.Text 
 
 尝试 
 con.Open（）
 
 使用 reader  As  OleDbDataReader = command.ExecuteReader（）
  If  reader.Read（）然后 
  Dim 图片路径 As  字符串 = reader.Field（ Of  字符串）（ 您的图像路径列名）
 如果 字符串 .IsNullOrEmpty（imagePath）然后 
 PictureBox1.Visible = 错误 
 其他 
 PictureBox1.Visible =  True  
 PictureBox1.Image = Image.FromFile（imagePath）
 结束 如果 
 
 ...在此处将其他列加载到UI中... 
 
其他 
 ...不匹配：告诉用户，和清除此处的用户界面.. 。
 结束 如果 
 结束 使用 
 
  Catch  ex  As  System.Data.Common.DbException 
 MsgBox（ex.Message）
 
 最后 
 con.Close（）
 结束 尝试 
 结束 使用 
 结束 子 

i have a program with search button, picture box, and textbox for file image path, i want to search invoice number and show the pictures and picture path in textbox but the code won't to process, can you help me with this codes??

What I have tried:

Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click
        command.Connection = con
        Try
            str = "Select * from datagambar Where NoFaktur = @nofaktur"
            command = New OleDbCommand(str, con)
            command.Parameters.Add("@nofaktur", OleDbType.VarChar).Value = nofaktur.Text
            command.ExecuteNonQuery()
            Call showimage1()
            command.Dispose()
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Sub showimage1()
        PictureBox1.Visible = True
        PictureBox1.Image = Image.FromFile("G:\Aplikasi\Photo\Faktur Invoice")
    End Sub

解决方案

ExecuteNonQuery is for executing commands like INSERT, UPDATE, or DELETE, which don't return any data.

To execute a SELECT query and read the results, use the ExecuteReader method[^] instead.

Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click
    Using command As New OleDbCommand("SELECT * FROM datagambar WHERE NoFaktur = @nofaktur", con)
        command.Parameters.Add("@nofaktur", OleDbType.VarChar).Value = nofaktur.Text
        
        Try
            con.Open()
            
            Using reader As OleDbDataReader = command.ExecuteReader()
                If reader.Read() Then
                    Dim imagePath As String = reader.Field(Of String)("Your image path column name")
                    If String.IsNullOrEmpty(imagePath) Then
                        PictureBox1.Visible = False
                    Else
                        PictureBox1.Visible = True
                        PictureBox1.Image = Image.FromFile(imagePath)
                    End If
                    
                    ... Load other columns into the UI here ...
                    
                Else
                    ... No match: tell the user, and clear the UI here ...
                End If
            End Using
            
        Catch ex As System.Data.Common.DbException
            MsgBox(ex.Message)
        
        Finally
            con.Close()
        End Try
    End Using
End Sub

这篇关于显示图片框VB网络的图片路径的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！