5657.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 23 行

HTML
23
字号
<html>
  <head>
    <title>Sir,thank you very much,I have debug sucess</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Sir,thank you very much,I have debug sucess</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by yuan on September 15, 1998 at 14:02:15:<p>
In Reply to: <a href="5654.html">Re: Rdo access local machine database,errors:The resultset type is read_only,who help me?</a> posted by AndyLin on September 15, 1998 at 13:45:35:<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	)<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5657-->
</ul><!--end: 5657-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?