Office中国论坛/Access中国论坛

标题: 求教ADO高手 [打印本页]

作者: djhong 时间: 2006-9-1 03:52
标题: 求教ADO高手
我做了一个前台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 时间: 2006-9-1 04:28
getrs是什么东西

子窗体的recordsource=str

作者: fan0217 时间: 2006-9-1 17:40
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编辑过]

作者: 阿笨 时间: 2006-9-1 20:53
直接把子窗体的recordSource设成str就是了

作者: djhong 时间: 2006-9-2 02:26
为什么还是不行.代码上看没什么大问题?

作者: djhong 时间: 2006-9-2 02:26
[attach]20116[/attach]

作者: gxlishuxin 时间: 2006-9-2 07:11

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 时间: 2006-9-3 01:02
请教如何改 Me.子窗体.Form.RecordSource = Rs
这条语句.对dao不了解

作者: XWQ2000 时间: 2006-10-22 08:15
11

作者: sgrshh29 时间: 2006-10-22 15:08

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

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

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

作者: yori2007 时间: 2008-1-26 11:12

作者: jsf2008 时间: 2008-1-26 15:32
看來這裏全是代碼
要真正學好代在碼更重要

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)