关于更新vba 64位 代码？

vb的64位系统里已经不支持32位的dll引用，因此在VBA中增加了PtrSafe关键字来申明32位的dll引用，仅仅在宏运行时支持调用dll。以上的代码只需要增加PtrSafe关键字就可以了。如下图所示。

1、VBA的数据源可以是自身的表格，也可是是数据库（例如access）

2、更新数据库可以通过VBA做增删改查的 *** 作

3、对于表格自身 可以读出数据更改。也可以直接写入excel

'// 创建ADO记录集对象

   Set adoRt = CreateObject("ADODB.RecordSet")

  

   '// 设置SQL 语句

   strSQL = "SELECT * FROM TMB WHERE False"

  

   With adoRt

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

      .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=D:\TM.mdb"

      .CursorLocation = 3

      .CursorType = 1

      .LockType = 3

     

      '// 设置SQL语句

      .Source = strSQL

      '// 准备打开记录集

      .Open

        

    '删除TMB表中的所有记录

     if adort.recordcount<>0 then

        adort.movefirst

        do while not adort.eof

            adort.delete

            adort.movenext

        loop

    endif

      '// 新增记录

      .AddNew

      '// 赋值

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

      '// 更新

      .Update

     

      '// 判断并关闭记录

      If .State = 1 Then

         .Close

      End If

   End With

  

   '// 从内存中释放

   Set adoRt = Nothing

---