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連接