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


296 - Listado de cadenas de conexión para Ado

<Volver> - Anterior - Siguiente



 

 

Contenido

 

 

 

 

 


Listado de cadenas de conexión

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 " 

Conectar a Access 2007

Private Sub Form_Load()
    Dim cs As String
    Dim cn As ADODB.Connection
    
    Dim sPath_Access As String
    ' -- Ruta del archivo ACCDB
    sPath_Access = App.Path & "\base\db.accdb"
    
    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
         sPath_Access & ";Persist Security Info=False;"
         
    ' -- Access 2007 con password
    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
         sPath_Access & ";Jet OLEDB:Database Password=contraseña;"
              
    cn.Open cs
End Sub
 

 


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=;" 

 


Guía de proveedores OLEDB

Este es un proyecto publicado en el sitio Planet source Code, que implementa una guía con una lista variada de proveedores OLEDB. Esta lista se despliega en un Treeview, por ejemplo:

Para conectar a Excel, Exchange, mySQL, SQL server, SQL server via SqlXmlOLEDB, archivos de texto, para Visual Fox Pro, SQLBase, OLAP, syBase, Active Directory, AS/400 y varios otros

Al seleccionar un item ( Proveedor), en el panel derecho visualiza las diferentes cadenas de conexión que se pueden utilizar para cada caso: Conectar con seguridad estándar, conectar a una base de datos remota, especificando un usuario concreto etc .. De esta manera podemos copiar la cadena de conexión y utilizarla.

Descargar código fuente

Captura de pantalla

 

 


Enlaces relacionados



Buscar en Recursos vb