という名前の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、クリック、およびいくつかの疑わしいイベントから呼び出します、運がありません..
パラメータを正しく渡していない。これを試して:
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ドキュメントを見てください。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加