📄 5630.html

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

💻 HTML

字号:

<html>
  <head>
    <title>Re: how to use RDO access  remote access97 database on windows NT server4.0?</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: how to use RDO access  remote access97 database on windows NT server4.0?</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by LiuXuan on September 14, 1998 at 19:54:22:<p>
In Reply to: <a href="5626.html">how to use RDO access  remote access97 database on windows NT server4.0?</a> posted by yuan on September 14, 1998 at 17:06:19:<p>
: hi<br>:   good everybody<br>: On NTserver4.0 system:<br>: e:\db1.mdb(table:brance,code,address)<br>: I have set system dsn:<br>: yuan<br>: I ask that use RDO how to write program code on local system win95<br>: I use vb6.0 enterprise edition  <br>: I want to add,delete,insert,update,query db1.mdb database <br>: my NT server4.0 machine:internaldata<p>: program code as follows:<br>: Option Explicit<p>: Public en As rdoEnvironment<br>: Public cn As rdoConnection<p>: Private Sub Form_Load()<br>: Dim scnct As String<br>: dim rs as rdoresultset<br>: Set en = rdoEngine.rdoEnvironments(0)<br>: scnct = "dsn=yuan;uid=;" & "pwd=;database=db1;"<br>: Set cn = en.OpenConnection(dsname:="yuan", _<br>: prompt:=rdDriverNoPrompt, ReadOnly:=False, Connect:=scnct)<br>: ssql="select * from branch"<br>: set rs=cn.openresult(ssql,rdopenkeyset)<br>: rs.addnew<p>: rs("branch_id")="2"<br>: rs("branch_branch_tep")="132421"<br>: rs.update<br>: While Not cn.EOF<br>: rs.MoveNext<br>: Wend<br>: rs.Close<br>: cn.Close<p>: End Sub<p>: <br>: i can't connect my server database ,how to do?<br>A error in your connect that you must set the <br>driver and the server<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5630-->
<!--top: 5656--><li><a href="5656.html">Sir Who are you? why  not  to answer for me  </a> <b>yuan</b> <i>13:52:30 9/15/98</i>
(<!--responses: 5656-->0)
<ul><!--insert: 5656-->
</ul><!--end: 5656-->
</ul><!--end: 5630-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -