如何在子窗体上查询SQL数据库的记录集

xinchenl

    Dim ConnString As String

    Dim Conn As New ADODB.Connection

    Dim cmd1 As New ADODB.Command

    ConnString = "rovider=MSDAORA.1assword=password;User ID=user;Data Source=ibss34ersist Security Info=True"

    Conn.Open ConnString

    Set cmd1.ActiveConnection = Conn

   

    cmd1.CommandText = "select * from aa"

    Dim rst1 As New ADODB.Recordset

    rst1.Open cmd1

上面的查询已能正常执行,就是不知如何应用到子窗体中,让子窗体中显示查询的结果.请多多指教谢谢....万分着急等着解决..........

zhuyiwen

Set Me.SubForm.Form.Recordset = rst1

xinchenl

大哥好像是不行,现我做成一个本地的,把程序附上

现在的出错信息就在这条语句上,说是:  "您输入的表达式引用了一个关闭或不存在的对像"

如果在设计视图中先给子窗体指定了一个记录源,则出错的信息为:"您输入的对像不是有效的recordset属性"

我不知道错在哪啊,搞了几天都没搞好眼看都快放假了,再搞不了我就死定了,望各位大哥救我一命,小弟在下谢过了

lwwvb

MDB中是不可能这样做的,这样的做法只能出现在ADP中,你在ADP这里,就应使用ADP的文件,不要用MDB了.

MDB中对应的做法如上.[em01]

xinchenl

如题

lwwvb

用SQL SERVER 2000。

ZHJIEJIE

其实你还没有在子表窗口的" 数据"  "源对象" 中指定查一个表或查询,我先选了表就无问题了

zhaoxyong

set me.recordset=rst1.clone