问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

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

发布网友 发布时间:2022-04-20 23:28

我来回答

2个回答

热心网友 时间:2022-04-11 12:00

下面这段程序是连接数据库,并将excel表格内容写入数据库。代码如下:
Sub FYMXDL()
Dim XQID As Integer
Dim JZID As Integer
Dim FYID As Integer
Dim FBXZ As String '分包性质
Dim DW As String
Dim SARR(1 To 31) As Double
Dim rst As New ADODB.Recordset
mYpath = ThisWorkbook.Path & "\jzfydata.accdb"
Set cONn = CreateObject("ADODB.Connection")
cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath
cONn.ConnectionString = cONn.ConnectionString & ";Jet OLEDB:Database "
cONn.Open
XQID = Cells(3, 2).Value
JZID = Cells(3, 5).Value
'清空改小区-建筑的费用明细
Sql = "delete from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID
cONn.Execute Sql
Const kshh = 7
hh = kshh
Do While Cells(hh, 3).Value > 0
FYID = Cells(hh, 3).Value
FBXZ = Cells(hh, 11).Text
For i = 1 To 31
SARR(i) = Round(Cells(hh, 13 + i - 1).Value, 2)
Next i
Sql = "INSERT INTO fymxb(小区ID,建筑ID,费用ID,分包性质,工作量,单价合计_中标,人工费_中标, 主材费_中标, 辅材费_中标, 机械费_中标, 管理费_中标, 利润_中标,规费_中标,税金_中标,合价_中标,单价合计_标准成本,人工费_标准成本,主材费_标准成本,辅材费_标准成本,机械费_标准成本,管理费_标准成本,利润_标准成本,规费_标准成本,税金_标准成本,合价_标准成本,单价合计_实际成本,人工费_实际成本,主材费_实际成本,辅材费_实际成本,机械费_实际成本,管理费_实际成本,利润_实际成本,规费_实际成本,税金_实际成本,合价_实际成本) VALUES (" & XQID & ", " & JZID & ", " & FYID & ", '" & FBXZ & "'"
For i = 1 To 31
Sql = Sql & "," & SARR(i)
Next i
Sql = Sql & " )"

cONn.Execute Sql
hh = hh + 1
Loop
End Sub

热心网友 时间:2022-04-11 13:18

自己去excelhome里搜索,没有想不到,只有找不到的。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
怀孕甲状腺激素偏高正常吗 怀孕检查甲状腺素偏高是什么原因引起的 怀孕了甲状腺功能偏高是怎么回事 怀孕甲状腺高是什么引起的 孕中期促甲状腺激素偏高是什么原因 重钢别墅靠谱吗 重刚别墅的致命缺点 重钢别墅的优点和缺点各是什么 积食可以吃什么 车子换了点火线圈,分缸线,火花塞以后车子打不着。这是什么原因 eclipse连接access数据库 access数据库怎么连接网页 Java如何连接access数据库 已经安装好程序,怎么连接access数据库 如何进行C#连接Access数据库的细节操作 MFC中如何连接access数据库? mfc中连接access数据库的详细步骤都是什么? Java如何连接Access数据库(两种方式实例代 如何利用Access链接SQL数据库 如何使用ODBC来连接ACCESS数据库 access数据库如何连接……(C#) access数据库中各表间的连接关系是如何建立的 如何:连接到 Access 数据库中的数据 教你如何解决access数据库连接错误 如何连接access数据库 服务器的access数据库用什么工具连接数据库 求问这幅图的动漫名字,跪求!跪求!!跪求!!! 血液生化检验中S/L项是什么意思? 帮我看看尿常规检查结果。 求Adobe Premiere破解版资源 DW里面html5怎么连接access数据库 jdbc api怎么与access数据库连接 4k超高清电视机50寸的有吗,大家推荐推荐款来看看? 夏普4k50寸电视耗电量多少 海信电视4k50寸和43寸尺寸差多少 50寸4K电视机选哪个牌子好 买50寸左右4K电视,哪个好? 50寸4K电视机选哪个牌子好? 现在一台真正的4K智能50英寸电视最少需多少钱 4K王牌电视,50英寸的多少钱一台广州广东产的? 赛扬G1820核显能不能带动4K分辨率的50寸电 50吋4k超高清电视,K是什么意思? 长虹电视50寸4k电视多少瓦 小米4k50寸电视多少钱 长虹4K50寸电视机哪款性价比高 50寸或55寸4k电视选哪个牌子的比较好? 请问一般液晶电视50英寸4K超薄款的厚度是多少? 1000元50寸电视4k的什么牌子好? tcl电视50寸4k电视多少钱 一台19年50寸只能网络4K电视机,还能值多少价位?