请问我怎么样才能把vb的odbc和oracle相连!!

Question

This page contains sample ADO connection strings for ODBC DSN / DSN-Less,
OLE DB Providers, Remote Data Services (RDS), MS Remote, MS DataShape.Also included are ADO.NET connection strings for each .NET Managed Provider 
(SQLClient, OLEDB, and ODBC).These sample connection strings are compiled 
by Carl Prothman, a Microsoft Visual Basic MVP 
Enjoy!　 
Table of Contents
ODBC DSN Connections DSN 
File DSN
ODBC DSN-Less Connections　 ODBC Driver for AS/400 
ODBC Driver for Access 
ODBC Driver for dBASE 
ODBC Driver for Excel 
ODBC Driver for MySQL 
ODBC Driver for Oracle 
ODBC Driver for Paradox 
ODBC Driver for SQL Server 
ODBC Driver for Sybase 
ODBC Driver for Sybase SQL Anywhere 
ODBC Driver for Text 
ODBC Driver for Teradata 
ODBC Driver for Visual FoxPro
OLE DB Data Link Connections Data Link File (UDL)
OLE DB Data Provider Connections　 OLE DB Provider for AS/400 
OLE DB Provider for Active Directory Service 
OLE DB Provider for DB2 
OLD DB Provider for Internet Publishing 
OLE DB Provider for Index Server 
OLE DB Provider for Microsoft Jet 
OLE DB Provider for ODBC Databases 
OLE DB Provider for Oracle (From Microsoft) 
OLE DB Provider for Oracle (From Oracle) 
OLE DB Provider for Simple Provider 
OLE DB Provider for SQL Server 
Remote Data Service (RDS) Connections RDS Data Control - Connect Property 
RDS Data Control - URL Property
ADO URL Connections ADO Recordset
MS Remote Provider Connections MS Remote - Access (Jet) 
MS Remote - SQL Server
Data Shape Provider Connections　 MS DataShape - SQL Server
.NET Managed Provider Connections SQL Client .NET Managed Provider (System.Data.SqlClient) 
OLE DB .NET Managed Provider (System.Data.OleDb) 
ODBC .NET Managed Provider (System.Data.ODBC) 
　 
ODBC DSN Connections
Using an ODBC DSN (Data Source Name) is a two step process. 1) You must first create the DSN via the "ODBC Data Source Administrator" program 
found in your computer's Control Panel (or Administrative Tools menu in Windows 2000).
Make sure to create a SYSTEM DSN (not a USER DSN) when using ASP. 
Note: You can also create the DSN via VB code.2) Then use the following connection string - with your own DSN name of course.　 ;-)ODBC - DSN 
　 
oConn.Open "DSN=AdvWorks;" & _ 
　　　　　　　　　 "Uid=Admin;" & _ 
　　　　　　　　　 "Pwd=;
You can also create and use a File DSN. Then use the following ADO Connection string:ODBC - File DSN 
　 
oConn.Open "FILEDSN=c:\somepath\mydb.dsn;" & _ 
　　　　　　　　　 "Uid=Admin;" & _
　　　　　　　　　 "Pwd=;"For more information, see: About ODBC data sources and 
How to Use File DSNs and DSN-less ConnectionsNote: The problem with DSN is that Users can (and will) modify them (or delete by mistake), 
then your program won't work so well... So it's better to use a DSN-Less or OLE DB Provider 
connection string with a Trusted Connection if possible! 
ODBC DSN-Less Connections
ODBC Driver for AS/400 
　 
oConn.Open "Driver={Client Access ODBC Driver (32-bit)};" & _
　　　　　　　　　 "System=myAS400;" & _
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"For more information, see:　 A Fast Path to AS/400 Client/Server 
ODBC Driver for Access 
　 
For Standard Security:oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ 
　　　　　　　　　 "Dbq=c:\somepath\mydb.mdb;" & _
　　　　　　　　　 "Uid=Admin;" & _
　　　　　　　　　 "Pwd=;"If you are using a Workgroup (System database):oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ 
　　　　　　　　　 "Dbq=c:\somepath\mydb.mdb;" & _
　　　　　　　　　 "SystemDB=c:\somepath\mydb.mdw;", _
　　　　　　　　　 "admin", ""If MDB is located on a network share:oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
　　　　　　　　　 "Dbq=\\myServer\myShare\myPath\myDb.mdb;"For more information, see: Microsoft Access Driver Programming Considerations
ODBC Driver for dBASE 
　 
oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
　　　　　　　　 "DriverID=277;" & _
　　　　　　　　 "Dbq=c:\somepath;"Note: Specify the filename in the SQL statement. For example:
　　　　 oRs.Open "Select * From user.dbf", oConn, , ,adCmdTextNote: MDAC 2.1 (or greater) requires the Borland Database Engine (BDE) to update dBase DBF files. (Q238431).For more information, see: dBASE Driver Programming Considerations
ODBC Driver for Excel 
　 
oConn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
　　　　　　　　　 "DriverId=790;" & _
　　　　　　　　　 "Dbq=c:\somepath\mySpreadsheet.xls;" & _
　　　　　　　　　 "DefaultDir=c:\somepath;" For more information, see: Microsoft Excel Driver Programming Considerations
ODBC Driver for MySQL (via MyODBC) 
　 
To connect to a local databaseoConn.Open "Driver={mySQL};" & _ 
　　　　　　　　　 "Server=MyServerName;" & _
　　　　　　　　　 "Option=16834;" & _
　　　　　　　　　 "Database=mydb;"To connect to a remote databaseoConn.Open "Driver={mySQL};" & _ 
　　　　　　　　　 "Server=db1.database.com;" & _
　　　　　　　　　 "Port=3306;" & _
　　　　　　　　　 "Option=131072;" & _
　　　　　　　　　 "Stmt=;" & _
　　　　　　　　　 "Database=mydb;" & _
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"For more information, see: Programs Known to Work with MyODBC
ODBC Driver for 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;"For more information, see: Connection String Format and Attributes
ODBC Driver for Paradox 
　 
oConn.Open "Driver={Microsoft Paradox Driver (*.db)};" & _
　　　　　　　　　 "DriverID=538;" & _
　　　　　　　　　 "Fil=Paradox 5.X;" & _
　　　　　　　　　 "DefaultDir=c:\dbpath\;" & _
　　　　　　　　　 "Dbq=c:\dbpath\;" & _
　　　　　　　　　 "CollatingSequence=ASCII;" Note: MDAC 2.1 (or greater) requires the Borland Database Engine (BDE) to update Paradox ISAM fDBF files. (Q230126).For more information, see: Paradox Driver Programming Considerations

Answer 1

OLE DB Provider for Oracle (from Microsoft) 
　 
oConn.Open "Provider=msdaora;" & _
　　　　　　　　　 "Data Source=MyOracleDB;" & _ 
　　　　　　　　　 "User Id=myUsername;" & _
　　　　　　　　　 "Password=myPassword;"For more information, see: Microsoft OLE DB Provider for Oracle
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=;"
' OroConn.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)

Answer 2

先在客户端装一个oracle
然后在控制面板中的odbc数据源添加系统dsn
再在oracle中配征听
最后在oracle做一下odbc连接测试
程序就可以连接了
cn.CursorDriver = rdUseOdbc
cn.Connect = "DSN=gjj_test;UID=grdk_yh;PWD=grdk;server=gjj_test;database=gjj_test;"cn.EstablishConnection rdDriverNoPrompt
   
Set rst = cn.OpenResultset(strsql, rdOpenKeyset, rdConcurValues)