'数据更新 public sub updatetable(byval strsql as string) objcommand.commandtext = strsql try consql.open() trans = consql.begintransaction objcommand.transaction = trans objcommand.executenonquery() trans.commit() catch ese as exception msgbox(ese.message) trans.rollback() '如果更新异常则取消所有更新 finally consql.close() '关闭连接 end try end sub
网友评论