当前位置: 首页 新闻详细

如何用vba代码将access数据库连接求代码?access动态删除数据表的vba代码

专业互联网培训机构——完成蜕变以后轻松拿高薪

电话+V:159999-78052 ,欢迎咨询删除数据库access所有记录vba代码,[python实用课程],[C++单片机原理],[C#、PHP网站搭建],[Nodejs小程序开发],[ios游戏开发],[安卓游戏开发],[教会用大脑用想法赚钱实现阶层跨越]

一、如何用vba代码将access数据库连接求代码?

MicrosoftOfficeAccess是由微软发布的关系数据库管理系统。它结合了MicrosoftJetDatabaseEngine和图形用户界面两项特点,是MicrosoftOffice的系统程序之一。用vba代码将access数据库连接求代码,代码如下:

SubFYMXDL()

DimXQIDAsInteger

DimJZIDAsInteger

DimFYIDAsInteger

DimFBXZAsString'分包性质

DimDWAsString

DimSARR(1To31)AsDouble

DimrstAsNewADODB.Recordset

mYpath=ThisWorkbook.Path&"\jzfydata.accdb"

SetcONn=CreateObject("ADODB.Connection")

cONn.ConnectionString="Provider=Microsoft.Ace.OleDB.12.0;DataSource="&mYpath

cONn.ConnectionString=cONn.ConnectionString&";JetOLEDB:Database"

cONn.Open

XQID=Cells(3,2).Value

JZID=Cells(3,5).Value

'清空改小区-建筑的费用明细

Sql="delete fromfymxbwhere小区ID="&XQID&"AND建筑ID="&JZID

cONn.ExecuteSql

Constkshh=7

hh=kshh

DoWhileCells(hh,3).Value>0

FYID=Cells(hh,3).Value

FBXZ=Cells(hh,11).Text

删除数据库access所有记录vba代码

Fori=1To31

SARR(i)=Round(Cells(hh,13+i-1).Value,2)

Nexti

Sql=Sql&","&SARR(i)

Nexti

Sql=Sql&")"

cONn.ExecuteSql

hh=hh+1

Loop

EndSub

二、access2010怎样删除VBA工程

在access2010创建宏里进行删除操作。

1、打开access,点击创建宏。

2、然后点击新操作的下拉按钮。

3、创建多个宏操作。

access动态删除数据表的vba代码

2020-06-1517:40·小辣椒高效Office

在access中,我们直接点击表格右键-删除即可删除表格

但是在程序中,希望动态删除数据表。可以用下面两个代码:

方法1:

DimdbAsDAO.Database

Setdb=CurrentDb

db.TableDefs.Delete"表1"'删除指定的表

db.Close:Setdb=Nothing

ExitSub


方法2:

DoCmd.DeleteObjectacTable,"表1"'执行删除操作

删除成,表1不见了。


【WINDRISES EMPLOYMENT PROGRAMMING】尊享对接老板

电话+V: 159999-78052

机构由一批拥有10年以上开发管理经验,且来自互联网或研究机构的IT精英组成,负责研究、开发教学模式和课程内容。公司具有完善的课程研发体系,一直走在整个行业发展的前端,在行业内竖立起了良好的品质口碑。

删除数据库access所有记录vba代码
发布人:kuaimeisun1202 发布时间:2024-10-01