Sql
Sql (11/3/2003)
Hola, tengo el siguiente cogdigo de sql:
Private Usu
Public Adors As New ADODB.Recordset
Public Adocn As New ADODB.Connection
Public Adors1 As New ADODB.Recordset
Private Sub Cmd_Aceptar_Click()
Dim i As String
Usu = "SELECT clave FROM Claves WHERE Usuario = '& Cmb_Usuario &'"
Set Adors = Adocn.Execute(Usu)
If Adors.EOF Then
MsgBox "Registro No Encontrado", vbCritical, "¡ATENCION!"
Limpiar Me
Cmb_Usuario.SetFocus
Else
Txt_Clave = Adors.Fields(0)
End If
End Sub
No puedo hacer que del combo tomo el dato en la secuencia sql donde where es igual al dato que tiene el como, el dato que me eniva es vacío, me puedes ayudar a definir bien el cmb_usuario para que de el dato y compare con la tabla, de antemano muchas gracias
Hola, tengo el siguiente cogdigo de sql:
Private Usu
Public Adors As New ADODB.Recordset
Public Adocn As New ADODB.Connection
Public Adors1 As New ADODB.Recordset
Private Sub Cmd_Aceptar_Click()
Dim i As String
Usu = "SELECT clave FROM Claves WHERE Usuario = '& Cmb_Usuario &'"
Set Adors = Adocn.Execute(Usu)
If Adors.EOF Then
MsgBox "Registro No Encontrado", vbCritical, "¡ATENCION!"
Limpiar Me
Cmb_Usuario.SetFocus
Else
Txt_Clave = Adors.Fields(0)
End If
End Sub
No puedo hacer que del combo tomo el dato en la secuencia sql donde where es igual al dato que tiene el como, el dato que me eniva es vacío, me puedes ayudar a definir bien el cmb_usuario para que de el dato y compare con la tabla, de antemano muchas gracias
