1 Respuesta
Respuesta de aja72
1
Si utilizas ADO prueba lo siguiente:
Dim rs As New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection conn.Open "NOMBRE_BBDD", "NOMBRE_USUARIO", "CONTRASEÑA_USUARIO"
rs.Open "Select sysdate from dual", conn, adOpenStatic, adLockReadOnly
Debug.Print rs.Fields(0).Value
Si tienes alguna duda, házmelo saber. En caso contrario no olvides valorar la respuesta.
Dim rs As New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection conn.Open "NOMBRE_BBDD", "NOMBRE_USUARIO", "CONTRASEÑA_USUARIO"
rs.Open "Select sysdate from dual", conn, adOpenStatic, adLockReadOnly
Debug.Print rs.Fields(0).Value
Si tienes alguna duda, házmelo saber. En caso contrario no olvides valorar la respuesta.
