📄 5654.html

📁 VB技巧问答10000例,是一个教程

💻 HTML

字号:

<html>
  <head>
    <title>Re: Rdo access local machine database,errors:The resultset type is read_only,who help me?</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: Rdo access local machine database,errors:The resultset type is read_only,who help me?</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by AndyLin on September 15, 1998 at 13:45:35:<p>
In Reply to: <a href="5652.html">Rdo access local machine database,errors:The resultset type is read_only,who help me?</a> posted by yuan on September 15, 1998 at 13:18:20:<p>
: I use vb6 enterprise edition on system win95<br>: on control panel,32bitodbc:<br>: system dsn:yuan1<br>: advanced:read_only=0<br>: but always errors:run-time errors "40058"<br>: the resulttype is read_only<br>: I use DAo ways can sucess.<p>: program code as follows:<br>: Private Sub Form_Load()<br>: Dim db As rdoconnection<br>: Dim rs As rdoresultset<br>: Dim ssql As String<br>: Set db = rdoengine.rdoenvironments(0).OpenConnection("yuan1")<br>: ssql = "select * from branch"<br>: Set rs = db.openresultset(ssql, rdopenkeyset)<br>: rs.movefirst<br>: rs.edit<br>: rs![branch_address] = "6"<br>: rs.Update<br>: While Not rs.EOF<br>: Debug.Print rs.rdocolumns(0)<br>:  rs.movenext<br>:  Wend<br>:  rs.Close<br>:  db.Close<br>: End Sub<p>: i don't know why? who can help me?<p>when you open resultset,you must to set the locktype,beacuse the default locktype is "rdconcurreadonly",to try following:<br>: Set rs = db.openresultset(ssql, rdopenkeyset,rdConcurRowVer	)<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5654-->
<!--top: 5657--><li><a href="5657.html">Sir,thank you very much,I have debug sucess</a> <b>yuan</b> <i>14:02:15 9/15/98</i>
(<!--responses: 5657-->0)
<ul><!--insert: 5657-->
</ul><!--end: 5657-->
</ul><!--end: 5654-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -