EXCEL vba 数据库连接，va可以连接数据库并获取数据库的信息进行显示。
你好，关于VBA的应用中彭博数据库的链接 你的excel肯定有 Bbg 的Add-in 或者 API了你要在vba那里添加add in 然后 reference里添加bbg的library 然后再用vba开发bbg相关的应用
VBA 数据库 很显然，你那个SQL语句写得有点问题，STR1 与 STR2，STR3是变量，你没有分离出来变成了固定字串，如下修改看看：SQL=\"select*from IAC where OPTIONNO=\"&str1&\"and PARENTNO=\"&str2&\"and PRODUCTNO=\"
求教VBA连接SQL数据库的详细方法及解释。 1、基本上2113所有的数据库都有对应的写5261法（有些数据库是要装连接驱动4102才能连），比如\"Provider=Microsoft.Jet.OLEDB.4.0（用来连接1653access）或者provider=MSDASQL，而且每种数据库也可能会有多种连接方法（Provider意即数据库引擎），常见的有下面这些Provider 代码 ProviderADSDSOObject Active Directory ServicesMicrosoft.Jet.OLEDB.4.0 Microsoft Jet databasesMSDAIPP.DSO.1 Microsoft Internet PublishingMSDAORA Oracle databasesMSDAOSP Simple text filesMSDASQL Microsoft OLE DB provider for ODBCMSDataShape Microsoft Data ShapeMSPersist Locally saved filesSQLOLEDB Microsoft SQL Server2、参见http：//www.w3school.com.cn/ado/met_conn_open.asp#connectoptionenum3、这样就可以对book1.xlsx中的数据使用sql语法进行操作4、当你需要返回结果的，比如说你要查询数据库符合某个条件的有几条记录，或者说取出数据库中符合条件的一批记录的时候就要用数据集，单一的conn.execute只能执行操作，不能返回数据，必须配合结果集使用才可取回数据。
求助，利用excel vba提取数据库数据问题 1、汉字在前，数字在后面的情形。可以用MID，min，find三个函数来实现提取里面的数字。如图：在B2输入“=MID(A1，MIN(FIND({0，1，2，3，4，5，6，7，8，9}，A1&“0123456789”))，20)”2、把单元格里面所有的数字都提出来。可以使用宏。先打开VBA编辑器。工具—宏—visual basic 编辑器3、在编辑器里点击插入—模块。在模块那里输入如下代码：Function zzsz(xStr As String)As StringDim i As IntegerFor i=1 To Len(xStr)If IsNumeric(Mid(xStr，i，1))Then zzsz=zzsz&Mid(xStr，i，1)NextEnd Function4、回到工作表，在B2单元格那里输入“=zzsz(A2)”。就可以用VBA把A2单元格里所有的数字都提取出来了，如图所示。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 line1Str=rCell.TextFor i=1 To Len(Str)chr=Mid(Str，i，1)If(Asc(chr)《48 Or Asc(chr)》57)ThenStr=。
VBA链接数据库 VBA连接 ORACLE 需要安装 OO4O（Oracle Objects for OLE）组件。zhidao可以到 ORACLE 公司下载专：http：//www.oracle.com/technology/global/cn/software/tech/windows/ole/index.html下载以后安装就行了，请注意，属安装到你要运行VBA的计算机上。
关于一道数据库VBA编程 你好，首先，你的错误行为：dimx%，y%，z%，min%正确写法应为：dim x%，y%，z%，min%其次，你的逻辑有问题，具体你可以再测一下。下面给出一个通用的方法，以供参考：注：请把 GetMin 方法放到模块中。Public Function GetMin(ParamArray Numbers()As Variant)As VariantDim varMin As VariantDim lngLoop As LongOn Error GoTo ERR_HANDLER' 假设传入的变体数组的第一个成员最小.varMin=Numbers(LBound(Numbers))'/*从变体数组的第二个成员开始循环到最后一个成员.*/For lngLoop=LBound(Numbers)+1 To UBound(Numbers)If Numbers(lngLoop)varMin=Numbers(lngLoop)End IfNextGetMin=varMinExit FunctionERR_HANDLER：GetMin=\"ErrorEnd Function窗体代码为：Private Sub Command8_Click()Text4.SetFocusText4.Text=GetMin(Text1.Value，Text2.Value，Text3.Value)End Sub下图是三个数 7746.12、632.79、98236.578 的运行结果：
用VBA实现对数据库的读写操作 程序没问题，看起来应该是你的SQL语句有问题，也就是strSQL的内容出了问题。引用了一个没有的存储过程。你重新修改一下SQL语句应该就可以了。
