# 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是否成功

请各方高手帮忙

Follow Ups:

- Re: QueryDef 的错误 MM 14:03:57 11/19/98 (1)
  - Re: QueryDef 的错误 CYH 06:10:20 11/22/98 (0)