📄 173.html

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

💻 HTML

字号:

<html>
  <head>
    <title>Re: 用vb6写CGI程式,在写入ACCESS时,NT发生严重错误.....急</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>Re: 用vb6写CGI程式,在写入ACCESS时,NT发生严重错误.....急</h1>
    </center>

<HR><p>
Posted by <a href="mailto:huy@tpts1.seed.net.tw">Roger Huang</a> on July 10, 1997 at 21:44:17:<p>
In Reply to: <a href="125.html"><b>用vb6写CGI程式,在写入ACCESS时,NT发生严重错误.....急</b></a> posted by tom on July 01, 1997 at 09:05:22:<p>
<br>:         Dr.Watson  严重错误<br>:        无法附加于应用程式<br>:       Windows NT错误码  87<br>: 能否请各位前辈告知小弟如何解决?       谢谢!<p>我用这支CGI有一段时间了,<br>也没什么问题.<br>或许你把值先存到变数再指定就可以了吧?!<br>对了, 我的database是在CGI_MAIN开的.<br>而不是在 DoGet() 或 DoPost 里开.<p>Sub DoPost()<br>Dim buf  As Variant<br>Dim buf1 As Variant<br>Dim buf2 As Variant<br>Dim buf3 As Variant<br>Dim buf4 As Variant<br>Dim Fname, Fname1, SQLstring As Variant<br>Dim sql_statement As String<p>    Select Case sSelector<br>        Case "APPEND":      ' 新增一笔资料<br>            buf1 = GetSmallField("Name")<br>            buf2 = GetSmallField("Sex")<br>            buf3 = GetSmallField("Add")<br>            buf4 = GetSmallField("Tel")<br>            Set ds = Db.OpenRecordset("friend", dbOpenTable)<br>            ds.AddNew<br>            ds("Name") = buf1<br>            ds("Sex") = buf2<br>            ds("Add") = buf3<br>            ds("Tel") = buf4<br>            ds.Update<br>            ds.Close<br>            Send (""资料已加入资料库中")
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 173-->
</ul><!--end: 173-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -