初学使用事务发生错误,请大家帮忙!!谢谢

2005-02-04 02:47:36 138 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

python -- 海洋气象科研论文中常用绘图配色汇总当我学到一定基础，有自己的理解能力的时候，会去阅读一些前辈整理的书籍或者手写的笔记资料，这些笔记详细记载了他们对一些技术点的理解，这些理解是比较独到，可以学到不一样的思路。Python所有方向的技术点做的整理，形成各个领域的知识点汇总，它的用处就在于，你可以按照下面的知识点去找对应的学习资源，保证自己学得较为全面。观看全面零基础学习视频，看视频学习是最快捷也是最有效果的方式，跟着视频中老师的思路，从基础到深入，还是很容易入门的。可以通过自定义选取不同颜色的rgb，通过自定义的方式构建colormap。阅读详情

Dim aCon As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\cangku.mdb")

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If aCon.State = ConnectionState.Closed Then aCon.Open()
'定?一个字符串?量
Dim rukudate1 As String
Dim sl As Integer
Dim zj As Double
Dim rukuSQL As New OleDbCommand("Insert Into ruku([id],[name],[class],[size],[num],[price],[amount],[rukudate]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & rukudate1 & "')", aCon)

Dim zongkuInsertSQL As New OleDbCommand("Insert Into zongku([id],[name],[class],[size],[num],[price],[amount],[rukudate]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & rukudate1 & "')", aCon)

Dim zongkuUpdateSQL As New OleDbCommand("Update zongku set num = num + sl,amount = amount + zj where zongku.[id] = '" & TextBox1.Text & "' AND zongku.[name] = '" & TextBox2.Text & "' AND zongku.[class] = '" & TextBox3.Text & "' AND zongku.[size] = '" & TextBox4.Text & "'", aCon)

Dim transaction As OleDbTransaction

zj = CDbl(TextBox7.Text)
sl = CInt(TextBox5.Text)
rukudate1 = TextBox8.Text
rukudate1 &= "/"
rukudate1 &= ComboBox1.Text
rukudate1 &= "/"
rukudate1 &= ComboBox2.Text

Try
aCon.Open()
transaction = aCon.BeginTransaction
rukuSQL.Transaction = transaction
zongkuInsertSQL.Transaction = transaction
zongkuUpdateSQL.Transaction = transaction
If DataCheck(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text) = True Then
zongkuInsertSQL.ExecuteNonQuery()
Else
zongkuUpdateSQL.ExecuteNonQuery()
End If
rukuSQL.ExecuteNonQuery()
transaction.Commit()

Catch ex As Exception
transaction.Rollback()
MessageBox.Show(ex.Message)
Finally
aCon.Close()

End Try

MsgBox("successful")
End Sub
我运行以后transaction.Rollback()这句话报错,不知道原因,请告诉我一下可能发生错误的原因,如果是SQL语句的错误,请帮我看看,我看了很多遍觉得SQL语句应该没错,谢谢!

...全文