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指令 。