㈠ 如何用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、首先为导入文件设置一个按钮：（更新数据）
