求教ADO高手

djhong

我做了一个前台a.mdb和后台b.mdb.其中b.mdb存储数据.前台a.mdb为操作界面.只通过ado连接方式操作

如果操作界面我抓取一批数据.但不知道怎么把他所抓取的数据反映出来.请问有什么方法和例子吗?

比如:
Dim rs As New ADODB.Recordset
Dim str As String

str = "SELECT * FROM 表1 WHERE 分类 = '" & Me.txt & "'"   

Set rs = GetRS(str)
    If Not rs.EOF Then

比如这段代码要在子窗体中显示所有符合条件的数据.不知道该怎么写

End If

End Sub

tz-chf

getrs是什么东西

子窗体的recordsource=str

fan0217

GetRS是个自定义函数，用于创建记录集。

Dim Cnxn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim strSQL As String
Dim strDbName As String '数据库名称包含路径
    strDbName = "......"
    Cnxn.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbName
    strSQL = "SELECT * FROM 表1 WHERE 分类 = '" & Me.txt & "'"
    Rs.Open strSQL, Cnxn, adOpenStatic, adLockOptimistic
    If Not Rs.EOF Then
            set me.子窗体.form.recordset = rs
    End If
    Rs.Close
    Cnxn.Close
    Set Rs = Nothing
    Set Cnxn = Nothing


  

[此贴子已经被作者于2006-10-22 10:48:30编辑过]

阿笨

直接把子窗体的recordSource设成str就是了

djhong

为什么还是不行.代码上看没什么大问题?

djhong

gxlishuxin

Private Sub Command2_Click()

Dim Rs As New ADODB.Recordset
Dim strSQL As String
   
  
    strSQL = "SELECT * FROM 表1 WHERE 代码 = '" & Me.txt & "'"
    Set Rs = GetRS(strSQL)

    If Not Rs.EOF Then
            Me.子窗体.Form.RecordSource = Rs
    End If
    Rs.Close
   
    Set Rs = Nothing

End Sub

Me.子窗体.Form.RecordSource = Rs这一句记录集左边是dao类型，而右边是ado类型，这样会造成“类型不匹配”问题。

djhong

请教如何改  Me.子窗体.Form.RecordSource = Rs
这条语句.对dao不了解

XWQ2000

11

sgrshh29

以下是引用djhong在2006-9-2 17:02:00的发言：
请教如何改  Me.子窗体.Form.RecordSource = Rs
这条语句.对dao不了解

实在搞不懂为什么要用这么不灵活而且复杂的办法指定数据源。access有很多简单的指定数据源和筛选的方法，却偏偏要用这种办法。

改为： set me.子窗体.form.recordset = rs