两个问题

zxh

1

有一个表是入库价格，字段有：id，有效期，  商品编号，入库价格

                            1   2004-1-1  001       2.25

                            2   2004-1-2  001       2.24

                            3   2004-1-2  002       3.15

                            4   2004-1-3  002       3.16

                            5   2004-1-3  001       2.26

                            ......

我现在要计算入库成本,但是入库单明细里没有入库价格的,只能从入库价格表里循环查找最新的价格(即找入库明细日期前最近的入库价格),在Access里有没有快速高效的办法?我用的是在代码里边循环的代码即for i=1 to rs.count ...next的方法,但是计算非常的慢.

2

在Access里用Ado的方法(数据库是SQL Server，ADO做客户端),在做交叉查询和报表时会不会很麻烦,且有可能不能实现?

[此贴子已经被作者于2005-9-28 10:32:40编辑过]

LucasLynn

以下是引用zxh在2005-9-28 10:25:00的发言：



1

有一个表是入库价格，字段有：id，有效期，  商品编号，入库价格

                            1   2004-1-1  001       2.25

                            2   2004-1-2  001       2.24

                            3   2004-1-2  002       3.15

                            4   2004-1-3  002       3.16

                            5   2004-1-3  001       2.26

                            ......

我现在要计算入库成本,但是入库单明细里没有入库价格的,只能从入库价格表里循环查找最新的价格(即找入库明细日期前最近的入库价格),在Access里有没有快速高效的办法?我用的是在代码里边循环的代码即for i=1 to rs.count ...next的方法,但是计算非常的慢.

2

在Access里用Ado的方法(数据库是SQL Server，ADO做客户端),在做交叉查询和报表时会不会很麻烦,且有可能不能实现?

1、SQL：条件、排序、最后一条记录。

2、应该不会

zxh

能否说详细一点啊？小弟不太明白，第二个问题的方法是不是用sql的视图实现交叉查询？报表的数据源怎样取？用recordset？

LucasLynn

以下是引用zxh在2005-9-28 11:39:00的发言：

能否说详细一点啊？小弟不太明白，第二个问题的方法是不是用sql的视图实现交叉查询？报表的数据源怎样取？用recordset？

1、在Access帮助中，选择Jet SQL部分，SELECT语句的帮助内容中有你要找的答案。只要一行SQL代码即可完成。

2、你只要会在MDB中写交叉查询，然后把SQL视图中的命令复制到你的代码中，更改数据源为SQL Server，然后用Recordset打开即可。

[此贴子已经被作者于2005-9-28 11:46:40编辑过]

zxh

报表的数据源我用recordset打开后还是不会绑定到控件里,在报表里显示不出来数据,请明示?

LucasLynn

以下是引用zxh在2005-9-28 15:49:00的发言：

报表的数据源我用recordset打开后还是不会绑定到控件里,在报表里显示不出来数据,请明示?

绑定数据源到控件请参考Access的范例，罗斯文数据库。

zxh

    strConnect = "rovider=MSDataShape;Data Provider=SQLOLEDB;" _

        & "Integrated Security=SSPI;Data Source=" & Server & ";" _

        & "Initial Catalog=" & Catalog & ";user id=" & userid & ";password=" & PassWord & ""

    conn.Open strConnect

        

    Dim sql As String

    'Dim rs As New ADODB.Recordset

   

    sql = "select * from tb_loginrecord"

    Set rs = New ADODB.Recordset

    rs.Open sql, conn, adOpenStatic, adLockReadOnly我是用这个方法打开的,但不会绑啊,不像平常的数据源直接来源于表或查询的,是用ADO取的数据

LucasLynn

Set Me.Recordset = rs

zxh

大哥,不行啊!显示不出来

[此贴子已经被作者于2005-9-28 16:39:18编辑过]

LucasLynn

以下是引用zxh在2005-9-28 16:39:00的发言：

大哥,不行啊!显示不出来

没注意你是SQL Server，改用ADP吧。MDB的窗体Recordset是DAO类型的，ADP的是ADO的。