📄 5913.html

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

💻 HTML

字号:

<html>
  <head>
    <title>Re: Sorry, this works!(there is the same error)</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: Sorry, this works!(there is the same error)</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:yuan@zhuhai.gov.cn">wen</a> on September 23, 1998 at 08:39:32:<p>
In Reply to: <a href="5912.html">Sorry, this works!</a> posted by 小吴 on September 23, 1998 at 08:01:28:<p>
<br>: 我打错了，正确的连接字串是<br>: scnct = "DBQ=c:\winnt\db1.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverID=25;FIL=MS Access;UID=;PWD=;"<p>: 再试看看!<p>  program as follows:<br>   Option Explicit<p>Public en As rdoEnvironment<br>Public cn As rdoConnection<br>Private Sub Form_Load()<br>Dim scnct As String<br>Dim rs As rdoResultset<br>Dim ssql As String<br>Set en = rdoEngine.rdoEnvironments(0)<br>scnct = "DBQ=c:\winnt\db1.mdb;Driver={Microsoft Access Driver(*.mdb)};"<br>scnct = scnct & "DriverID=25;FIL=MS Access;UID=;PWD=;"<br>Set cn = en.OpenConnection(dsname:="yuan", _<br>prompt:=rdDriverNoPrompt, ReadOnly:=False, _<br>Connect:=scnct)<br>ssql = "select * from branch"<br>Set rs = cn.OpenResultset(ssql, rdOpenKeyset, rdConcurRowVer)<br>rs.Edit<br>.....<br>While Not cn.EOF<br>rs.MoveNext<br>Wend<br>rs.Close<br>cn.Close<br>End Sub<p>error:there is also the same error<br> I have checked my dsn,but,i haven't find set error,I use ASP can link DSN success.<br>  why???<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5913-->
</ul><!--end: 5913-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -