更简单的方法将参数化查询发送到数据库？

Question

有没有办法在较少的行写下面的代码？这似乎有很多代码来执行这样一个简单的查询。没有LINQ，因为我正在使用VS2005。在VB或C＃中的答案是可以接受的。

Using cmd As DbCommand = oDB.CreateCommand() 
    cmd.CommandText = "SELECT * FROM [Table1] WHERE [Date] BETWEEN @Date1 AND @Date2" 
    cmd.CommandTimeout = 30 
    cmd.CommandType = CommandType.Text 
    cmd.Connection = oDB 
    Dim param As DbParameter 
    param = cmd.CreateParameter() 
    param.Direction = ParameterDirection.Input 
    param.DbType = DbType.Date 
    param.ParameterName = "@Date1" 
    param.Value = Now().Date 
    cmd.Parameters.Add(param) 
    param = cmd.CreateParameter() 
    param.Direction = ParameterDirection.Input 
    param.DbType = DbType.Date 
    param.ParameterName = "@Date2" 
    param.Value = Now().Date.AddDays(intDaysAhead) 
    cmd.Parameters.Add(param) 
End Using 
Dim reader As DbDataReader = cmd.ExecuteReader() 

Answer 1

这些可能是线路最少可以得到：

Using con = New SqlConnection("Connectionstring") 
    Using cmd = New SqlCommand("SELECT * FROM [Table1] WHERE [Date] BETWEEN @Date1 AND @Date2", con) 
     cmd.CommandTimeout = 30 
     cmd.Parameters.AddWithValue("@Date1", Date.Today) 
     cmd.Parameters.AddWithValue("@Date2", Date.Today.AddDays(intDaysAhead)) 
     con.Open() 
     Using reader = cmd.ExecuteReader() 

     End Using 
    End Using 
End Using 

（假设SqlClient但类似其他数据提供商）