📄 387.html

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

💻 HTML

字号:

<html>  <head>    <title>Re: 更正: RDC的指标不会被关闭, 只有RdoResultset关闭</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>Re: 更正: RDC的指标不会被关闭, 只有RdoResultset关闭</h1>    </center><HR><p>Posted by <a href="mailto:lisac@mail.deuchem.com.tw">Lisa Chang</a> on August 14, 1997 at 02:51:37:<p>In Reply to: <a href="386.html"><b>更正: RDC的指标不会被关闭, 只有RdoResultset关闭</b></a> posted by Lisa Chang on August 14, 1997 at 02:22:23:<p>exmple:<br>Dim cn As rdoConnection<br>Dim en As rdoEnvironment, conn As String<br>Dim rs1 As rdoResultset<br> <p>Private Sub Form_Load()<br>    Set en = rdoEnvironments(0)<br>    en.CursorDriver = rdUseServer<br>    conn = "UID=D112;PWD=2321;DATABASE=DFD1;SERVER=DDFDHEM;DRIVER={SQL SERVER};DSN='';"<br>    Set cn = en.OpenConnection(dsname:="", Prompt:=rdDriverNoPrompt, Connect:=conn)<br>    Set rs1 = cn.OpenResultset("select * from test3", rdOpenKeyset, rdConcurLock)<br>    Set MSRDC1.Resultset = rs1   'RDC<br>    Text1.DataField = "t2"   'DATA FIELD<br>   <br>    cn.Execute "begin transaction", rdExecDirect<br>    'cn.BeginTrans<br>        rs1.Edit<br>        rs1("t2") = 44<br>        rs1.Update<br>    cn.Execute "rollback transaction", rdExecDirect  '会做rollback<br>    'cn.RollbackTrans   RDO2.0 BUG: 不会做异动回复的动作<br>    rs1.MoveNext       'RDO2.0 BUG: transaction结束后,cursor会关闭, 只好用move来解<br>    rs1.MoveFirst     '         决这个问题<br>    MsgBox rs1("t2")<br>        <br>   <br>End Sub<p>Private Sub Form_Unload(Cancel As Integer)<br>    Set rdotrans = Nothing<br>End Sub<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 387--></ul><!--end: 387--><br><HR><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -