㈠ 如何用vba將ACCESS窗體和查詢導入另一個資料庫中
Access是微軟Office組件的資料庫軟體，使用它可以進行簡單的資料庫軟體的開發。但Access的圖表功能和數據分析功能不如Excel強大，常用的做法可以將Access中的數據導入Excel中再進行處理。
代碼利用ADO組件可以方便地對各種數據進行連接和訪問。ADO組件中的Connection對象可以實現對資料庫的連接，並可以快速實現sql語句的執行，然後再用VBA將SQL查詢的結果輸出到Excel表格中。
打開VBE窗口，選擇菜單「工具」一「引用」，勾選MicrosoftActiveXDataObjects2.8Library，並單擊「確定」按鈕。
利用ADO連接資料庫ADO的全稱是ActiveXDataObject，是一個用於存取數據源的COM組件，用以快速實現各種資料庫的連接、讀取、寫入。在ADO組件中有一個Connection對象，利用Connection對象的Open方法可以實現資料庫的連接。
㈡ 如何VBA將excel數據導入sql2005 資料庫的表中。
'工具->引用->MicrosoftActiveXDateObject2.0
PublicSubSaveData()
DimCnnAsADODB.Connection
DimSQLAsString
SetCnn=NewADODB.Connection
'建立於資料庫的鏈接
'這里根據你的實際值修改ConnectionString="Driver=SQLServer;Server=伺服器名稱;Database=資料庫;Uid=賬號;Pwd=密碼;"
WithCnn
.Provider="SQLOLEDB"
.ConnectionString="Driver=SQLServer;Server=mxbsqlexpress;Database=test;Uid=sa;Pwd=xiaoma;"
.Open
EndWith
'保存數據
r=Range("A65534").End(xlUp).Row
Fori=1Tor
'拼sql
SQL="insertintoTvalues('"&Cells(i,1)&"','"&Cells(i,2)&"',"&Cells(i,3)&")"
Cnn.ExecuteSQL
Next
Cnn.Close
SetCnn=Nothing
MsgBox"保存成功"
EndSub
上面是通過VBA,插入數據到資料庫,下面是從SQL查詢Excel,然後直接insertinto到資料庫,也可以用資料庫導入向導
--查詢excel2007
select*fromOpenDataSource('Microsoft.ACE.OLEDB.12.0','DataSource=D:2007.xlsx;ExtendedProperties="Excel12.0;HDR=Yes;IMEX=1"')...[Sheet1$]
--查詢excel2003
select*fromOpenDataSource('Microsoft.Jet.OLEDB.4.0','DataSource="D:2003.xls";Extendedproperties=Excel5.0')...[Sheet1$]
㈢ VBA execl將數據導入資料庫
Sub 把Excel數據插入資料庫中()
'*******************************************
'時間：2010-06-28
'作者：bengdeng
'功能：把當前工作表的數據增加到在程序文件同一目錄下進銷存表資料庫中
'注意：要在工具/引用中引用microsoft activex date objects x.x
' 其中x.x為版本號，可能會因為你安裝的office的版本不同而不同，本例引用了2.5版
'發布：http://www.excelba.com
'*******************************************
Dim conn As ADODB.Connection
Dim WN As String
Dim TableName As String
Dim sSql As String
Dim tStr As String
'資料庫名，請自行修改，路徑與當前工作簿在同一目錄
WN = "進銷存表.mdb"
'資料庫的表名與當前工作表名一致
TableName = ActiveSheet.Name
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source=" & ThisWorkbook.Path & "\" & ActiveWorkbook.Name
conn.Open
If conn.State = adStateOpen Then
sSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Select * From [" & ActiveSheet.Name & "$]"
conn.Execute sSql
MsgBox "成功把數據插入到「" & TableName & "」中！", , "http://excelba.com"
conn.Close
End If
Set conn = Nothing
End Sub
㈣ 如何用VBA調用資料庫中數據
首先在工具 引用 中引入ADO組件(全名叫Microsoft ActiveX Data什麼的，很好好找)，然後聲明一個連接變數 conn as ADODB.Connetion用來連接資料庫，這里需要連接字元串，不知道你是什麼類型資料庫，所以連接字元串無法給出，再聲明一個數據集變數ds as ADODB. DATASET用於執行SQL語句並返回結果集，得到結果集之後就可以訪問裡面的內容了
㈤ 怎麼在VBA中把excel中的數據 寫入資料庫
excel是一個自由表，一個EXCEL的工作薄就是一個資料庫，它裡面的每一張表就是資料庫的表，你可象操作表一樣對其進行查詢等操作，它裡面的列就是資料庫的欄位，行就是記錄，因此你可以按資料庫的架構來組建數據，只是你如果你組建的數據不符合資料庫的規則，在查詢時不能得到時相應的結果。因此在EXCEL中不存在創建資料庫。但對存在的數據可以引用。當滿足條件A、B、C、D……時引用是可以的，但如果是在EXCEL中直接引用是不行的，一種是用VBA利用ADO訪問EXCEL，在查詢時把A、B、C、D幾個條件按SQL語法寫進查詢語句中，引用返回的記錄集，一種是利用函數把滿足A、B、C、D的記錄篩選出來，然後再引用。
㈥ Excel 怎樣用VBA將數據導入到SQL資料庫
subtest()
Setcnn=CreateObject("ADODB.Connection")
Setrs=CreateObject("Adodb.Recordset")strCn="Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password"
cnn.OpenstrCn
SQL=""
cnn.OpenstrCn'與資料庫建立連接，如果成功，返回連接對象cn
rs.OpenSQL,cn'執行strSQL所含的SQL命令，結果保存在rs記錄集對象中
cnn.Close
Setcnn=Nothing
endsub
請參考
連接資料庫後，通過寫SQL語句實現增刪改查
㈦ 用VBA將EXCEL內容一次性導入SQL
用VBA將EXCEL內容一次性導入SQL
'工具->引用->Microsoft ActiveX Date Object 2.0
Public Sub SaveData()
Dim Cnn As ADODB.Connection
Dim SQL As String
Set Cnn = New ADODB.Connection
'建立於資料庫的鏈接
'這里根據你的實際值修改ConnectionString = "Driver=SQL Server;Server=<a href="https://www..com/s?wd=%E6%9C%8D%E5%8A%A1%E5%99%A8%E5%90%8D%E7%A7%B0&tn=44039180_cpr&fenlei=-bIi4WUvYETgN-" target="_blank" class="-highlight">伺服器名稱</a>;Database=資料庫;Uid=賬號;Pwd=密碼;"
With Cnn
.Provider = "SQLOLEDB"
.ConnectionString = "Driver=SQL Server;Server=mxb\sqlexpress;Database=test;Uid=sa;Pwd=xiaoma;"
.Open
End With
'保存數據
r = Range("A65534").End(xlUp).Row
For i = 1 To r
'拼sql
SQL = "insert into T values('" & Cells(i, 1) & "','" & Cells(i, 2) & "'," & Cells(i, 3) & ")"
Cnn.Execute SQL
Next
Cnn.Close
Set Cnn = Nothing
MsgBox "保存成功"
End Sub
上面是通過VBA,插入數據到資料庫,下面是從SQL查詢Excel,然後直接insert into到資料庫,也可以用資料庫導入向導
--查詢excel2007
select * from OpenDataSource('Microsoft.ACE.OLEDB.12.0', 'Data Source=D:\2007.xlsx;Extended Properties="Excel 12.0;HDR=Yes;IMEX=1"')...[Sheet1$]
--查詢excel2003
select * from OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="D:\2003.xls";Extended properties=Excel 5.0')...[Sheet1$]
㈧ ABV是什麼怎麼利用VBA給資料庫導大型數據
1、把開excel，點擊工具-->宏-->錄制新宏2、點擊
數據-->導入外部數據-->新建資料庫查詢，然後根據向導選擇oracle驅動，最後完成向導3、點停止宏，再點
工具-->宏-->宏...
在對話框里選擇剛才錄制的宏，點編輯，
這樣就可以看到連接字元串了。
㈨ 請教怎麼在access中用VBA導入excel數據到access庫
1、首先為導入文件設置一個按鈕：（更新數據）
