Question

我有一个名为txtitemcode的文本框，当我将项目代码键入文本框时，我想将相应的数据显示在网格视图或文本框中。

但它没有触发代码，我不知道我错在哪里，我在谷歌搜索并不断更改代码，最后我还有一个仍无法正常工作。我在这里粘贴我的代码..

Public Sub SelectItem(ByVal ItemCode As String)
        Try
            sql.OpenDbConnection()
            Dim strSQL As String = "SELECT ItemCode as 'Item Code',ItemName as 'Item Name' FROM tblItemMaster where ItemCode='ItemCode'"
            'SqlConn.Close()
            Dim da As New SqlDataAdapter(strSQL, sql.SqlConn)
            Dim ds As New DataSet
            da.Fill(ds, "tblItemMaster")
            dgvPurchaseOrder.DataSource = ds.Tables("tblItemMaster")
            sql.SqlConn.Close()
        Catch ex As SqlException
            MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL Error")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
        End Try
    End Sub

我从文本lostfocus，点击和一些怀疑事件中调用此类，没有运气..

Answer 1

您没有正确传递参数。试试这个：

Dim strSQL As String = "SELECT ItemCode 'Item Code',ItemName 'Item Name' " & _
    " FROM tblItemMaster where ItemCode= @ItemCode"
Dim cmd As New SqlCommand(strSQL, sql.SqlConn)
Dim ds As New DataSet

cmd.Parameters.AddWithValue("ItemCode", ItemCode)

Dim da As New SqlDataAdapter(cmd)
da.Fill(ds, "tblItemMaster")

查看关于它的MSDN Documentation。

试图从sql数据库中获取数据：输入文本框的内容

1 个答案: