📄 5657.html

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

💻 HTML

字号:

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -