從VB.net中的數據表中選擇條件

Question

我想根據同一行中另一個字段的值從VB中的數據表中選擇某個字段。

select error_message from table_errors where error_case="condition" 

我怎麼做，如果我有我的SQL表中的VB一個DataTable填充：

在SQL中，它會很容易地通過編寫此查詢呢？ 如何根據項目（「error_Case」）字段選擇數據表中的項目（「error_message」）？

任何幫助，將不勝感激

Answer 1

您可以使用Linq-To-DataSet：

Dim matchingRows As IEnumerable(Of DataRow) = 
    From row In table 
    Where row.Field(Of String)("error_case") = "condition" 

如果你只是想一列（當然這工作也一步到位）：

Dim errorMessages As IEnumerable(Of String) = 
    From row In matchingRows 
    Select row.Field(Of String)("error_message") 

For Each error In errorMessages 
    Console.WriteLine(error) 
Next 

如果您希望它只是一行使用First或Single（如果存在多行，則會引發異常）：

Dim error As String = errorMessages.First() 

由於First拋出一個異常，如果序列是空的，你可以使用FirstOrDefault：

Dim error As String = errorMessages.FirstOrDefault() ' is null/Nothing in case of an empty sequence 

所有在同一行（注意，這兩個LINQ和DataTable.Select需要使用循環）：

Dim ErrMessage As String = errorTable.AsEnumerable(). 
    Where(Function(r) r.Field(Of String)("Error_Case") = TextCase.Text). 
    Select(Function(r) r.Field(Of String)("Error_Message")). 
    FirstOrDefault() 

Answer 2

這裏是工作人員版本的粗略代碼

Dim connString As String = "select error_message from table_errors where error_case='condition'" 
    Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(connString) 
    conn.Open() 
    Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(connString, conn) 
    Dim dTable As DataTable = New DataTable() 
    Dim dAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(cmd) 
    dAdapter.Fill(dTable) 
    conn.Close() 
    Dim text As String 
    Dim dReader As DataTableReader = dTable.CreateDataReader() 
    While dReader.Read() 
     text = dReader.GetValue(0) 
    End While 
    dReader.Close()