Sección de códigos , trucos y ejemplos para visual basic
<Volver> - Anterior - Siguiente
Contenido
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
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
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"
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;"
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"
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
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=;"
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.
Captura de pantalla
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar