Criando Várias Conexões

====================ODBC DNS Connections=====================DNS Conn.Open "DSN=SampleDB;Uid=Admin;Pwd=;" File DNS Conn.Open "FILEDSN=\\path\\mydb.dsn;Uid=Admin;Pwd=;" ODBC DNS-Less ConnectionsODBC Driver for AS/400 Conn.Open "Driver={Client Access ODBC Driver (32-bit)}; System=myAS400;Uid=myUsername;Pwd=myPassword;" ODBC Driver for dBASE Conn.Open "Driver={Microsoft dBASE Driver (.dbf)};DriverID=277;Dbq=\\somepath;"rs.Open "SELECT FROM USER.DBF", Conn ODBC Driver for MS Access Conn.Open "Driver={Microsoft Access Driver (.mdb)};" & _                "Dbq=\\path\\mydb.mdb;Uid=Admin;Pwd=;"Using a Workgroup (System database)Conn.Open "Driver={Microsoft Access Driver (.mdb)};" & _                "Dbq=\\path\\mydb.mdb;SystemDB=\\somepath\\mydb.mdw;", "admin","" ODBC Driver for MS Excel Conn.Open "Driver={Microsoft Excel Driver (.xls)};DriverId=790;" & _                "Dbq=\\somepath\\Sheet1.xls;DefaultDir=\\somepath;"ODBC Driver for MySQL (MyODBC) Conn.Open "Driver={mySQL};Server=MyServerName;Option=16834;Database=mydb;" ODBC Driver for Oracle Conn.Open "Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;" & _                "Uid=myUsername;Pwd=myPassword;" ODBC Driver for Paradox Conn.Open "Driver={Microsoft Paradox Driver (.db)};DriverID=538;Fil=Paradox 5.X;" & _                "DefaultDir=c:\\dbpath\\;Dbq=c:\\dbpath\\;CollatingSequence=ASCII;" ODBC Driver for SQL Server Conn.Open "Driver={SQL Server};Server=MyServerName;Database=myDatabaseName;" & _                "Uid=myUsername;Pwd=myPasswordFor trusted connectionConn.Open "Driver={SQL Server};Server=MyServerName;Database=myDatabaseName;" & _                "Trusted_Connection=yes;"To Prompt user for username and passwordConn.Properties("Prompt") = adPromptAlwaysConn.Open "Driver={SQL Server}; Server=ServerName; DataBase=DatabaseName;" ODBC Driver for Sybase Sybase System 11 ODBC DriverConn.Open "Driver={SYBASE SYSTEM 11}; Srvr=myServerName;" & _                "Uid=myUsername; Pwd=myPassword;"Intersolv 3.10 Sybase ODBC DriverConn.Open "Driver={INTERSOLV 3.10 32-BIT Sybase}; Srvr=myServerName;" & _                "Uid=myUsername; Pwd=myPassword;" ODBC Driver for Sybase SQL Anywhere Conn.Open "ODBC; Driver=Sybase SQL Anywhere 5.0;" & _                "DefaultDir=c:\\dbpath\\; Dbf=c:\\sqlany50\\mydb.db;" & _                "Uid=myUsername; Pwd=myPassword; Dsn="""";" ODBC Driver for Text Conn.Open "Driver={Microsoft Text Driver (.txt; .csv)};" & _                "Dbq=\\somepath\\; Extensions=asc,csv,tab,txt; Persist Security Info=False"rs.Open "SELECT FROM CUSTOMER.CSV", Conn ODBC Driver for Visual FoxPro With a database containerConn.Open "Driver={Microsoft Visual FoxPro Driver}; SourceType=DBC;" & _                "SourceDB=\\somepath\\mySourceDb.dbc; Exclusive=No;"Without a database container (Free Table Directory)Conn.Open "Driver={Microsoft Visual FoxPro Driver}; SourceType=DBF;" & _                "SourceDB=\\somepath\\mySourceDbFolder; Exclusive=No;"============================OLE DB Provider Connections============================OLE DB Provider for AS/400 Conn.Open "Provider=IBMDA400; Data source=myAS400;" & _                "User Id=myUsername; Password=myPassword;" OLE DB Provider for Active Directory Service Conn.Open "Provider=ADSDSOObject; User Id=myUsername; Password=myPassword;" OLE DB Provider for DB2 Conn.Open = "Provider=DB2OLEDB;" & _                    "Network Transport Library=TCPIP; Network Address=MyServer;" & _                    "Package Collection=MyPackage; Host CCSID=1142; Initial Catalog=MyDB;" & _                    "User ID=MyUsername; Password=MyPassword;" OLE DB Provider for Index Server Conn.Open "Provider=msidxs; Data source=MyCatalog;" OLE DB Provider for Internet Publishing Conn.Open "Provider=MSDAIPP.DSO; Data Source=http://mywebsite/myDir;" & _                "User Id=myUsername; Password=myPassword;" OLE DB Provider for Microsoft Jet Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\somepath\\myDb.mdb;" & _                "User Id=admin; Password=;"Using a Workgroup (System database)Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\somepath\\mydb.mdb;" & _                "Jet OLEDB:System Database=MySystem.mdw;", "admin", ""MDB has a database passwordConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\somepath\\mydb.mdb;" & _                "Jet OLEDB:Database Password=MyDbPassword;", "admin", ""Open ExcelConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\somepath\\Sheet1.xls;" & _                "Extended Properties=""Excel 8.0;HDR=Yes;"";" OLE DB Provider for ODBC Databases MS Access (Jet)Conn.Open "Provider=MSDASQL; Driver={Microsoft Access Driver (.mdb)};" & _                "Dbq=\\somepath\\mydb.mdb; Uid=myUsername; Pwd=myPassword;"SQL ServerConn.Open "Provider=MSDASQL; Driver={SQL Server};" & _                "Server=myServerName; Database=myDatabaseName;" & _                "Uid=myUsername; Pwd=myPassword;" OLE DB Provider for Oracle from MicrosoftConn.Open "Provider=msdaora; Data Source=MyOracleDB;" & _                "User Id=myUsername; Password=myPassword;"from OracleConn.Open "Provider=OraOLEDB.Oracle; Data Source=MyOracleDB;" & _                "User Id=myUsername; Password=myPassword;"For a Trusted ConnectionConn.Open "Provider=OraOLEDB.Oracle; Data Source=MyOracleDB; User Id=/; Password=;"Conn.Open "Provider=OraOLEDB.Oracle; Data Source=MyOracleDB; OSAuthent=1;" OLE DB Provider for Simple Provider Conn.Open "Provider=MSDAOSP; Data Source=MSXML2.DSOControl.2.6;"rs.Open "http://WebServer/VirtualRoot/MyXMLFile.xml", Conn OLE DB Provider for SQL Server Conn.Open "Provider=sqloledb; Data Source=ServerName; Initial Catalog=DatabaseName;" & _                "User Id=myUsername; Password=myPassword;"For a Trusted ConnectionConn.Open "Provider=sqloledb; Data Source=ServerName; Initial Catalog=DatabaseName;" & _                "Integrated Security=SSPI;"Connect to a "Named Instance" (SQL Server 2000)Conn.Open "Provider=sqloledb; Data Source=ServerName\\Inst2; Initial Catalog=DatabaseName;" & _                "User Id=myUsername; Password=myPassword;"Prompt for username and passwordConn.Provider = "sqloledb"Conn.Properties("Prompt") = adPromptAlwaysConn.Open "Data Source=ServerName; Initial Catalog=DatabaseName;"To connect via an IP addressConn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _                "Data Source=xxx.xxx.xxx.xxx,1433; Initial Catalog=DatabaseName;" & _                "User ID=myUsername; Password=myPassword;" ==================================Remote OLE DB Provider Connections================================== MS Remote - Access (Jet) ODBC DSNConn.Open "Provider=MS Remote; Remote Server=http://ServerName; Remote Provider=MSDASQL; DSN=AdvWorks; Uid=myUsername; Pwd=myPassword;"OLE DB ProviderConn.Open "Provider=MS Remote; Remote Server=http://ServerName; Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\path\\mydb.mdb;", "admin", ""  MS Remote - SQL Server ODBC DSNConn.Open "Provider=MS Remote; Remote Server=http://server; Remote Provider=MSDASQL; DSN=DatabaseName; Uid=Username; Pwd=Password;"OLE DB ProviderConn.Open "Provider=MS Remote; Remote Server=http://ServerName; Remote Provider=SQLOLEDB; Data Source=ServerName; Initial Catalog=DatabaseName; User ID=Username; Password=Password;"  =================================.NET Managed Provider Connections================================= SQL Client .NET Managed Provider (System.Data.SqlClient) Dim Conn As SqlClient.SqlConnectionDim ConnStr As StringConnStr = "Data Source=(local); Initial Catalog=NorthWind; Integrated Security=SSPI; Pooling=True; Min Pool Size=10; Max Pool Size=50; Connection Lifetime=30; Connection Reset=True; Enlist=True;"Conn = New SqlClient.SqlConnection(ConnStr)Conn.Open()  OLE DB .NET Managed Provider (System.Data.OleDb) Dim Conn As OleDb.OleDbConnectionDim ConnStr As StringConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=nwind.mdb; User ID=Admin; Password=;"Conn = New OleDb.OleDbConnection(ConnStr)Conn.Open()