📄 7543.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 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 CYH on November 22, 1998 at 06:10:20:<p>
In Reply to: <a href="7471.html">Re: QueryDef 的错误</a> posted by MM on November 19, 1998 at 14:03:57:<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)<p>TempSQL.Execute,dbFailOnError<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7543-->
</ul><!--end: 7543-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -