【求助】问个Access VBA的问题

dnastar

请问如何才能在VBA中取回 SQL的结果赋给另一个字符变量呢
例如，我要计算当前表中的记录数，然后传给另一变量，



另外，谁可以推荐一下这方面的书、网站点站之类的？
多谢了！！

cooper998

同样很关注！一直以来在PC上用excel和access适用都比较差，对于VBA很是向往！希望有DX可以介绍本好书！

lieo

http://maweifeng.cnblogs.com/archive/2006/01/20/320986.html
http://www.phei.com.cn/bookshop/ ... 0&booktype=main

T22-T22

QUOTE:

原帖由 dnastar 于 2006-4-18 11:16 发表
请问如何才能在VBA中取回 SQL的结果赋给另一个字符变量呢
例如，我要计算当前表中的记录数，然后传给另一变量，



另外，谁可以推荐一下这方面的书、网站点站之类的？
多谢了！！

dim a
select count(*) as a from table

huangzhao10

路过。。帮顶

dnastar

QUOTE:

原帖由 T22-T22 于 2006-4-18 12:08 发表

dim a
select count(*) as a from table

这样不行啊，

在VBA里好象得用 DoCmd.RunSql 来执行SQL语句，但是不知道他的结果存在哪，如何去取。不知有什么其他办法没有呢

dnastar

Lieo和Double T22先送几朵小花吧，

webgenius

我是刚刚学．．．
你把SQL的值写入一个VALUE，然后在取值就可以．．．．
不知道这样对不对

dnastar

QUOTE:

原帖由 webgenius 于 2006-4-18 16:10 发表
我是刚刚学．．．
你把SQL的值写入一个VALUE，然后在取值就可以．．．．
不知道这样对不对

可以这样吗？

dim recNum as integer

select count(a) into recNum from tablea



不知道 除了Docmd.runSQL 外还有没有其它方法直接执行SQL语句？
难道非要用数据集一类的对象吗。

webgenius

假设你要记录RECORDS的数目
你可以这样写
You can use the DCount function to determine the number of records that are in a specified set of records (a domain). Use the DCount function in Visual Basic, a macro, a query expression, or a calculated control.


Example
The following function returns the number of orders shipped to a specified country after a specified ship date. The domain is an Orders table.

Public Function OrdersCount(ByVal strCountry As String, _
                            ByVal dteShipDate As Date) As Integer

    OrdersCount = DCount("[ShippedDate]", "Orders", _
                  "[ShipCountry] = '" & strCountry & _
                  "' AND [ShippedDate] > #" & dteShipDate & "#")
End Function
最好的参考书就是ACCESS的帮助了
全详细和全面
我们上课都没有教材的
都是CASE一发．自己去作，要资料都看帮助
一般来说没有什么问题的

dnastar

QUOTE:

原帖由 webgenius 于 2006-4-18 19:03 发表
假设你要记录RECORDS的数目
你可以这样写
You can use the DCount function to determine the number of records that are in a specified set of records (a domain). Use the DCount function in Visual Basi ...

多谢！！一直都是靠帮助和Google来解决啊。

主要还是对VBA的函数不很了解