¿Cómo puedo realizar una consulta de los datos de un empleado al realizar el ingreso en un campo?
Hey, Andres, auxíliame con esta, tengo una aplicación (en pañales), es de recursos humanos, quiero consultar los datos de un empleado, quiero crear un formulario de búsqueda donde ingreso el campo clave y me verifique si existe el registro, en caso de no existir me realice la siguiente pregunta, desea agregar s/n?. Y en caso de existir me pregunte, desea modificar s/n?y, esto lo quiero para evitar navegar por todos los registro para poder consultar, mucho sabre agradecerte.
1 respuesta
Respuesta de andresmaga
1
Te respondo:
dim rs as recordset
Set rs = New ADODB.Recordset
rs.Open "Select Clave from Empleados where Clave = " & txtClave.Text & "", cnconexion, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
Select Case MsgBox("Desea Modificar S/N?", vbYesNo + vbQuestion + vbDefaultButton1, "")
Case vbYes
Case vbNo
End Select
else
Select Case MsgBox("Desea Agregar S/N?", vbYesNo + vbQuestion + vbDefaultButton1, "")
Case vbYes
Case vbNo
End Select
End If
rs.Close
Set rs = Nothing
Ante todo perdón por la desprolijidad
Cualquier cosa no dudes en pregunntarme
dim rs as recordset
Set rs = New ADODB.Recordset
rs.Open "Select Clave from Empleados where Clave = " & txtClave.Text & "", cnconexion, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
Select Case MsgBox("Desea Modificar S/N?", vbYesNo + vbQuestion + vbDefaultButton1, "")
Case vbYes
Case vbNo
End Select
else
Select Case MsgBox("Desea Agregar S/N?", vbYesNo + vbQuestion + vbDefaultButton1, "")
Case vbYes
Case vbNo
End Select
End If
rs.Close
Set rs = Nothing
Ante todo perdón por la desprolijidad
Cualquier cosa no dudes en pregunntarme
