elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: [1]
1  Programación / Programación Visual Basic / Re: Enviar datos de excel a tabla externa en: 1 Noviembre 2005, 23:11 pm
parcero necesito saber que tipo de excel
bueno en este caso execel 2000
vas en el menu archivo la opcion guardar como
escojes db IV este es formato Dbase.
te guarda una dbf antiguo vas a tu proyecto en FP y añades
la tabla,le dices que si añadir .bak
despues la modificas y la conviertes a windows
y listo parcero.....

hay otra manera de hacerlo pero esa te la enseño si la
necesitas, escribeme a Email://elgirardoteño@yahoo.es
2  Programación / Programación Visual Basic / codigo para obtener los años cumplidos en VF 6.0 en: 25 Octubre 2005, 17:23 pm
fecha= date()
update coosalud set fechactual=fecha  where numcon= '25'

select count(*) as contar, fechanac as fn,fechactual as fa from coosalud where numdoc= '1070587053' into cursor Matriz
res=(year(fa) - year(fn))
dat= str((month(fa))+ (12 - month(fn)),2,2)
mes= month(fa)+ (12 - month(fn))
año= str(res,2,2)
año1= (res - 1)
rpt= str(año1,2,2)

if res > 1 then
      if month(fn) > month(fa) then
         año= (res - 1)
         update coosalud set edad=rpt, unidad='1'  where coddep= '15'
      else
           update coosalud set edad=año, unidad='1'  where coddep= '15'
      endif
   else
      if month(fa) < month(fn) then
         update coosalud set edad=dat, unidad='2' where coddep= '15'
       Else
          rta= val(str(month(fa)- month(fn)))
         update coosalud set edad=mes, unidad='2' where coddep='15'
       Endif
   EndIF

.... por favor si lo mejoras... publica las mejoras como
teniendo en cuenta tambien los dìas esta hecho todavia
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines