📄 7471.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re: QueryDef 的错误</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: QueryDef 的错误</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by MM on November 19, 1998 at 14:03:57:<p>
In Reply to: <a href="7457.html">QueryDef 的错误</a> posted by 刘永淳 on November 18, 1998 at 23:00:10:<p>
: ......<br>: On Error GoTo ErrorAction<br>: Dim TempSQL As QueryDef<p>: Set TempSQL = mainDB.CreateQueryDef("")<br>: DBEngine.Workspaces(0).BeginTrans<br>: TempSQL.SQL = "insert into classroom (教室代码,教室名称,使用简介)" & <br>:  values ('" & Trim(txt_ClassroomID.Text) & "','" & Trim(txt_ClassroomName.Text) & "','" & Trim(txt_classroom.Text) & "')"<br>: TempSQL.Execute<br>: DBEngine.Workspaces(0).CommitTrans<p>: 于程式开头有加上 ON ERROR GOTO ERRORHANDLE<br>: 资料库为 Access 97 <br>: Tablename : classroom<br>: PrimaryKey : 教室代码<p>: 若于 insert into 中 栏位[教室代码] 所给予值已存在于 table 中<br>: 因其设定为PrimaryKey 不会新增成功<br>: 但却不会有error发生，使on error 无作用<br>: 请问<br>:   我该如何判断此段Transaction是否成功<p>: 请各方高手帮忙<p>TempSQL.Execute(dbFailOnError)<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7471-->
<!--top: 7543--><li><a href="7543.html">Re: QueryDef 的错误</a> <b>CYH</b> <i>06:10:20 11/22/98</i>
(<!--responses: 7543-->0)
<ul><!--insert: 7543-->
</ul><!--end: 7543-->
</ul><!--end: 7471-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -