anette
03 de Diciembre del 2003

Como declaro los Data control.
Gracias a quien me pueda ayudar.

Hendricks
03 de Diciembre del 2003

Este código declara las variables necesarias para la utilización de un recordset, luego el resultado lo pasa a un datagrid. No sé si es esto lo que necesitas, si requieres otra cosa, escribreme.

Dim lrcs_usuarios As ADODB.Recordset ' Variable RecordSet para Tabla de Usuarios
Dim lstr_sql As String ' Variable local para almacenar la consulta SQL
Dim lc_conexion As ADODB.Connection ' Variable de conexión con BD

Set lrcs_usuarios = New ADODB.Recordset ' Instancia el objeto
gstr_sql = "SELECT TN_PERFIL,TC_ESTADO_DEL_USUARIO, TC_PALABRA_CLAVE FROM T_SEG_USUARIOS WHERE TC_USUARIO_SESION = " & Chr(39) & gstr_usuario & Chr(39)
lrcs_usuarios.Open lstr_sql, lc_conexion, adOpenKeyset, adLockOptimistic

with DTGRD_datos
.AllowUpdate = True
Set .DataSource = lrcs_usuarios
end with