Colección de Ejemplos de ADO

Mediante la creación de una vista en nuestra base de datos de SQL Server, podemos ver los datos que residen en otro tipo de formato de base de datos, como bien podría ser una base de datos Microsoft Access, Paradox, dBASE o Microsoft Excel.

A continuación crearemos una vista en la base de datos Northwind de SQL Server llamada Access_VIEW, con los datos existentes en la tabla Clientes de la base de datos Neptuno.mdb.

Dim cnn As ADODB.Connection
Dim SQL As String

' Configuramos una conexión con la base de
' datos de SQL Server, utilizando la seguridad
' integrado de Windows NT
'
Set cnn = New ADODB.Connection
With cnn
    .CursorLocation = adUseClient
    .Provider = "SQLOLEDB"
    .ConnectionString = "Data Source=NOMBRE_INSTANCIA_SQL_SERVER;" & _
        "Initial Catalog=Northwind;" & _
        "Integrated Security=SSPI;"
    .Open
End With

' Si la vista ya existe en la base de datos de
' SQL Server, la eliminamos
'
cnn.Execute _
    "IF EXISTS(" & _
    "SELECT * FROM INFORMATION_SCHEMA.TABLES " & _
    "WHERE TABLE_NAME = 'Access_VIEW')" & _
    "DROP VIEW Access_VIEW", , adCmdText

' Construimos la consulta SQL para crear la vista
'
SQL = "CREATE VIEW [Access_VIEW] AS " & _
      "SELECT IdCliente, NombreCompañía, Ciudad FROM OPENDATASOURCE(" & _
      "'Microsoft.Jet.OLEDB.4.0','Password=;User ID=;" & _
      "Data Source=C:\Mis documentos\Neptuno.mdb;" & _
      "Jet OLEDB:Engine Type=5;')...[Clientes]"

' Ejecutamos la consulta
'
cnn.Execute SQL, , adCmdText

' Cerramos la conexión
'
cnn.Close

Enrique Martínez Montejo - 2004

NOTA: La información contenida en este artículo, así como el código fuente incluido en el mismo, se proporciona COMO ESTÁ, sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo explicado, recomendado o sugerido en el presente artículo.

NOTE: The information contained in this article and source code included therein, is provided AS IS without warranty of any kind, and confers no rights. You assume any risk to implement, use or run it explained, recommended or suggested in this article.