数据库vba
① 数据库VBA代码如何编写
Suba()
Dimn%
Dimf(10)AsInteger
f(0)=0
f(1)=1
Forn=2To10
f(n)=f(n-1)+f(n-2)
Debug.Print"f("&n&")="&f(n)
Next
EndSub
② excel用VBA连到数据库读出数据
网络经验有详细的图文文章（网页链接）介绍编程语句，注意一点，不同的数据库连接代码是不同的。
另外，例子代码是把表中的数据全部读到一个表里面，你可以然后在VLOOKUP填写表的BC列。
③ VBA 从数据库读取数据写到 EXCEL
'sql完整例子
SubtestSql()
'定义连接对象
DimcnnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
'定义连接字符串内
DimconStrAsString
DimsqlstrAsString
'连接字符串-以下是连容接MSSQL数据库
conStr="Provider=sqloledb;"_
&"Server=192.168.1.121;"_
&"Database=DATABASENAME;Uid=admin;Pwd=admin;"
cnn.OpenconStr
sqlstr="SELECT*fromtablename"
rs.Opensqlstr,cnn
Range("a2").CopyFromRecordsetrs
rs.Close
cnn.Close
EndSub
④ 如何用VBA调用数据库中数据
首先在工具 引用 中引入ADO组件(全名叫Microsoft ActiveX Data什么的，很好好找)，然后声明一个连接变量 conn as ADODB.Connetion用来连接数据库，这里需要连接字符串，不知道你是什么类型数据库，所以连接字符串无法给出，再声明一个数据集变量ds as ADODB. DATASET用于执行SQL语句并返回结果集，得到结果集之后就可以访问里面的内容了
⑤ VBA 数据库
很显然，你那个SQL语句写得有点问题，STR1 与 STR2,STR3是变量，你没有分离出来变成了固定字串, 如下修改看看：
SQL = "select * from IAC where OPTIONNO=" &str1 & " and PARENTNO=" &str2 &" and PRODUCTNO=" &str3
⑥ 在excel中用vba实现与sql数据库的数据比较
先建立一个sheet通过数据页签中自其它来源,将数据库中的资料导入。然后再建立一个sheet通过数据页签中的现有连接，然后通过sql语句就可以比较那两个sheet中的内容了。以后直接点击刷新数据就可以了
⑦ vba中如何实现取sql数据库数据
会用vb数据库连接，你在vba种直接使用vb的方式即可
可参考下面的代码
－－－－－－－－－－－－－－－－－－
Public Function ConnectDB()
cs = "Provider=Microsoft.jet.OLEDB.4.0;Data Source="
'conn.ConnectionString = CS & app.Path & "\Score5.mdb"
conn.ConnectionString = cs & "F:\Scview\score4.mdb"
'cs="Provider=SQLOLEDB;Server=JF705;Database=mytest;Uid=sa;pwd=lmlm"
'cs="Provider=SQLOLEDB;Server=JF705\ETSERVER;Database=mytest;Uid=sa;pwd=lmlm"
'cs="Provider=SQLOLEDB;Server=JF705;Database=mytest;Uid=sa1;pwd=lmlm"
'conn.ConnectionString=cs
conn.Open
'response.write conn
'response.end
End Function
⑧ Excel 怎样用VBA将数据导入到SQL数据库
subtest()
Setcnn=CreateObject("ADODB.Connection")
Setrs=CreateObject("Adodb.Recordset")strCn="Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password"
cnn.OpenstrCn
SQL=""
cnn.OpenstrCn'与数据库建立连接，如果成功，返回连接对象cn
rs.OpenSQL,cn'执行strSQL所含的SQL命令，结果保存在rs记录集对象中
cnn.Close
Setcnn=Nothing
endsub
请参考
连接数据库后，通过写SQL语句实现增删改查
⑨ 求教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连接数据库
conn.ConnectionString = "Driver={sql server};server=SVCTAG-JH5JL二X;uid=lims;pwd=;database=lims" conn.Ope