J
Jason Kolb
So I can find this when I google it again sometime because I've
forgotten the fix
<Description("Wrapper class for Data Access block
ExecuteNonQuery")> _
Public Shared Function ExecuteNonQuery(ByVal ds As DataSource,
ByVal cmdText As String, ByVal params As Array) As Integer
Dim parms As New ArrayList(params)
Dim db As Database
db = GetDatabase(ds) ' App-specific, normally just get a
database object
Dim pValues(parms.Count - 1) As Object
For i As Integer = 0 To parms.Count - 1
pValues(i) = CType(parms(i), SqlParameter).Value
Next
' NOTE: Had to modify this function in the Application
Block to accept an array of SqlParameters
Dim ret As Integer = db.ExecuteNonQuery(cmdText, pValues)
Return ret
End Function
forgotten the fix
<Description("Wrapper class for Data Access block
ExecuteNonQuery")> _
Public Shared Function ExecuteNonQuery(ByVal ds As DataSource,
ByVal cmdText As String, ByVal params As Array) As Integer
Dim parms As New ArrayList(params)
Dim db As Database
db = GetDatabase(ds) ' App-specific, normally just get a
database object
Dim pValues(parms.Count - 1) As Object
For i As Integer = 0 To parms.Count - 1
pValues(i) = CType(parms(i), SqlParameter).Value
Next
' NOTE: Had to modify this function in the Application
Block to accept an array of SqlParameters
Dim ret As Integer = db.ExecuteNonQuery(cmdText, pValues)
Return ret
End Function