• Viernes 8 de Noviembre de 2024, 23:10

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 - chantapalacios

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: Urgente Como Importar
« en: Domingo 5 de Noviembre de 2006, 23:22 »
En este sitio esta la solución a tu problema

http://www.lawebdelprogramador.com/codigo/...to=Visual+Basic


Espero que te sirva, saludos desde CHILE

2
Visual Basic 6.0 e inferiores / Re: Tengo El Codigo De Vbskinner Y Quiero Hacer La Ocx
« en: Domingo 5 de Noviembre de 2006, 23:03 »
Recien hoy me atreví a entrar a este foro, ahora viendo las necesidades que todos tienen por los skins, quiero informarles que hay varios sitios en internet que contienen fuentes de ellos .
No se si puedo señalarlos, pero si no fuera lo correcto, el moderador los borrará, no obstante les señalo que en la webdelprogramador.com hay varios ejemplos
 :comp: Saludos  :comp:

3
Bases de Datos / Re: Ayuda Urgente - Vb6 Y Access
« en: Domingo 5 de Noviembre de 2006, 22:29 »
Cuando se va a insertar un nuevo registro a la base de datos, es conveniente leerla primero para evitar actuar sobre un registro que ya existe con una sentencia INSERT o aplicar UPDATE sobre uno inexistente, sobre todo si quieres trabajar con un sistema multi usuario.

Ejemplo
Private Sub Guardar
Set RecordsetArchivo = Base.OpenRecordset(SELECT * FROM Archivo WHERE Llave = 123)
If RecordsetArchivo.EOF Then
   Insert .......................  -> resto de la sentencia
else
   Update ...................... -> resto de la sentencia
end if
End Sub

 :comp: Este ejemplo te puede servir para lo que quieres resolver con el número que se repite :comp:

4
Visual Basic 6.0 e inferiores / Re: Validar Datos
« en: Martes 31 de Octubre de 2006, 21:10 »
Amigos del visual basic, soy nuevo en este foro y aca les envio una funcion que resuelve el tema de la aceptacion de solo numeros

' ESTE EL EL TEXTBOX QUE SOLO ACEPTARA NUMEROS
Private Sub Text1.text_KeyPress(KeyAscii As Integer)
    KeyAscii = SoloNumeros(KeyAscii)
End Sub


' ACA ESTA LA FUNCION
Function SoloNumeros(ByVal KeyAscii As Integer) As Integer
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then ' si no se ha ingresado numero
       SoloNumeros = 0
    Else
       SoloNumeros = KeyAscii
    End If
    If KeyAscii = 8 Then SoloNumeros = KeyAscii   ' borrado atras
    If KeyAscii = 13 Then SoloNumeros = KeyAscii ' return
End Function
 :comp: AGRADECER SIEMPRE ES BIEN RECIBIDO  :comp:

5
Bases de Datos / Re: Formato De Base De Datos No Reconocida
« en: Martes 31 de Octubre de 2006, 20:28 »
Hola, acabo de incorporarme al foro y les contare que en el sitio de Microsoft esta la actualización del Visual Basic 6 mediante un servipack, lo cual permite utilizar las bases de datos de access 2000.
 :comp: Ojalá les sirva esta información :comp:

Páginas: [1]