[求助]请问怎么在vba中建立一个odbc连接，使得可以在excel中直接查询出数据库中的表

gly1126

试一下这个

sub take()
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DRIVER={Microsoft ODBC for Oracle};UID=unarthur;PWD=mypassord;SERVER=gbs;", Destination:=ActiveCell)
.CommandText = "select * from emp where deptno=10"
.SavePassword = True
.RefreshStyle = xlInsertDeleteCells
.Refresh BackgroundQuery:=False
End With
end sub

UNARTHUR

不行，没有反应。我的odbc已经建立了的

爱歌学习

啊？里面oracle的几段都没用啊？ For the current Oracle ODBC Driver from Microsoft: oConn.Open "Driver={Microsoft ODBC for Oracle};" & _ 　　　　　　　　　 "Server=OracleServer.world;" & _ 　　　　　　　　　 "Uid=myUsername;" & _ 　　　　　　　　　 "Pwd=myPassword;" For the older Oracle ODBC Driver from Microsoft: oConn.Open "Driver={Microsoft ODBC Driver for Oracle};" & _ 　　　　　　　　　 "ConnectString=OracleServer.world;" & _ 　　　　　　　　　 "Uid=myUsername;" & _ 　　　　　　　　　 "Pwd=myPassword;" OLE DB Provider for Oracle (from Microsoft) 　 oConn.Open "Provider=msdaora;" & _ 　　　　　　　　　 "Data Source=MyOracleDB;" & _ 　　　　　　　　　 "User Id=myUsername;" & _ 　　　　　　　　　 "Password=myPassword;" OLE DB Provider for Oracle (from Oracle) 　 For Standard Security: oConn.Open "Provider=OraOLEDB.Oracle;" & _ 　　　　　　　　　 "Data Source=MyOracleDB;" & _ 　　　　　　　　　 "User Id=myUsername;" & _ 　　　　　　　　　 "Password=myPassword;" For a Trusted Connection: oConn.Open "Provider=OraOLEDB.Oracle;" & _ 　　　　　　　　　 "Data Source=MyOracleDB;" & _ 　　　　　　　　　 "User Id=/;" & _ 　　　　　　　　　 "Password=;" ' Or oConn.Open "Provider=OraOLEDB.Oracle;" & _ 　　　　　　　　　 "Data Source=MyOracleDB;" & _ 　　　　　　　　　 "OSAuthent=1;" 　 Note: "Data Source=" must be set to the appropriate Net8 name which is known to the naming method in use. For example, for Local Naming, it is the alias in the tnsnames.ora file; for Oracle Names, it is the Net8 Service Name. For more information, see: Connecting to an Oracle Database (Note, if you get a Logon dialog, then click Cancel, then perform a one-time free signup with Oracle's TechNet system) 看来不实际试一下始终是隔岸观火啊........[em06]

[此贴子已经被作者于2006-5-15 17:24:20编辑过]

welcpa

[em49][em49][em49] 支持和研究中！

gly1126

前一个是用在客户端的excel中,这一个用在服务器端excel中,gbs为oracle的服务名

我天天都在用oracle和查询,这是我自己写的加载宏中的一段代码,已测试过,单机XP+excel 2003,服务器2000+excel 2003

sub take()
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DRIVER={ORACLE ODBC DRIVER};SERVER=gbs;UID=unarthur;pwd=mypassword;DBQ=gbs;DBA=W;APA=T;FEN=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;PFC=10;TLO=O;", Destination:=ActiveCell)
.CommandText = "select * from emp where deptno=10"
.SavePassword = True
.RefreshStyle = xlInsertDeleteCells
.Refresh BackgroundQuery:=False
End With
end sub

爱痕

我都看晕了！太感谢了！

小蚁雄兵

记号一下

qy0027

经典

向您问好

向爱哥学习!敬礼

   这个问题太深奥，目前也暂时没用到，我还是留以后学习吧

shengjiri

爱歌老师发的东西好全，收藏了