Este codigo es un ejemplo de una conexión ADO con una base de datos SQL Server.
Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection
'Abrimos la base de datos
Set cn = New ADODB.Connection
sCon = "driver={SQL Server};"
sCon = sCon + "Server=TUSERVIDOR;uid=USUARIO;pwd=PASS;"
sCon = sCon + "database=TUBASEDEDATOS"
cn.ConnectionString = sCon
cn.ConnectionTimeout = 30
cn.Open
'Aqui usamos un Recorset para extraer los datos de la consulta
QuerySQL = "SELECT * FROM TABLA"
rs.CursorLocation = adUseClient
rs.Open QuerySQL, cn, adOpenKeyset, adLockOptimistic
1 comentarios:
muy bien !
Publicar un comentario