Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

296 - Listado de cadenas de conexión para Ado

Lista de algunos Connectionstring para acceder a base de datos y archivos de datos mediante Ado

Aqui se listan algunas cadenas de conexión, y también podés descargar este archivo enviado por Luis Nuñez, que contiene ejemplos de cadenas de conexion de ADO para ODBC DSN / DSN-Less, OLE DB Proveedores, Remote Data Services (RDS), MS Remote, y MS DataShape.

Tambien estan incluidas cadenas de conexion para ADO.NET y proveedores como MySQL, ODBC, OLE DB, Oracle, y SQL Server .NET Data Providers

Descargar listado

Microsoft Access

Conecta a una base de datos de tipo Access mediante OleDB

  Dim path_Bd As String
    
  path_Bd = App.Path & "\Nombre.mdb"
    
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
          path_Bd & ";" & "User Id=admin;Password="

Conecta a una base de datos Microsoft Access mediante ODBC. Sin password y sin contraseña

  cnn.Open "driver={Microsoft Access Driver (*.mdb)};" & _
          "dbq=c:\LaBase.mdb;uid=admin;pwd="

Conecta mediante ODBC en modo exclusivo

  cnn.open "Driver={Microsoft Access Driver (*.mdb)};" & _
          "Dbq=C:\Labase.mdb;Exclusive=1;Uid=admin;Pwd=;"

Para .net mediante OleDB y con Password

    cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\LaBase.mdb;" & _
            "Jet OLEDB:Database Password=Password;"

Conecta a una base de datos Microsoft Access mediante OLEDB, usando un Grupo de trabajo

  Dim path_Bd As String
    
  path_Bd = App.Path & "\Nombre.mdb"
    
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_Bd & ";" & _
          "Jet OLEDB:System Database=c:\Archivo.mdw", "User", "Password"

Igual al anterior pero usando ODBC

  Dim path_Bd As String
    
  path_Bd = "c:\carpta\LaBase.mdb"
    
  cnn.Open "driver={Microsoft Access Driver (*.mdb)};" & _
          "dbq=" & path_Bd & ";" & _
          "systemdb=c:\Archivo.mdw;", _
          "usuario", " password "

Microsoft Sql Server

Cadena de conexión usando OLEDB

 cnn.Open "Provider=sqloledb;" & _
    "Data Source=Nombre_del_Servidor;" & _
    "Initial Catalog=Nombre_de_la_base;" & _
    "User Id=USUARIO;Password=PASSWORD"

Usando ODBC

  cnn.Open "driver={SQL Server};" & _
          "server=NOMBRE_DEL_SERVIDOR;database=LA_BASE;uid=USUARIO;pwd=PASSWORD"

MySql

A un servidor MySql Server mediante OLEDB en .NET

  cnn.Open "Provider=MySQLProv;" & "Data Source=base;" & _
          "User Id=USUARIO;Password=PASSWORD"

A una base Mysql remota mediante ODBC

  cnn.Open "Driver={MySQL ODBC 3.51 Driver};" & _
          "Server=data.domain.com;" & _
          "Port=3306;Database=LaBase;" & _
          "User=USUARIO;Password=PASSWORD;Option=3;"

Base de datos local mediante ODBC

  cnn.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;" & _
          "Database=LaBase;User=Usuario;Password=Password;Option=3;"

Cadenas de conexión para conectar a Microsoft Excel

A un archivo Excel mediante OLEDB

  conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & path_Bd & _
                ";Extended Properties=""Excel 8.0;HDR=Yes;"""

Ejemplo : Leer hoja de Excel con ADO

A Excel Mediante ODBC

  cnn.Open "driver={Microsoft Excel Driver (*.xls)};" & _
          "driverid=790;dbq=c:\libro.xls;" & _
          "defaultdir=c:\lacarpeta"

ConnectionString para archivos de texto ( txt, Csv etc..)

ODBC

   cnn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
          "DBQ=" & App.Path & ";", "", ""

	 'Ejemplo para cargar un recordset

  'El archivo de texto en la cláusula From
   rs.Open "select * from [ElArchivo#txt]", conn, adOpenStatic, _
            adLockReadOnly, adCmdText

Mediante OLEDB

 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=Path_De_La_carpeta;" & _
         "Extended Properties=""text;HDR=Yes;FMT=Delimited"""
    
 rst.Open "select * from ElArchivo.csv", cnn, _
          adOpenStatic, adLockReadOnly, adCmdText

Ejemplos :

Leer archivo de texto y cargarlo en un DataGrid

FoxPro - Dbf

Conectar por ODBC

  Coneccion = "Driver={Microsoft dBASE Driver (*.dbf)};" & _
              "DriverID=277;Dbq=c:\Path_de_carpeta;"

OLEDB

  Connection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=c:\La_Carpeta;" & _
               "Extended Properties=dBASE IV;" & _
               "User ID=Admin;Password=;"

Enlaces relacionados

Buscar en Recursos vb