# Re: QueryDef 的错误

Posted by CYH on November 22, 1998 at 06:10:20:

In Reply to: Re: QueryDef 的错误 posted by MM on November 19, 1998 at 14:03:57:

: : ......
: : 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)

TempSQL.Execute,dbFailOnError

Follow Ups: