DHTML - Construindo aplicações com o Visual Basic

Relação de strings para Conexões ADO

Conexão ODBC usando um DSN (Data Source Name)

DSN

oConn.Open "DSN=teste;" & _
"UID=Admin;" & _
"PWD=;"

Obs: A partir da MDAC 2.1 você deve informar o DSN , o UID e a PWD na string de conexão.

Usando um Arquivo DSN (File DSN)

                   oConn.Open "FILEDSN=\teste\db.dsn;" & _
                   "UID=Admin;" & _
                   "PWD=;"

Conexões ODBC sem DSN

Driver ODBC para Access

Segurança Padrão:

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
                   "Dbq=\teste\db.mdb;" & _
                   "Uid=Admin;" & _
                   "Pwd=;"

Se estiver usando o sistema de contas (System database):

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
                   "Dbq=\teste\db.mdb;" & _
                   "SystemDB=\teste\db.mdw;", _
                   "admin", ""

Para maiores informações consulte: Microsoft Access Driver Programming Considerations

Driver ODBC para dBASE

oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
"DriverID=277;" & _
"Dbq=\teste\Db.dbf;"

Note: Para acessar arquivos dBase em um computador Desktop usando os Drivers Database é preciso instalar o Borland Database engine.

Para maiores informações consulte : dBASE Driver Programming Considerations

Driver ODBC para Excel

Para Excel 97 / 2000:

oConn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
                   "DriverId=790;" & _
                   "DBQ=\teste\teste.xls;" & _
                   "DefaultDir=\teste;"

Para maiores informações consulte: Microsoft Excel Driver Programming Considerations

Driver ODBC para Oracle

Para o driver atual - Oracle ODBC Driver da Microsoft:

oConn.Open "Driver={Microsoft ODBC for Oracle};" & _
                   "Server=OracleServer.world;" & _
                   "Uid=demo;" & _
                   "Pwd=demo;"

Para o driver antigo - Oracle ODBC Driver da Microsoft:

oConn.Open "Driver={Microsoft ODBC Driver for Oracle};" & _
                   "ConnectString=OracleServer.world;" & _
                   "Uid=demo;" & _
                   "Pwd=demo;"

Para maiores informações: Connection String Format and Attributes

Driver ODBC para SQL Server

Segurança Padrão:

oConn.Open "Driver={SQL Server};" & _
                   "Server=Aguia;" & _
                  "Database=pubs;" & _
                  "Uid=sa;" & _
                   "Pwd=;"

Conexão de segurança :

oConn.Open "Driver={SQL Server};" & _
                   "Server=Aguia;" & _
                   "Database=pubs;" & _
                   "Uid=;" & _
                   "Pwd=;"

Para solicitar nome do usuário e senha:

oConn.Properties("Prompt") = adPromptAlways
oConn.Open "Driver={SQL Server};" & _
                   "Server=Aguia;" & _
                   "DataBase=pubs;"

Para maiores informações consulte: SQLDriverConnect (ODBC)

Driver ODBC para Texto

oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
                   "Dbq=\teste\;" & _
                   "Extensions=asc,csv,tab,txt;" & _
                   "Persist Security Info=False"

Obs: Informe o nome do arquivo no comando SQL. Exemplo:

oRs.Open "Select * From clientes.csv", _
               oConn, adOpenStatic, adLockReadOnly, adCmdText

Para maiores informações consulte: Text File Driver Programming Considerations

Provedor OLE DB para o Microsoft Jet

Para segurança Padrão:

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=\teste\teste.mdb;" & _
                   "User Id=admin;" & _
                   "Password=;"

Usando o sistema de contas (system database):

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=\teste\teste.mdb;" & _
                   "Jet OLEDB:System Database=system.mdw;", _
                   "admin", ""

Obs: Você deve converter o MDB e o MDW para o formato compatível ao usar o Provedor OLE DB 4.0.

Se o banco de dados ( MDB) tiver uma senha:

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=\teste\teste.mdb;" & _
                   "Jet OLEDB:Database Password=Senha;", _
                   "admin", ""

Para maiores informações veja: OLE DB Provider for Microsoft Jet

(*) - Abrindo uma planilha do Excel

Você pode abrir um planilha Excel usando o provedor - "OLE DB Provider for Microsoft Jet" , Vejamos um exemplo:

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\teste\teste.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"

HDR=Yes significa que há um cabeçalho na linha da célula, e o provedor não irá incluir a primeira linha da seleção no recordset. Se definir "HDR=No" então o provedor irá incluir a primeira linha da célula no recordset.

Provedor OLE DB para Banco de dados ODBC

Para o Access:

oConn.Open "Provider=MSDASQL;" & _
                   "Driver={Microsoft Access Driver (*.mdb)};" & _
                   "Dbq=\teste\teste.mdb;" & _
                   "Uid=Admin;" & _
                   "Pwd=;"

Para o SQL Server:

oConn.Open "Provider=MSDASQL;" & _
                   "Driver={SQL Server};" & _
                   "Server=teste;" & _
                   "Database=pubs;" & _
                   "Uid=sa;" & _
                   "Pwd=;"

Para maiores informações veja: Microsoft OLE DB Provider for ODBC

Provedor OLE DB para Oracle

oConn.Open "Provider=msdaora;" & _
                   "Data Source=OracleServer.world;" & _
                   "User Id=sa;" & _
                   "Password=;"

Para maiores informações veja: Microsoft OLE DB Provider for Oracle

Provedor OLE DB para SQL Server

Segurança Padrão:

oConn.Open "Provider=sqloledb;" & _
                   "Network Library=DBMSSOCN;" & _
                   "Data Source=teste;" & _
                   "Initial Catalog=pubs;" & _
                   "User Id=sa;" & _
                   "Password=;"

Para uma conexão segura:

oConn.Open "Provider=sqloledb;" & _
                   "Network Library=DBMSSOCN;" & _
                   "Data Source=teste;" & _
                   "Initial Catalog=pubs;" & _
                   "Trusted_Connection=yes;"

Solicitando o nome e a senha do usuário:

oConn.Provider = "sqloledb"
oConn.Properties("Prompt") = adPromptAlways
oConn.Open "Network Library=DBMSSOCN;" & _
"Data Source=teste;" & _
"Initial Catalog=pubs;"

Nota: "Data Source" é o nome do servidor onde o SQL Server está localizado.

Para maiores informações veja: Microsoft OLE DB Provider for SQL Server

Provedor OLE DB para Conexões Remotas

As strings de conexões dadas a seguir podem ser usadas um provedor remoto Microsoft ( MS Remote). Este provedor informa a ADo para se comunicar com o servidor remoto (via RDS Datafactory) e a usar o provedor remoto que esta instalado no servidor remoto.

MS Remote - Access (Jet)

Usando um DSN ODBC na máquina remota:

oConn.Open "Provider=MS Remote;" & _
                   "Remote Server=http://teste;" & _
                   "Remote Provider=MSDASQL;" & _
                   "DSN=AdvWorks;" & _
                   "Uid=admin;" & _
                   "Pwd=;"

Usando um Provedor OLE DB Provider na máquina remota:

oConn.Open "Provider=MS Remote;" &_
                   "Remote Server=http://carl2;" & _
                   "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=\somepath\mydb.mdb;", _
                   "admin", ""

MS Remote - SQL Server

Usando um DSN ODBC na máquina remota:

oConn.Open "Provider=MS Remote;" & _
                   "Remote Server=http://teste;" & _
                   "Remote Provider=MSDASQL;" & _
                   "Network Library=DBMSSOCN;" & _
                   "DSN=Pubs;" & _
                   "Uid=sa;" & _
                   "Pwd=;"

Usando um Provedor OLE DB Provider na máquina remota:

oConn.Open "Provider=MS Remote;" & _
                   "Remote Server=http://teste;" & _
                   "Remote Provider=SQLOLEDB;" & _
                  "Network Library=DBMSSOCN;" & _
                  "Data Source=teste;" & _
                  "Initial Catalog=pubs;" & _
                  "User ID=sa;" & _
                   "Password=;"

Para maiores informações veja: Microsoft OLE DB Remoting Provider

Acabou ... ;-)