vba连接access数据库
❶ 如何用vba代码将access数据库连接求代码
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的系统程序之一。用vba代码将access数据库连接求代码，代码如下：
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 = Sql & "," & SARR(i)
Next i
Sql = Sql & " )"
cONn.Execute Sql
hh = hh + 1
Loop
End Sub
❷ 求一个完整的vba连接access数据库的案例
我有，全部真实数据。增加，删除，修改，查询。Excel+VBA+Access
适当收费的
❸ 利用 vba连接access数据库 完成 这个问题
程序不难. 说说想法:
1. 建立目标表aaa: ID,连接时间,断开时间, 时长. 要做的程序就是生成这个表. 以后查询一个sql就可以搞掂: 如查yourid在2012年5月1日的上网时长
select sum(时长) from aaa where id=yourid and 连接时间>#2012.5.1 0:0:0# and 断开时间< #2012.5.2 0:0:0#
2. vba程序, 主要部分:
' 使用ADO.
set acmd.activeconnection = ......
rs.open .................
do while not rs.eof
select rs!stateflag
case "连接" ' 只记下连接时间即可.
starttime= rs!regtime
case "断开" ' 和上一个连接时间一起存入新数据表. 时长计算函数自己查一下.
acmd.commandtext = "insert into aaa values('" & rs!clientid & "', #' & starttime & '#,#' & rs!regtime & "#," & date_diff("s", rs!regtime-starttime) & ")"
acmd.execute
end select
rs.movenext
loop
rs.close
❹ 如何用vba代码将access数据库连接求代码
下面这段程序是连接数据库，并将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
❺ vba怎么连接access数据库
我在EXCEL中连接ACCESS数据库查询:
data="FA0001"
mysql="selece * from 产品 where 批号=="& "'"&data & "'"
rs.Open mysql,cnn, adOpenForwardOnly, adLockReadOnly
这样就搜索不到任何信息，是不是在mysql语句只能引用参数查询时出现了什么问题啊，我一直很迷茫。
如果把它改成mysql="selece * from 产品 where 批号=‘FA0001’"就行了，可以将满足条件的给搜索出来。为什么上面的语句就是不行呢，希望高手为我解答一下，如果方便的话，麻烦发消息把把QQ留给我，以便进一步交流。
❻ 关于用EXCEL VBA 连接ACCESS数据库查询的问题
data="FA0001"
mysql="selece * from 产品 where 批号=="& "'"&data & "'"
这样就可以了
❼ VBA 连接Access数据库查询
你数据对不上是少数据吗?你的语句中用了like,但没有通配符,试试修改
sqls = "SELECT * FROM NDYX where FIELD(0) like'*" & a & "*'" '定义SQL查询命令字符串"
❽ 如何利用excel vba连接access建立简单数据库
建议你还是简单学下数据库操作语言吧，其实也很简单，就那几句。
看别人的范例可以，但是自己不先学一下，看懂了也不会用，自己学了就没必要看范例了。
❾ 我用Excel VBA 怎么无法连上Access数据库
请问你用一般的EXCEL的操作能连上Access数据库吗？
如果 能，你就把相关操作作宏记录，并作修改，转化为Excel VBA指令 。