📄 5656.html

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

💻 HTML

字号:

<html>
  <head>
    <title>Sir Who are you? why  not  to answer for me  </title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Sir Who are you? why  not  to answer for me  </h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by yuan on September 15, 1998 at 13:52:30:<p>
In Reply to: <a href="5630.html">Re: how to use RDO access  remote access97 database on windows NT server4.0?</a> posted by LiuXuan on September 14, 1998 at 19:54:22:<p>
lete,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: 5656-->
</ul><!--end: 5656-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -