Office中国论坛/Access中国论坛

标题: 打开数据库中的表的代码问题 [打印本页]

作者: huiyi88 时间: 2008-9-30 18:56
标题: 打开数据库中的表的代码问题
我要打开数据库中的表来输出到EXCEL模板中，代码如下：
'打开数据表
Dim Rs As New ADODB.Recordset, DB As Database, Wks As Workspace

Set DB = CurrentDb()

Rs.Open "select * from 订单 where 销货单号=" & Me.销货单号, CurrentProject.Connection

If Rs.EOF And Rs.BOF Then
。。。。。。

一运行到：Rs.Open "select * from 订单 where 销货单号=" & Me.销货单号, CurrentProject.Connection就出错，这句该怎么写啊？假如我打开表要满足两个条件，即既要满足销货单号，又要满足交期。又怎么写呢？谢谢大师们回复！

作者: tz-chf 时间: 2008-9-30 19:51
DB和Wks多余

销货单号是文本吧？

Rs.EOF就可以了

作者: huiyi88 时间: 2008-10-3 21:05
标题: 原来问题出在 '" & Me.Text0 & "'"
以下代码OK了
str = "Select * From 表1 Where 类别='" & Me.Text0 & "'"
Rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDiRst
关键问题出在'" & Me.Text0 & "'"

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