【正文】
lsDataBase類屬性列表屬性名稱類型讀寫性必填備注Conn可讀不可寫否數(shù)據(jù)庫連接對象(2)clsDataBase類方法列表函數(shù)或者過程名稱返回類型參數(shù)說明備注BeginTrans無無參數(shù)開始一個事務InitConnection無strConnectionString為數(shù)據(jù)庫連接字符串初始化數(shù)據(jù)庫連接對象CommitTrans無無參數(shù)提交一個事務RollBackTrans無無參數(shù)回滾一個事務調(diào)用示列Private sub cmdSave_Click()Dim objCn As Object Dim strConn As String Dim i As Integer Dim strErrorNum As StringDim strErrorDesc As StringSet objCn = CreateObject(“”)‘//初始化數(shù)據(jù)庫連接對象 (strConn) ‘//strConn傳入的數(shù)據(jù)庫連接字符串 ‘//開始一個事務‘//循環(huán)保存憑證,每次循環(huán)保存一張憑證。 strErrorNum amp。 ‘//新增一個貸方憑證科目明細 ( 1).VchExp = 銷售出庫 ( 1).AcctID = ( 1).