这个需要用odbc连接
Ⅱ vba连接SQL数据库方法
如下：自己改一下：
Subaa()
DimcnAsNewADODB.Connection
DimrsAsNewRecordset
Str1="select区域,内=SUM(casewhen新替换区内外='替换区内'then1else0end),外=SUM(casewhen新替换区内外='替换区外'then1else0end)from宏站groupby区域"
strcn="Provider=sqloledb;Database=test;Uid=sa;Pwd=30687724;datasource=127.0.0.1,1433;"
cn.Openstrcn
rs.OpenStr1,cn
Dimi
Fori=1Tors.Fields.Count
Cells(1,i)=rs.Fields(i-1).Name’FIELDS是从0开始的，所以这里要-1
Range("a2").CopyFromRecordsetrs
Nexti
Ⅲ vba 如何连接SQ数据库
很简单，拖一个adodc控件上去
，然后连接即可
如果没有可以去下载
Ⅳ 如何用VBA调用数据库中数据
首先在工具 引用 中引入ADO组件(全名叫Microsoft ActiveX Data什么的，很好好找)，然后声明一个连接变量 conn as ADODB.Connetion用来连接数据库，这里需要连接字符串，不知道你是什么类型数据库，所以连接字符串无法给出，再声明一个数据集变量ds as ADODB. DATASET用于执行SQL语句并返回结果集，得到结果集之后就可以访问里面的内容了
Ⅳ 求教VBA连接SQL数据库的详细方法及解释。
1、基本上所有的数据库都有对应的写法（有些数据库是要装连接驱动才能连），比如"Provider=Microsoft.Jet.OLEDB.4.0（用来连接access）或者provider =MSDASQL，而且每种数据库也可能会有多种连接方法（Provider意即数据库引擎），常见的有下面这些
Provider 代码 Provider
ADSDSOObject Active Directory Services
Microsoft.Jet.OLEDB.4.0 Microsoft Jet databases
MSDAIPP.DSO.1 Microsoft Internet Publishing
MSDAORA Oracle databases
MSDAOSP Simple text files
MSDASQL Microsoft OLE DB provider for ODBC
MSDataShape Microsoft Data Shape
MSPersist Locally saved files
SQLOLEDB Microsoft SQL Server
2、参见http://www.w3school.com.cn/ado/met_conn_open.asp#connectoptionenum
3、这样就可以对book1.xlsx中的数据使用sql语法进行操作
4、当你需要返回结果的，比如说你要查询数据库符合某个条件的有几条记录，或者说取出数据库中符合条件的一批记录的时候就要用数据集，单一的conn.execute只能执行操作，不能返回数据，必须配合结果集使用才可取回数据。
Ⅵ excel用VBA连到数据库读出数据
网络经验有详细的图文文章（网页链接）介绍编程语句，注意一点，不同的数据库连接代码是不同的。
另外，例子代码是把表中的数据全部读到一个表里面，你可以然后在VLOOKUP填写表的BC列。
Ⅶ vbaExcel连接数据库的好处
EXCEL vba 数据库连接
听语音
原创
|
浏览：7393
|
更新：2016-06-23 16:12
|
标签：EXCELVBA
Ⅷ 用vba如何连接网上的sql数据库
代码如下：有问题，发网络消息给我。
在Microsoft visual basic中，工具－引用 Microsoft ActiveX Data Objects 2...选一个高版本的
Dim conn As New ADODB.Connection
connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
conn.Open connStr '连接数据库
Dim rs As New Recordset
sql = "select * from a" '查看表a
rs.Open sql, conn, 3, 3
Do While Not rs.EOF '循环表a的内容
MsgBox (rs("field1")) '显示表中field1字段内容
rs.MoveNext
Loop
'connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
'test是数据库名
'(local)是服务器名或IP地址，可以：192.168.1.1，可以是：www.sina.com.cn
'sa是数据库用户
'123是数据库用户密码
Ⅸ VBA 连接数据库
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\123.mdb;persist security info=false"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from test"
Adodc1.Refresh
Combo2.AddItem "编号"
Combo2.AddItem "摩托车"
Combo3.AddItem "辆数"
Combo3.AddItem "车牌号"
Combo3.Text = "辆数"
Combo2.Text = "编号"
Combo1.Text = Adodc1.Recordset.Fields("编号")
Do While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields(Combo2.Text).Value
Adodc1.Recordset.MoveNext
Loop
End Sub
这是我用ADO控件连接access的代码 你看一下
Ⅹ 如何用vba连接数据库
Public Sub SynTableConfig()
Dim cnn As New ADODB.Connection, sh As Worksheet
Dim rs As New ADODB.Recordset
Dim cnnStr As String, SQL As String
'建立与SQL Server数据库服务器的连接
cnnStr = "Provider=SQLOLEDB;Initial Catalog=" & myDataBase & ";User ID=" & myname & ";Password=" & mypassword & ";Data Source=" & serverip
cnn.ConnectionString = cnnStr
cnn.Open
SQL = "select * from sys_table where id='123' order by 表名称"
Set rs = cnn.Execute(SQL)
While Not rs.EOF
.............
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub