首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

当记录存在时,Access VBA recordCount返回0

当记录存在时,Access VBA的recordCount返回0可能是由于以下几种情况导致的:

  1. 数据库连接问题:首先,确保已经成功连接到数据库,并且打开了正确的表或查询。可以使用OpenRecordset方法打开记录集,例如:
代码语言:txt
复制
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("YourTableName")
  1. 数据库记录过滤问题:如果在打开记录集时使用了过滤条件,可能导致recordCount返回0。确保过滤条件正确并且与数据库中的记录匹配。
  2. 数据库记录为空:如果数据库中没有符合条件的记录,recordCount将返回0。可以使用MoveLast方法将记录集移动到最后一条记录,然后再使用MoveFirst方法将记录集移动回第一条记录,以确保记录集中存在记录。例如:
代码语言:txt
复制
rs.MoveLast
rs.MoveFirst
  1. 数据库记录集已被移动:如果在使用recordCount之前已经对记录集进行了移动操作,可能导致recordCount返回0。确保在使用recordCount之前没有对记录集进行过Move操作。
  2. 数据库记录集已被修改:如果在使用recordCount之前对记录集进行了修改操作(如添加、删除、更新记录),可能导致recordCount返回0。在对记录集进行修改操作后,可以使用Requery方法重新查询记录集,然后再使用recordCount获取记录数。例如:
代码语言:txt
复制
rs.Requery
recordCount = rs.recordCount

总结起来,当记录存在时,Access VBA的recordCount返回0可能是由于数据库连接问题、记录过滤问题、记录为空、记录集已被移动或记录集已被修改等原因导致的。在使用recordCount之前,需要确保数据库连接正常、记录集正确打开,并且没有对记录集进行过移动或修改操作。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

  • Java分页查询(真分页)

    数据少时,可以在一个页面显示。当我们查询几百条以上数据,直接显示在一个页面上,不仅浏览不方便,查询效率也会受到影响,这是,我们就可以使用分页查询来解决这个问题。...我们可以先分析一下大概的思路,首先JSP页面负责显示数据,Action用来接收页面传来的参数,并调用Service准备需要的数据,Service实现了数据访问的功能,从数据库中查询出需要的数据,通过封装的PageBean实体返回给...则显示前10个页码 if(beginPageIndex < 1){ beginPageIndex = 1; endPageIndex = 10; } //后面的页码不足...ORDER BY (CASE t.type WHEN 2 THEN 2 ELSE 0 END) DESC, t.lastUpdateTime DESC")// .setParameter(0,...3.JSP页面上相同的分页代码,写在一个公共的页面中,需要分页,直接引用这个页面就好了。

    2.8K20

    MaxCompute UDF

    在SQL语句中使用自定义函数,如果计算的数据量过大并且存在倾斜,会导致作业占用的内存超出默认分配的内存。...您需要使用其他UDF类或者需要用到复杂数据类型,请根据MaxCompute SDK添加需要的类。...使用限制 在select语句中使用UDTF,不允许存在其他列或表达式。错误示例如下。 --查询语句中同时携带了UDTF和其他列。...arg_type_list还支持星号(*)或为空(‘’): arg_type_list为星号(*),表示输入参数为任意个数。 arg_type_list为空(‘’),表示无输入参数。...arg_type_list还支持星号(*)或为空(‘’): arg_type_list为星号(*),表示输入参数为任意个数。 arg_type_list为空(‘’),表示无输入参数。

    2.7K30

    Enterprise Library 4.1学习笔记2----数据访问程序块

    Data Access Application Block 其实个人感觉相当于另一个版本的dbHelper 废话不多说,先看下如何使用: 1.引用Microsoft.Practices.EnterpriseLibrary.Data.dll...", DbType.Int16, ParameterDirection.ReturnValue, "", DataRowVersion.Default, 0); this.Repeater1.DataSource...                    db.ExecuteNonQuery(_cmd, _trans as DbTransaction);//F_NickName字段上建有唯一索引,故第二次插入同样记录时会报错...catch                 { try                     {                         _trans.Rollback();//事务提交失败,...则回滚(是否回滚成功,可查看表中有无AA的记录即可)                     } catch { }                 } finally

    570100

    VBA使用API_01:读取文件

    其实很多系统的操作,像文件的操作等,都是要调用Windows API的,就算是VBA里的文件操作语句: Open pathname For mode [ Access access ] [ lock...另外有很多复杂的参数,一般都不大常用,这种在VBA里我们直接声明为Byval后传递0就可以,像CreateFile里的dwFlagsAndAttributes和hTemplateFile我们都可以设置为...As Long End Type 'dwCreationDisposition how to create Const CREATE_NEW As Long = &H1 ' 创建新文件/对象(对象已经存在是将返回失败...Const OPEN_EXISTING As Long = 3 ' 打开文件(如果不存在返回失败)。...Const TRUNCATE_EXISTING As Long = &H5 ' 存在就打开,且清空文件内容(至少要有GENERIC_WRITE权限);若文件不存在返回失败。

    1.6K10

    NoSQL性能测试工具YCSB-Running a Workload

    你数据库中存在usertable带有family列,以执行这个命令。而后所有数据被加载到数据库 usertable 带有family列。...例如,想象你需要加载100百万记录。然后,你需要修改workload文件中默认的“recordcount”属性。有两个办法实现。 指定一个新的属性文件,包含recordcount的新值。...load完成,Client会报告load的性能统计数据。这些统计与transaction阶段一样,所以看后续介绍 Step 6 执行workload 一旦数据被加载,你就可以执行workload。...每次操作返回代码的统计,每类操作的直方图。返回值被你的DB接口层定义,允许你看到workload过程中的任何错误。...这个输出指标 总体执行时间为10.11秒 平均吞吐量98.9 ops(所有线程) 491次修改操作,附带average,min,max,95th,99th %延迟情况 所有491次修改操作都返回0

    50920

    【续坑】如何心平气和地填坑之拿RSViewSE的报表说事(2)

    单独作为报表数据存储 选择新建数据库,并且将数据库文件保存在自定义的文件存储位置。 创建完之后可在数据库目录看到。...接下来的设置与Access一样了,默认创建三个数据记录的表 Datalog内其他的设置与Access连接设置的一样,此处不再赘述。...事件组件会在 HMI 服务器下次运行时或者 HMI 服务器组件手动启动才启动。当然,此处也可以选择项目启动启动DatalogON命令。...1)、编写脚本读取Access数据库内表的内容 VBA脚本代码中会涉及一个数据库的连接接口ADODB,它是一种兼容的各类数据库应用程序接口(API),各种数据库都可以。...思路:将数据库里读回来的数据按数组的形式返回给子函数,这样以后调用的时候就很方便了。

    2.9K10

    重写了MSSQL分页存储过程,附完整sql脚本

    晚上花了1小重写了MSSQL数据库中的分页存储过程,采用ROW_NUMBER的方式,需要MSSQL2005及以上版本支持。...           -- 查询条件(注意: 不要加WHERE)     @SortExpression     NVARCHAR(MAX) = 'Id',    -- 排序索引字段名(注意:仅支持一个,多个用...        INT OUTPUT,              -- 返回记录总数     @SortDire           NVARCHAR(MAX) = 'DESC'   -- 设置排序类型... END  ELSE  BEGIN    SET @SQLRowCount = 'SELECT @RecordCount=COUNT(*) FROM ' + @TableName  END  --输出参数为总记录数... EXEC sp_executesql @SQLRowCount, N'@RecordCount INT OUT', @RecordCount OUT    -- 这里是控制页数最多少  SET @PageCount

    1.1K30
    领券