# 各位RDO高手请指导一下

Posted by Gary Chen on August 17, 1998 at 08:47:20:

各位RDO 的高手请教一下
以下是我的程式码
Option Explicit
Dim rdoConn As rdoConnection
Dim rs As rdoResultset
Dim Conn As String
Dim strSQL As String
Dim t1 As String
Dim t2 As String

Private Sub Form_Load()
Conn = "Dsn=VDA;DataBase=VDADB;Uid=sosup;Pwd=2670;"
Set rdoConn = rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, False, Conn)
End Sub

Private Sub Command4_Click()
t1 = Text1.Text
t2 = Text2.Text
strSQL = "select * from UserPW"
Set rs = rdoConn.OpenResultset(strSQL, rdOpenDynamic, rdConcurRowVer)
If rs.EOF Then
Beep
Else
Text1.Text = rs.rdoColumns(0)
Text2.Text = rs.rdoColumns(1)
End If
End Sub

我在 rs.rdoColumns(1)
的这一栏的资料库中会有一些是无资料的情况
所以我每次指要读到是无资料,程式就会有94的错误
请问一下我该如何解决,因为此栏位不是一定要填写的栏位
另外!请问一下在像DBCombo这种的控制项中,我应该如何去填进去它的DataSource及DataField中,而让它有下拉选项的功能??
在使用RDO时该如何下指令才可以使用像DBGrid这种的资料控制项??
谢谢!

Follow Ups:

- 稍稍修正一下 小吴 07:49:23 8/18/98 (0)