‘壹’ 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")