Ayuda! ¿Cómo puedo hacer?
Hola, mi problema es el siguiente: Tengo una BD en SQLAnywhere y dentro 2 tablas que son Empleado y Usuario. Por otro lado esta mi aplicación en Power Builder, la cual cuenta con un Single Line Edit(sle_1) y un Command Button(cb_1) lo que quiero es ingresar un código de empleado en la caja de texto, y luego al hacer clic en el botón, me aparezca un Messagebox que me contenga el nombre del empleado. Parece sencillo, pero es que hace solo dos meses vengo estudiando Power Builder agradecería mucho tu ayuda. Si no me explico bien solo dímelo por favor!.
Respuesta de David Ochoa
1
Lo que tienes que hacer es:
En el evento Clicked! De tu commandbutton:
String ls_nombre_empleado, ls_codigo_empleado
If len(trim(sle_1.text)) = 0 Then
MessageBox('error', 'ingrese un codigo de empleado', exclamation!)
sle_1.SetFocus( )
Return
Else
ls_codigo_empleado = sle_1,text
select nombre_empleado
into :ls_nombre_empleado
where codigo_empleado = :ls_codigo_empleado;
If sqlca.sqlcode = 0 Then
MessageBox('Nombre de empleado', ls_nombre_empleado)
Else
MessageBox('error', 'no existe el empleado', exclamation!)
sle_1.SetFocus( )
End If
En el evento Clicked! De tu commandbutton:
String ls_nombre_empleado, ls_codigo_empleado
If len(trim(sle_1.text)) = 0 Then
MessageBox('error', 'ingrese un codigo de empleado', exclamation!)
sle_1.SetFocus( )
Return
Else
ls_codigo_empleado = sle_1,text
select nombre_empleado
into :ls_nombre_empleado
where codigo_empleado = :ls_codigo_empleado;
If sqlca.sqlcode = 0 Then
MessageBox('Nombre de empleado', ls_nombre_empleado)
Else
MessageBox('error', 'no existe el empleado', exclamation!)
sle_1.SetFocus( )
End If
