使用来自vb.net的参数的postgreSQL查询

Imports Npgsql

Public Class PostgreSqlQuery
    Private Function ExecuteQuery(ByVal connectionString As String, ByVal query As String, ByVal parameters As List(Of NpgsqlParameter)) As DataTable
        Dim dataTable As New DataTable()
        
        Using connection As New NpgsqlConnection(connectionString)
            connection.Open()
            
            Using command As New NpgsqlCommand(query, connection)
                For Each parameter As NpgsqlParameter In parameters
                    command.Parameters.Add(parameter)
                Next

                Using adapter As New NpgsqlDataAdapter(command)
                    adapter.Fill(dataTable)
                End Using
            End Using
        End Using
        
        Return dataTable
    End Function

    Public Sub RunQuery()
        Dim connectionString As String = "your_connection_string"
        Dim query As String = "SELECT * FROM your_table WHERE column1 = @param1 AND column2 = @param2"
        
        Dim parameters As New List(Of NpgsqlParameter)()
        parameters.Add(New NpgsqlParameter("@param1", "value1"))
        parameters.Add(New NpgsqlParameter("@param2", "value2"))
        
        Dim result As DataTable = ExecuteQuery(connectionString, query, parameters)
        
        ' 处理查询结果
        ' ...
    End Sub
End Class