Doc. Ref. 9199 Título: Ejemplo de conexión a otra base de datos en un script Hexa Autor: Hexa Última actualización: 15/08/2012 #script #base #de #datos #externa #tabla #campo

---

Ejemplo de conexión a una base de datos externa desde un script Hexa

El objeto de scripting en Hexa tiene acceso a todos los objetos y métodos de la plicación, entre ellos las dos conexiones a la base de datos principal (Cn) y a la base de datos auxiliar (Cna). Pero puede ocurrir que sea necesario acceder a una tercera base de datos externa para realizar alguna operación. En este ejempo se muestra cómo realizar esta conexión, tanto si se trata de un servidor SQL Server, como de un archivo MS Access.

Sub Main (PS0, PS1, PS2)

   'Objeto conexión a una base de datos externa SQL Server

   'Declaración
   Dim Cn3 : Set Cn3 = CreateObject ("ADODB.Connection")
   Cn3.Open "Provider=SQLOLEDB.1;Persist Security Info=-1;User ID=sa;Password=1234;Initial Catalog=miBaseDeDatos;Data Source=srvx\sqlexpress"

   'Objeto conexión a una base de datos externa MS Access

   'Declaración
   Dim Cn4 : Set Cn4 = CreateObject ("ADODB.Connection")
   Cn4.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\datos\miFichero.mdb"

   '...
   'A partir de aquí se puede usar los objetos de conexión Cn3 y Cn4 de la misma manera que los estándar Cn y Cna

End Sub

Volver a la búsqueda anterior