vb.net循环查询结果

Question

我熟悉VB6 ADO处理SQL查询和遍历记录集结果的方式。

但是，查询服务器，循环搜索结果以及在VB.Net中处理查询的正确方法是什么？ 我一直在使用的所有方法似乎都很不稳定，并且随机崩溃。

我一直在使用以下代码：

Public Function GetSQLTable(ByVal strSQL As String) As DataTable
    Dim table As New DataTable
    Dim adapt As SqlDataAdapter

    Try
        adapt = New SqlDataAdapter(strSQL, gconIntegration)
        adapt.Fill(table)
    Catch ex As Exception
        LogError("GetSQLTable: " & ex.ToString(), "SQL: " & strSQL)
    End Try

    Return table
End Function

并像这样使用它：

 Dim dt As DataTable
 Dim lngRow As Long
 Dim current As DataRow
 Dim lngContact As long

 Try
        dt = GetSQLTable(strSQL)
        For lngRow = 0 To dt.Rows.Count - 1
            current = dt.Rows.Item(lngRow)
            lngContact = current.Item("indvid") 
            DoSomething(lngContact)
        Next
Catch ex As Exception
    LogError("FindContact: " & ex.ToString(), "SQL: " & strSQL)
    lngContact = -1     
 Finally
    current = nothing
    dt = nothing

Answer 1

我怀疑问题与您如何管理gconIntegration连接有关。 您正在努力尝试继续使用相同的连接。 看看它住的地方会很有帮助。

最好从池中获取“新”连接，然后让.Net为您担心。

同样，您的通用“ GetSQLTable”代码缺少重要部分：它不允许设置参数，这告诉我您是将它们直接构建到查询字符串中。 那是灾难的秘诀：它将导致Sql注入安全漏洞。

还有一件事：不要在.Net中将对象设置为Nothing 。 如有必要，可以将其处置，或者让它们自己脱离范围。

这是从数据表中拉回数据表的正常方法：

Function GetSomeData(ByVal Table2ID As Integer)
    Dim result As New DataTable

    Dim sql As String = "SELECT Column1,Column2 FROM [Table1] WHERE Table2ID= @Table2ID"

    Using cn As New SqlConnection( GetConnectionString() ), _
    Using cmd As New SqlCommand(sql, cn)

        cmd.Parameters.Add("@Table2ID", SqlDbType.Int).Value = Table2ID

        Using rdr As SqlDataReader = cmd.ExecuteReader()
           result.Load(rdr)
        End Using
    End Using
    return result
End Function

关于该代码的一些注释：

• Using语句将确保将关联的对象放置在相应的End Using 。
• 查询参数保持强类型，并且即使将它们传输到服务器，也绝不能直接替换为查询字符串。 Sql Data和Sql Code从不混用。
• 您确实需要为每个要发送的查询提供单独的功能。 这确实是一件好事，因为它可以为数据库建立一个强类型的接口。 理想情况下，所有这些函数都在同一类中，并且GetConnectionString函数对该类是私有的。 在此数据层之外没有数据库访问。