# Re: QueryDef 的错误

Posted by MM on November 19, 1998 at 14:03:57:

In Reply to: QueryDef 的错误 posted by 刘永淳 on November 18, 1998 at 23:00:10:

: ......
: On Error GoTo ErrorAction
: Dim TempSQL As QueryDef

: Set TempSQL = mainDB.CreateQueryDef("")
: DBEngine.Workspaces(0).BeginTrans
: TempSQL.SQL = "insert into classroom (教室代码,教室名称,使用简介)" &
: values ('" & Trim(txt_ClassroomID.Text) & "','" & Trim(txt_ClassroomName.Text) & "','" & Trim(txt_classroom.Text) & "')"
: TempSQL.Execute
: DBEngine.Workspaces(0).CommitTrans

: 于程式开头有加上 ON ERROR GOTO ERRORHANDLE
: 资料库为 Access 97
: Tablename : classroom
: PrimaryKey : 教室代码

: 若于 insert into 中 栏位[教室代码] 所给予值已存在于 table 中
: 因其设定为PrimaryKey 不会新增成功
: 但却不会有error发生，使on error 无作用
: 请问
: 我该如何判断此段Transaction是否成功

: 请各方高手帮忙

TempSQL.Execute(dbFailOnError)

Follow Ups:

- Re: QueryDef 的错误 CYH 06:10:20 11/22/98 (0)