📄 4791.html

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

💻 HTML

字号:

<html>
  <head>
    <title>各位RDO高手请指导一下</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>各位RDO高手请指导一下</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:gary@mail.aat.com.tw">Gary Chen</a> on August 17, 1998 at 08:47:20:<p>
各位RDO 的高手请教一下<br>以下是我的程式码<br>Option Explicit<br>    Dim rdoConn As rdoConnection<br>    Dim rs As rdoResultset<br>    Dim Conn As String<br>    Dim strSQL As String<br>    Dim t1 As String<br>    Dim t2 As String<p>Private Sub Form_Load()<br>Conn = "Dsn=VDA;DataBase=VDADB;Uid=sosup;Pwd=2670;"<br>Set rdoConn = rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, False, Conn)<br>End Sub<p>Private Sub Command4_Click()<br>t1 = Text1.Text<br>t2 = Text2.Text<br>strSQL = "select * from UserPW"<br>Set rs = rdoConn.OpenResultset(strSQL, rdOpenDynamic, rdConcurRowVer)<br>If rs.EOF Then<br>Beep<br>Else<br>Text1.Text = rs.rdoColumns(0)<br>Text2.Text = rs.rdoColumns(1)<br>End If<br>End Sub<p>我在 rs.rdoColumns(1)<br>的这一栏的资料库中会有一些是无资料的情况<br>所以我每次指要读到是无资料,程式就会有94的错误<br>请问一下我该如何解决,因为此栏位不是一定要填写的栏位<br>另外!请问一下在像DBCombo这种的控制项中,我应该如何去填进去它的DataSource及DataField中,而让它有下拉选项的功能??<br>在使用RDO时该如何下指令才可以使用像DBGrid这种的资料控制项??<br>谢谢!<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4791-->
<!--top: 4825--><li><a href="4825.html">稍稍修正一下</a> <b>小吴</b> <i>07:49:23 8/18/98</i>
(<!--responses: 4825-->0)
<ul><!--insert: 4825-->
</ul><!--end: 4825-->
</ul><!--end: 4791-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -