private sub commmand6_click()
sql="insert into [email protected](bm,mc) values('mmmm','ttt')"
OraBeginTrans
connara.execute sql
OraCommitTrans
end sub
sql="insert into [email protected](bm,mc) values('mmmm','ttt')"
OraBeginTrans
connara.execute sql
OraCommitTrans
end sub
private sub commmand6_click()
sql="insert into [email protected](bm,mc) values('mmmm','ttt')"
connara.BeginTrans
connara.execute sql
connara.CommitTrans
end sub
CN.CursorLocation = adUseClient
试试