• Martes 16 de Abril de 2024, 00:36

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - arrebiato

Páginas: 1 [2]
26
Visual Basic 6.0 e inferiores / Ayuda Con Este Codigo
« en: Martes 26 de Octubre de 2004, 16:20 »
:rolleyes: Hola amigos, como comprenderan soy nuevo en esto .....y estoy comprobando lo duro que es ser autodidacta.....bueno ahi les va ..quisiera saber como puedo mejorar este codigo, pues me consigue solo el primer registro de la tabla pero los posteriores no....ah y si pueden darme un ejemplo en codigo de como se usa el metodo FIND del Recordset de un control Adoc se los agradeceria en el alma ......Bye espero me puedan ayudar. :rolleyes:

Private Sub Buscador_LostFocus()
Dim rs As Recordset
Dim VarX As String
Dim Encontrado As Integer
Set rs = AdocClientes.Recordset
txtCedula.Text = rs!cedula
Encontrado = 1
VarX = Buscador.Text
rs.MoveFirst
If (rs!cedula = VarX) Then
Encontrado = 1
MsgBox ("Hayado 1 registro")
Else
Encontrado = 0
MsgBox ("No Hayado")
End If

If Encontrado = 1 Then
txtCedula.Text = rs!cedula
txtNombreCliente.Text = rs!NombreCliente
txtNroCuenta.Text = rs!NroCuenta
txtTpoNomi.Text = rs!TpoNomi
txtTpoCuenta.Text = rs!TpoCuenta
txtDireccionHabt.Text = rs!DireccionHabt
txtTelfHabt.Text = rs!TelfHabt
txtTelfMovil.Text = rs!TelfMovil
txtDirecTrbjo.Text = rs!DireccionTrbjo
txtTelfTrbjo.Text = rs!TelfTrbjo
txtRefciaFamiliar.Text = rs!RefciaFamiliar
Else
If Encontrado = 0 Then
rs.AddNew
txtCedula.Text = Buscador.Text
txtCedula.SetFocus
End If


End If
End Sub

27
Visual Basic 6.0 e inferiores / Re: Buscar Registro
« en: Viernes 22 de Octubre de 2004, 16:59 »
:D muchas gracias a ambos los dos ejemplos me han ,dado la oportunidad de tener mas alternativas con respecto a este tema ....vale  ;)

28
Visual Basic 6.0 e inferiores / Buscar Registro
« en: Martes 19 de Octubre de 2004, 15:14 »
:angry: Esto me tiene molesto....quiero que me ayudeis con una rutina para bucar un regisrto en una tabla de datos ...ya anteriormente los exprese en una discucion anterior  ayudadme por favor...... :blink:

29
Visual Basic 6.0 e inferiores / Re: Buscar Registros De Una Base De Datos
« en: Lunes 18 de Octubre de 2004, 22:07 »
:comp: Hola a todos el caso es el siguiente, tengo una base de datos de Access 2000 que quiero manejar con VB, Existe en ella una tabla llamada clientes a la cual acceso por medio de un control ADOC. esta tabla se va a llenar atraves de un formulario con varios cuadros de texto contentivos de informacion,,,, lo que quiero es que al rellenar el cuadro de texto del "Nro de identifcacion o pasaporte" un metodo ejecute una busqueda en la tabla y si este numero existe en la tabla rellene los demas campos con la informacion contenida en el tabla ,.....y si no lo consigue prepare el recordset para incluir la informacion manualmente......espero me podais ayudar y de antemano gracias............ :hola:

30
Visual Basic 6.0 e inferiores / Programa Para Envio De Sms Free
« en: Miércoles 11 de Agosto de 2004, 17:06 »
:comp: Hola chicos ...quisiera saber el codigo para crear un programa para enviar SMS a moviles de varias compañias de Venezuela gratis....... sera que se puede?????

31
Visual Basic 6.0 e inferiores / Re: Imagen Relacionada A Grupo De Datos
« en: Miércoles 23 de Junio de 2004, 15:42 »
:D  :comp: Muchas gracias Juanolo Me ha funionado de maravilla espero esta no sea la ultima vez que nos comuniquemos nuevamente gracias.......Vale  :smartass:  :smartass:

32
Visual Basic 6.0 e inferiores / Re: Imagen Relacionada A Grupo De Datos
« en: Martes 22 de Junio de 2004, 18:45 »
Cita de: "Jose Arriagada"
Ya se ha visto en discusiones anteriores que es mas facil enlazar las imagenes almacenarlas en las tablas, si no que guardar la imagen en algun directorio, y despues hacer la referencia.

Teniendo en cuenta este detalle, pasemos a lo escencial.

Claramente tus empleados deben tener un numero UNICO (llave o clave de acceso), por que asi, es la unica forma de que esto funcione.

Supongamos que el campo llave de tu tabla de datos de empleados es ID_Empleado, y que tu directorio para almacenar informacion es C:\DATAEMP y dentro de este se tiene un directorio para las imagenes, especificamente la foto de cada uno de ellos, llamemos a este directorio FOTOS.
En resumen tenemos C:\DATAEMP\FOTOS

Al hacer la carga de los datos del empleado, entonces utilizas el siguiente codigo para traer la imagen a la pantalla.

picFoto.picture=loadpicture("C:\DATAEMP\FOTOS\" & idemp)

donde idemp, es el codigo llave que identifica al empleado.

Ahora, como veo que tienes un boton de agregar/cambiar foto, al grabar los datos del empleado, lo que debes hacer tambien, es copiar la imagen desde el origen (desde donde la capturaste y copiarla a C:\DATAEMP\FOTOS\idemp ) con el codigo de llave del empleado, para no perderla.

Espero te sirva.
 :( Vaya hombre respondedme arriba esta mi pregunta Please..........

33
Visual Basic 6.0 e inferiores / Re: Imagen Relacionada A Grupo De Datos
« en: Lunes 21 de Junio de 2004, 22:56 »
:hola: Gracias amigo la sugerencia que me diste es buena pero no solucionó mi problema pues al ejecutarle me da un error de desbordamiento tal vez puedas volver a ayudarme a saber por que sucede esto y a como solucionarle el codigo de error es el "06"

34
Visual Basic 6.0 e inferiores / Imagen Relacionada A Grupo De Datos
« en: Viernes 18 de Junio de 2004, 20:30 »
:hola: Estoy creando un nuevo proyecto de Acceso a datos a trave de VB quisiera saber como hago para que al igual que en Neptuno.Mdb me aparesca la foto de la pesona al selecionar el grupo de datos de esta (ver Formulario Empleados En Neptuno) de Office

Páginas: 1 [2]