『壹』 VBA鏈接資料庫
VBA連接 ORACLE 需要安裝 OO4O （Oracle Objects for OLE）組件。
可以到 ORACLE 公司下載：
http://www.oracle.com/technology/global/cn/software/tech/windows/ole/index.html
下載以後安裝就行了，請注意，安裝到你要運行VBA的計算機上。
『貳』 求助，利用excel vba提取資料庫數據問題
1、漢字在前，數字在後面的情形。可以用MID，min， find三個函數來實現提取裡面的數字。如圖：在B2輸入「=MID(A1，MIN(FIND({0，1，2，3，4，5，6，7，8，9}，A1&「0123456789」))，20)」
Excel怎麼只提取表格中的數字
5、指定從第幾個數組提取開始。也就是說在不連續的那些數字中，從第幾次出現的數組開始提取。同樣在模塊那裡輸入如下代碼：
Function GetNums(rCell As Range， num As Integer) As StringDim Arr1() As String， Arr2() As StringDim chr As String， Str As StringDim i As Integer， j As IntegerOn Error GoTo line1
Str = rCell.TextFor i = 1 To Len(Str)chr = Mid(Str， i， 1)If (Asc(chr) 《 48 Or Asc(chr) 》 57) ThenStr = Replace(Str， chr， 「 」)End IfNext
Arr1 = Split(Trim(Str))ReDim Arr2(UBound(Arr1))For i = 0 To UBound(Arr1)If Arr1(i) 《》 「」 ThenArr2(j) = Arr1(i)j = j + 1End IfNext
GetNums = IIf(num 《= j， Arr2(num - 1)， 「」)line1:End Function
『叄』 VBA搜索ACCESS資料庫搜索不到數據的問題
對於你這樣的問題， 我懷疑Cells(i, 1)數據包含了空格，建議在前面加這樣的代碼Trim(Cells(i, 1)) 也許能幫助你
如果問題解決了請給分咯，我開發VBA 3年多了
『肆』 6.1.3 Excel VBA資料庫的索引
在資料庫管理系統中.索引提供了一種無需掃描整張表就能實現對數據的快速查詢的途徑，使用索引可以優化查詢。這就像為了找到某本書中一個句子可以逐頁搜索，也可以通過使用該書的月錄.快速定位到要搜索的主題然後找到需要的句子。顯然後一種方法操作起來更快。在資料庫中，表的索引與附在一本書後面的索引非常相似.因此為數據衰建立索引是加快查詢速度的有效手段.用戶可以根據應用環境的需要，在基本表上建立一個或者多個索引，以提供多種存取路徑，加快查找速度。索引一般由資料庫管理員或者表的擁有者(創建該表的用戶)進行創建。系統在存儲數據時會自動選擇合適的索引作為存取路徑，用戶無法手工選擇索引。索引也存儲數據.只不過索引中的數據反映的不是實際仿息，而是方便搜索用的路徑信息。 .索引有兩種類型.分別是聚簇索引和非聚簇索引。聚簇索引和目錄表非常相似，記錄的索引順序與物理順序相同。在非聚簇索引中，記錄的物理順序與邏輯順序沒有必然的聯系。通常情況下使用的是聚簇索引，但是每個表只能有一個聚簇索引。
『伍』 如何用VBA調用資料庫中數據
首先在工具 引用 中引入ADO組件(全名叫Microsoft ActiveX Data什麼的，很好好找)，然後聲明一個連接變數 conn as ADODB.Connetion用來連接資料庫，這里需要連接字元串，不知道你是什麼類型資料庫，所以連接字元串無法給出，再聲明一個數據集變數ds as ADODB. DATASET用於執行SQL語句並返回結果集，得到結果集之後就可以訪問裡面的內容了
『陸』 利用VBA從Access資料庫中查找數據
打開VBA編輯器的兩種方式：
Excel → 開發工具 → Visual Basic：打開VBE後，點擊插入，選擇模塊，就可以在該項目下新建一個空白模塊。
Excel → 開發工具 → 插入 → 控制項 → 右鍵控制項 → 指定宏：可以直接將宏綁定到控制項上，然後進行編輯。
進行編寫代碼前的准備工作：
Visual Basic → 工具 → 引用：引用 Microsoft ActiveX Data Objects 2.x Library，否則運行代碼會報「用戶定義類型未定義」提示。
Excel中用VBA根據輸入的日期從Access資料庫中提取相應的數據並插入到Excel表中：
『柒』 vba如何調用Access的查詢,並顯示查詢結果
1.點擊：創建--宏。打開宏編輯器。
『捌』 如何用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
『玖』 VBA 資料庫
很顯然，你那個SQL語句寫得有點問題，STR1 與 STR2,STR3是變數，你沒有分離出來變成了固定字串, 如下修改看看：
SQL = "select * from IAC where OPTIONNO=" &str1 & " and PARENTNO=" &str2 &" and PRODUCTNO=" &str3
『拾』 Access vba 資料庫查找
Strwhere = Strwhere & "(BasicInformationofParts.Part_No) like " & Me.P1.Value
改為 Strwhere = Strwhere & "(BasicInformationofParts.Part_No) like '" & Me.P1.Value & "'"
PND=dlookup("pname","part_name_discription")