Public Function InsertTemp(ByVal strContID As String, ByVal myTable As DataTable, ByVal strUser As String) As Integer
Dim mySQL As String
Dim i As Integer Dim myConn As OracleConnection = New OracleConnection(ConfigurationSettings.AppSettings("ConnectionString"))
myConn.Open()
Dim myCommand As OracleCommand = New OracleCommand
Dim myTrans As OracleTransaction
myTrans = myConn.BeginTransaction()
myCommand.Connection = myConn
myCommand.Transaction = myTrans Dim myField As Array = strContID.Split(",") Try
Dim drRow As DataRow
For Each drRow In myTable.Rows
mySQL = "Insert Into Contract_Temp(" & strContID & ",UpdateTime,UpdateUser) Values(" For i = 0 To UBound(myField)
'日期格式
j = myField(0)
If LCase(myField(i)) = "signdate" Or LCase(myField(i)) = "begindate" Or LCase(myField(i)) = "enddate" Then
mySQL += "To_Date('" + drRow(i) + "','yyyy-mm-dd HH24:MI:SS'),"
Else
mySQL += "'" + drRow(i) + "',"
End If
Next mySQL += "To_Date('" & Now() & "','yyyy-mm-dd HH24:MI:SS'),"
mySQL += "'" & strUser & "')" myCommand.CommandText = mySQL
myCommand.ExecuteNonQuery()
Next myTrans.Commit()
InsertTemp = 1
Catch e As Exception
myTrans.Rollback()
InsertTemp = 0
Finally
myConn.Close()
End Try
End Function我这边有个DataTable循环,如果DataTable中有10条纪录,如果执行到第五条时出错,请问
如果返回这个错误行数5,谢谢!!!
Dim mySQL As String
Dim i As Integer Dim myConn As OracleConnection = New OracleConnection(ConfigurationSettings.AppSettings("ConnectionString"))
myConn.Open()
Dim myCommand As OracleCommand = New OracleCommand
Dim myTrans As OracleTransaction
myTrans = myConn.BeginTransaction()
myCommand.Connection = myConn
myCommand.Transaction = myTrans Dim myField As Array = strContID.Split(",") Try
Dim drRow As DataRow
For Each drRow In myTable.Rows
mySQL = "Insert Into Contract_Temp(" & strContID & ",UpdateTime,UpdateUser) Values(" For i = 0 To UBound(myField)
'日期格式
j = myField(0)
If LCase(myField(i)) = "signdate" Or LCase(myField(i)) = "begindate" Or LCase(myField(i)) = "enddate" Then
mySQL += "To_Date('" + drRow(i) + "','yyyy-mm-dd HH24:MI:SS'),"
Else
mySQL += "'" + drRow(i) + "',"
End If
Next mySQL += "To_Date('" & Now() & "','yyyy-mm-dd HH24:MI:SS'),"
mySQL += "'" & strUser & "')" myCommand.CommandText = mySQL
myCommand.ExecuteNonQuery()
Next myTrans.Commit()
InsertTemp = 1
Catch e As Exception
myTrans.Rollback()
InsertTemp = 0
Finally
myConn.Close()
End Try
End Function我这边有个DataTable循环,如果DataTable中有10条纪录,如果执行到第五条时出错,请问
如果返回这个错误行数5,谢谢!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货