Execl_VBA *** 作Access数据库。查询，更新，删除

'// 创建ADO记录集对象

   Set adoRt = CreateObject("ADODBRecordSet")

  

   '// 设置SQL 语句

   strSQL = "SELECT  FROM TMB WHERE False"

  

   With adoRt

      '// 设置需要连接数据库

      ActiveConnection = "Provider=MicrosoftJetOLEDB40;Data Source=D:\TMmdb"

      CursorLocation = 3

      CursorType = 1

      LockType = 3

     

      '// 设置SQL语句

      Source = strSQL

      '// 准备打开记录集

      Open

        

    '删除TMB表中的所有记录

     if adortrecordcount<>0 then

        adortmovefirst

        do while not adorteof

            adortdelete

            adortmovenext

        loop

    endif

      '// 新增记录

      AddNew

      '// 赋值

      Fields("TMZF")Value = Range("识别号")

      '// 更新

      Update

     

      '// 判断并关闭记录

      If State = 1 Then

         Close

      End If

   End With

  

   '// 从内存中释放

   Set adoRt = Nothing

如果是要学习“库管信息查询里的“库存数量”返回给库管信息表里的“库存数量”字段”这个问题，我无话可说，如果是编程序去卖钱，大可不必用这个思路了，为什么不把库存表做成实时的呢？建立一张库存表，当录入进货信息时，保存进货信息后，接着就去更新库存信息，如果库存表中已经某个物品信息及数量，那就直接加上数量，如果没有，那就建立一条新的物品及数量信息，下回再进货时就可直接加数量了。销货出库时，保存出库信息时，到库存表中去减某种物品的数量，如果出库数量大于库存数量，还可以报数量不够的信息。这样每次打开库存表时，看到的都是当前最新的库存信息，而且不必去计算，也不必去建立表，返回给库管信息表里的“库存数量”字段。

在access中有两种方法刷新查询：

1 FormRequery 方法

Requery 方法通过重新查询 （重新查询：可以重新运行活动窗体或数据表所基于的一个查询，以便反映对记录的更改、显示新添加的记录，并消除已标记为删除的记录。）窗体的数据源，更新基于指定窗体的数据。

语法

表达式Requery

表达式   一个代表 Form 对象的变量。

说明：可以使用此方法确保窗体或控件显示最新的数据。

Requery 方法执行下列 *** 作之一：

重新运行窗体或控件所基于的查询。

显示任何新的或已更改的记录，或从窗体或控件所基于的表中删除已删除的记录。

根据对窗体的 Filter 属性所做的任何更改，更新显示的记录。

2 FormRefresh 方法

Refresh

方法用于立即更新特定窗体 （窗体：Access

数据库对象之一，可以在这种对象上放置控件，用于执行 *** 作，或在字段中输入、显示、编辑数据。）或数据表 （数据表：以行列格式显示的来自表、窗体、查询、视图或存储过程的数据。）的基础数据源中的记录，以反映在多用户环境下您或其他用户对数据所做的更改。

语法

表达式Refresh

表达式   一个代表 Form 对象的变量。

返回值

Nothing

说明：使用 Refresh 方法与单击“开始”选项卡上的“刷新”命令是等效的。

以上就是关于Execl_VBA *** 作Access数据库。查询，更新，删除全部的内容，包括:Execl_VBA *** 作Access数据库。查询，更新，删除、access 查询更新到表、access刷新查询的命令是什么等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！