我可以将OledbCommand的参数传递给其他OledbCommand吗？

Question

这也许是个愚蠢的问题，但我需要一些解决办法。

我已经做了

cmd.CommandText = "Insert Table1(Col1,Col2,Col3,Date) Values (1,'aa',101,?)"
cmd.Connection = con2
cmd.Parameters.AddWithValue("@Date", transdate)
ExecuteQuery(con2,cmd)

我编写了下面的代码以避免使用..。别再到处使用了。

如果查询没有参数，则运行良好。

Private Sub ExecuteQuery(con as OledbConnection,cmd as OledbCommand)
Using con1 As New OleDbConnection(con.ConnectionString)
    Using cmd1 As New OleDbCommand(cmd.CommandText)
        cmd1.Connection = con1
        con1.Open()
        cmd1.ExecuteNonQuery()
        con1.Close()
    End Using
End Using

当我在Using块下编写cmd时，它可以很好地处理参数。

但正如我所说，我正在避免在任何地方编写Using。

但是这样做会产生错误-- 没有一个或多个所需参数的给定值。

Answer 1

您需要调整您的ExecuteQuery，因为它正在生成一个新命令并丢失参数。更改它，以便它使用您传递的现有命令，并对其进行处理，或者将参数从入站命令传递到新命令。

Private Sub ExecuteQuery(con as OledbConnection, cmd as OledbCommand)
  Using con1 As New OleDbConnection(con.ConnectionString)
    Try
        cmd.Connection = con1
        con1.Open()
        cmd.ExecuteNonQuery()
        con1.Close()
    Finally
        cmd.Dispose()
    End Try
  End Using 
End Sub

Private Sub ExecuteQuery(con as OledbConnection,cmd as OledbCommand)
  Using con1 As New OleDbConnection(con.ConnectionString)
    Using cmd1 As New OleDbCommand(cmd.CommandText)
        cmd1.Connection = con1
        ForEach p as Parameter in cmd.Parameters
          cmd1.Parameters.Add(p) 
        con1.Open()
        cmd1.ExecuteNonQuery()
        con1.Close()
    End Using
  End Using
End Sub

如果您正在寻找一种使您的db生活更容易的方法，请查看Dapper或-您可以使用对象，它为您编写所有sql。这不是停止控制(您仍然编写查询)，而是委派执行查询、查看结果、挖掘出每个文本或int并将其分配给用户对象的名称或年龄等无聊的方面。

如果您也不想编写SQL，请使用实体框架，因为它可以在对象和数据库之间自动转换