更簡單的方法將參數化查詢發送到數據庫？

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但類似其他數據提供商）