2014-04-22 48 views
1

我有文本框命名txtitemcode,當我鍵入項目代碼到文本框中我想以顯示相應的數據到網格視圖或文本框。試圖從SQL數據庫數據:怎樣進入文本

但它沒有發射的代碼,我不知道我錯了,我在谷歌搜索,並保持更改密碼,最後我得到了一個仍然是其無法正常工作。我在這裏貼上我的代碼..

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這個類,點擊並一定懷疑過的事件,沒有運氣的..

+2

您是否嘗試過調試代碼?它在哪裏「不工作」?你是否收到任何錯誤訊息? – Fred

+0

它不看起來像你傳遞參數正確 – kevchadders

+0

@njaeeb你叫FUNC這樣'的SelectItem(txtitemcode.text)'? –

回答

0

你沒有正確地傳遞參數。試試這個:

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了。

+0

顯示錯誤(必須聲明標量「@」) – NAJEEB

+0

窗體加載時間。 – NAJEEB

+0

在哪一行? – SysDragon