vba数据库连接

Ⅰ vba 建立新的数据库连接的问题

conn.Open "provider=Microsoft.jet.OLEDB.4.0;data source="H:\vba教学视频\兰色幻想vba从入门到进阶80集完整版\VBA80集第71集：数据库的基本操作\VBA80集第71集：数据库的基本操作\VBA80集第71集：数据库的基本操作\Database\Accessdata.mdb""

这句话错了，“”里面不能再使用“”的，只能这样改

conn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & "H:\vba教学视频\兰色幻想vba从入门到进阶80集完整版\VBA80集第71集：数据库的基本操作\VBA80集第71集：数据库的基本操作\VBA80集第71集：数据库的基本操作\Database\Accessdata.mdb"

分开两个字符串，再连接一起

Ⅱ VBA怎么连接Access数据库

有个连oracle的你可以参考一下：
Set conn = CreateObject("ADODB.connection")
conn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=password;Persist Security Info=True;User ID=ora;Data Source=test;Max Pool Size=75; Min Pool Size=5"
conn.Open
Set rs = CreateObject("ADODB.RecordSet")
rs.Open "Select * from test.abc", conn, 1, 1
连接oracle数据库连接串就是这样了。当然oracle客户端和监听是不可少的，access数据库大同小异吧。

Ⅲ VBA链接数据库

VBA连接 ORACLE 需要安装复 OO4O （Oracle Objects for OLE）组件。制
可以到 ORACLE 公司下载：
http://www.oracle.com/technology/global/cn/software/tech/windows/ole/index.html
下载以后安装就行了，请注意，安装到你要运行VBA的计算机上。

Ⅳ 用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连接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只能执行操作，不能返回数据，必须配合结果集使用才可取回数据。

Ⅵ 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 连接数据库

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的代码 你看一下

Ⅷ excel中vba怎么连接mysql数据库并展示数据

可以使用抄袭以下代码在EXCEL上使用VBA连接MYSQL数据库 ：

DimstrconntAsString
strconnt=""
Setconnt=NewADODB.Connection
Dimsevip,Db,user,pwdAsString
'设服务器地址、所连数据，及登录用户密码
sevip="localhost"
Db=“test"
user="root"
pwd="123456"
strconnt="DRIVER={MySqlODBC5.3UnicodeDriver};SERVER="&sevip&";Database="&Db&";Uid="&user&";Pwd="&pwd&";Stmt=setnamesGBK"
connt.ConnectionString=strconnt
connt.Open

Ⅸ 如何用vba连接数据库

conn.ConnectionString = "Driver={sql server};server=SVCTAG-JH5JL二X;uid=lims;pwd=;database=lims" conn.Ope

Ⅹ vba连接mysql数据库。

这个需要用odbc连接