Entrar
¿Usuario nuevo? Regístrate
vbasicworld · Lista de discusión sobre programación en Visual Basic
? ¿Ya estás suscrito? Entrar en Yahoo!

Consejos de Yahoo! Grupos

¿Sabías que...?
Puedes buscar mensajes antiguos en un grupo.

Mensajes

  Mensajes Ayuda
Avanzado
Mensajes 2293 - 2322 de 4543   Primero  |  < Anterior  |  Siguiente >  |  Último
Mensajes: Mostrar resúmenes de los mensajes   (Agrupar por tema) Ordenar por fecha v  
#2322 De: "Salvador Castillo" <only_salvador@...>
Fecha: Mar, 14 de Ene, 2003 8:01 am
Asunto: Re: [VBASICWORLD] Ejecutar MS Word desde Aplicaci?n VB con retorno
only_salvador@...
Enviar mensaje Enviar mensaje
 



Hola Carlos, muchas gracias por el tip sobre aplicaciones MS desde VB.  Voy a probar un rato hoy cuando llegue a casa.

Saludos,

 

Salvador



The new MSN 8 is here: Try it free* for 2 months

#2321 De: Carlos Pérez <carlospg@...>
Fecha: Lun, 13 de Ene, 2003 7:23 pm
Asunto: Re: [VBASICWORLD] Ejecutar MS Word desde Aplicaci?n VB con retorno
carlospg@...
Enviar mensaje Enviar mensaje
 
este ejemplo ejecuta el  excel pero funciona con el wor tambien
chao

#2320 De: Carlos Pérez <carlospg@...>
Fecha: Lun, 13 de Ene, 2003 6:54 pm
Asunto: Re: [VBASICWORLD] Ejecutar MS Word desde Aplicaci?n VB con retorno
carlospg@...
Enviar mensaje Enviar mensaje
 
creo que hay una forma de ejecutar cualquier aplicacion de office sin usar nada de eso ni shell ni nada incluso para manejar el word o cualquiera desde VB sin nisiquiera abrir la aplicacion busco un poco y despues les mando un ejemplo

#2319 De: "Salvador Castillo" <only_salvador@...>
Fecha: Lun, 13 de Ene, 2003 5:32 pm
Asunto: Re: [VBASICWORLD] ActiveX Labels Controls & Icons
only_salvador@...
Enviar mensaje Enviar mensaje
 

Hola Renato, acabo de visitar este sitio, y parece interesante para bajar ActiveX elements gratis.

http://www.programmersheaven.com/zone1/index.htm

 

Saludos.

 

Salvador



get 2 months FREE*

#2318 De: "Patricio Arancibia" <pato_arancibia@...>
Fecha: Do, 12 de Ene, 2003 7:49 pm
Asunto: Circuito
pato_arancibia
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 
Hola amigos y amigos del grupo como están ojalá que bien, bueno les escribo para pedirles una ayuda, se trata de lo siguiente, bueno, saben quiero confeccionar dos circuitos, comandados por el puerto paralelo, el primero:
 
Se trata de un circuito que envíe datos al computador de cuantas vueltas de una hélice en un minuto, si ustedes tienen algún circuito o programa con lo cual me puedan ayudar les agradecería mucho, y el segundo:
 
Se trata de un circuito para verificar la temperatura, de una habitación, también comandado por el puerto paralelo del computador, si ustedes tuvieran algún circuito o programa que me faciliten o direcciones Web para comenzar a indagar en el tema, les estaría muy agradecido, y de antemano muchas gracias, y si el programa con el circuito lo termino, les mandare una copia a cada uno igual como lo hice con el proyecto que tienen para que le realicen una critica ok abrazos y saludos.
 
Patricio Arancibia.

#2317 De: "Asdrubal Velasquez \(RadioMan\)" <radioman@...>
Fecha: Sáb, 11 de Ene, 2003 2:25 pm
Asunto: OT: Nueva publicación de Visual Basic - Totalmente en español
radioman9000
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 
 
Estimado amigo(a).
 
Sé que tienes interés en la programación con Visual Basic, así que te invito a dar una mirada a la nueva publicación E-Zine, la cual es dedicada a la programación en Visual Basic y es totalmente en español, conteniendo además información extra de muy buena calidad.
 
Para revisar el último número y números anteriores, puedes ingresar al sitio de Dr. CroW e ir directamente a la sección de "Descargar DC E-Zine", o puedes suscribirte a ella para recibir automáticamente cada número que por ahora tiene una frecuencia mensual.
 
En ésta última edición Número 8 de Enero 2003 tenemos:
Integrar Excel en VB, por Freddy
Aprendiendo SQL I, por Gaston
El MSAgent, por Dr. CroW
Trucos y Trampas I, por  RadioMan
 
Espero sea de su agrado.
 
'//RadioMan - Asdrubal Velasquez
Autor de la columna Trucos y Trampas de la publicación E-Zine
Puerto Ordaz - Venezuela

 
p.d.:Este mensaje se pudiera considerar Off Topic, sin embargo, considero está ajustado a las necesidades de esta lista, ya que se trata del mismo tema de Visual Basic.

#2316 De: Madmonge@...
Fecha: Vie, 10 de Ene, 2003 7:53 pm
Asunto: Re: [VBASICWORLD] ActiveX Labels Controls & Icons
Madmonge@...
Enviar mensaje Enviar mensaje
 
Hola, puedes encontrar en www.lawebdelprogramador.com

#2315 De: Luis Aponte <aponte@...>
Fecha: Vie, 10 de Ene, 2003 5:53 pm
Asunto: Re: [VBASICWORLD] Ejecutar MS Word desde Aplicación VB con retorno
aponte@...
Enviar mensaje Enviar mensaje
 
Hola

	 A raiz de la idea de salvador, hay posibilidades de una
tercera, El word, excel, etc cuando grabas guarda un acceso
directo en inicio => Documentos,
seria cuestión de verificar que documento nuevo hay en tal
lugar luego de cerrase el word.

No se si fui claro

Cualquier cosa comunicate

Luis Aponte

10/01/03 5:53:05, "Salvador Castillo"
<only_salvador@...> escribió:

>
>
>  Para:  vbasicworld@yahoogroups.com
>
>  De:    "Salvador Castillo" <only_salvador@...>
>  Fecha: Fri, 10 Jan 2003 08:53:05 +0000
>  Asunto:Re: [VBASICWORLD] Ejecutar MS Word desde Aplicación
VB con retorno
>
>
>
>
>
>  Estimado Renato, ejecutar el WORD desde una aplicación de VB
no es problema:
>
>
>  Como Luis te indicó acertadamente, puedes utilizar la
función SHELL de VB, o
>  mejor aún la función API SHELLEXECUTE de Windows, la cual te
brinda mayores
>  posibilidades.  Esta función está incluida en la librería
SHELL32.DLL.  Dime
>  si quieres que te envíe un ejemplo de cómo se utiliza esta
función para
>  ejecutar un programa desde una aplicación VB.  Usando esto
como base, tu
>  puedes hacer los cambios necesarios para ejecutar WORD.  No
te lo envío
>  ahora porque no lo tengo acá en la oficina, sino en casa.
>
>  Con respecto a saber dónde se guardó el archivo WORD,
tampoco sé como
>  hacerlo.  Se me ocurren dos ideas que podrías usar de base
para buscar
>  información.
>
>
>  1.  Trata de averiguar cuál función API de Windows puede
buscar archivos
>  dentro del disco duro de la computadora (yo me imagino que
debe ser una de
>  la libreria USERS32.DLL), y luego que cerraste WORD, lo que
tendrías que
>  hacer en buscar el nombre del archivo (claro, otro pedo es
saber qué nombre
>  le dió la gana utilizar al usuario).
>
>  1.1.  Una forma sería encontrar las instrucciones VBA
(Visual Basic for
>  Applications) que te permitan hacer una copia del archivo
(en la partición
>  "C:", por ejemplo) que el usuario grabó,  y luego buscar ese
archivo en C, a
>  través del programa VB.  Una vez encontrado, podrías
"matar" (Kill) el
>  archivo y usar el nombre de éste para hacer la búsqueda con
la función API
>  mencionada arriba, en caso de que exista.
>
>
>  Supongo que mis ideas no te ayudarán mucho, pero es todo lo
que puedo
>  ofrecerte por el momento.  Por favor manténte en contacto
para saber cómo
>  resuelves esto, a mi también me interesa.
>
>  Saludos,
>
>
>  Salvador.-
>
>
>
>
>
>
>
>  Protect your PC - Click here for McAfee.com VirusScan Online
>
>           Publicidad
>
>
>
>
>
>
>
>  Web: http://www.mundovb.net/
>
>  Para darte de baja envía un mensaje a:
>  vbasicworld-unsubscribe@onelist.com
>
>  La utilización de Yahoo! Grupos está sujeta a su aceptación
de las
>  Condiciones del servicio así como de la Política de
privacidad.

#2314 De: Renato Espinoza <respinozarios@...>
Fecha: Vie, 10 de Ene, 2003 4:28 pm
Asunto: Re: [VBASICWORLD] Ejecutar MS Word desde Aplicación VB con retorno
respinozarios
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 

Gracias Luis...

 Luis Aponte <aponte@...> wrote:


Proba para ejecutar una aplicación desde VB con shell, por el
resto ¿? ni idea como hacerlo.


09/01/03 18:39:54, "respinozarios" <respinozarios@...>
escribió:

>Amigos Listeros:
>Tengo una aplicación VB la cual tiene que llamar al MS Word
desde la
>misma aplicación y una vez que termino de usar el MS Word
tengo que
>registrar en el programa de alguna manera la
>ruta donde fue guardado el archivo de MS Word, o en todo caso
hacer
>un link al archivo desde mi aplicativo.
>¿Alguien tiene alguna idea de cómo podría realizar ésta
operación?
>
>Gracias anticipadamente a todos por su ayuda
>
>Saludos
>
>Renato Espinoza
>
>
>Web: http://www.mundovb.net/
>
>Para darte de baja envía un mensaje a:
>vbasicworld-unsubscribe@onelist.com
>
>La utilización de Yahoo! Grupos está sujeta a su aceptación de
las
>Condiciones del servicio
(http://es.docs.yahoo.com/info/utos.html) así
>como de la Política de privacidad
(http://privacy.yahoo.com/es/).
>
>
>
>
>





Web: http://www.mundovb.net/

Para darte de baja envía un mensaje a:
vbasicworld-unsubscribe@onelist.com


La utilización de Yahoo! Grupos está sujeta a su aceptación de las Condiciones del servicio así como de la Política de privacidad.



Do You Yahoo!?
Yahoo! Net: La mejor conexión a internet y 25MB extra a tu correo por $100 al mes.

#2313 De: Renato Espinoza <respinozarios@...>
Fecha: Vie, 10 de Ene, 2003 4:25 pm
Asunto: Re: [VBASICWORLD] Ejecutar MS Word desde Aplicación VB con retorno
respinozarios
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 

Muchas Gracias Salvador por tu ayuda, tus ideas me pueden ayudar, cualquier novedad que tenga te comento.

Gracias nuevamente

Saludos

Renato Espinoza

 Salvador Castillo <only_salvador@...> wrote:


Estimado Renato, ejecutar el WORD desde una aplicación de VB no es problema:

Como Luis te indicó acertadamente, puedes utilizar la función SHELL de VB, o mejor aún la función API SHELLEXECUTE de Windows, la cual te brinda mayores posibilidades.  Esta función está incluida en la librería SHELL32.DLL.  Dime si quieres que te envíe un ejemplo de cómo se utiliza esta función para ejecutar un programa desde una aplicación VB.  Usando esto como base, tu puedes hacer los cambios necesarios para ejecutar WORD.  No te lo envío ahora porque no lo tengo acá en la oficina, sino en casa.

Con respecto a saber dónde se guardó el archivo WORD, tampoco sé como hacerlo.  Se me ocurren dos ideas que podrías usar de base para buscar información.

1.  Trata de averiguar cuál función API de Windows puede buscar archivos dentro del disco duro de la computadora (yo me imagino que debe ser una de la libreria USERS32.DLL), y luego que cerraste WORD, lo que tendrías que hacer en buscar el nombre del archivo (claro, otro pedo es saber qué nombre le dió la gana utilizar al usuario).

1.1.  Una forma sería encontrar las instrucciones VBA (Visual Basic for Applications) que te permitan hacer una copia del archivo (en la partición "C:", por ejemplo) que el usuario grabó,  y luego buscar ese archivo en C, a través del programa VB.  Una vez encontrado, podrías "matar" (Kill) el archivo y usar el nombre de éste para hacer la búsqueda con la función API mencionada arriba, en caso de que exista.

Supongo que mis ideas no te ayudarán mucho, pero es todo lo que puedo ofrecerte por el momento.  Por favor manténte en contacto para saber cómo resuelves esto, a mi también me interesa.

Saludos,

Salvador.-


 



Protect your PC - Click here for McAfee.com VirusScan Online

Web: http://www.mundovb.net/

Para darte de baja envía un mensaje a:
vbasicworld-unsubscribe@onelist.com


La utilización de Yahoo! Grupos está sujeta a su aceptación de las Condiciones del servicio así como de la Política de privacidad.



Do You Yahoo!?
Yahoo! Net: La mejor conexión a internet y 25MB extra a tu correo por $100 al mes.

#2312 De: "Salvador Castillo" <only_salvador@...>
Fecha: Vie, 10 de Ene, 2003 8:53 am
Asunto: Re: [VBASICWORLD] Ejecutar MS Word desde Aplicación VB con retorno
only_salvador@...
Enviar mensaje Enviar mensaje
 


Estimado Renato, ejecutar el WORD desde una aplicación de VB no es problema:

Como Luis te indicó acertadamente, puedes utilizar la función SHELL de VB, o mejor aún la función API SHELLEXECUTE de Windows, la cual te brinda mayores posibilidades.  Esta función está incluida en la librería SHELL32.DLL.  Dime si quieres que te envíe un ejemplo de cómo se utiliza esta función para ejecutar un programa desde una aplicación VB.  Usando esto como base, tu puedes hacer los cambios necesarios para ejecutar WORD.  No te lo envío ahora porque no lo tengo acá en la oficina, sino en casa.

Con respecto a saber dónde se guardó el archivo WORD, tampoco sé como hacerlo.  Se me ocurren dos ideas que podrías usar de base para buscar información.

1.  Trata de averiguar cuál función API de Windows puede buscar archivos dentro del disco duro de la computadora (yo me imagino que debe ser una de la libreria USERS32.DLL), y luego que cerraste WORD, lo que tendrías que hacer en buscar el nombre del archivo (claro, otro pedo es saber qué nombre le dió la gana utilizar al usuario).

1.1.  Una forma sería encontrar las instrucciones VBA (Visual Basic for Applications) que te permitan hacer una copia del archivo (en la partición "C:", por ejemplo) que el usuario grabó,  y luego buscar ese archivo en C, a través del programa VB.  Una vez encontrado, podrías "matar" (Kill) el archivo y usar el nombre de éste para hacer la búsqueda con la función API mencionada arriba, en caso de que exista.

Supongo que mis ideas no te ayudarán mucho, pero es todo lo que puedo ofrecerte por el momento.  Por favor manténte en contacto para saber cómo resuelves esto, a mi también me interesa.

Saludos,

Salvador.-


 



Protect your PC - Click here for McAfee.com VirusScan Online

#2311 De: Luis Aponte <aponte@...>
Fecha: Jue, 9 de Ene, 2003 9:55 pm
Asunto: Re: [VBASICWORLD] Ejecutar MS Word desde Aplicación VB con retorno
aponte@...
Enviar mensaje Enviar mensaje
 
Proba para ejecutar una aplicación desde VB con shell, por el
resto ¿? ni idea como hacerlo.


09/01/03 18:39:54, "respinozarios" <respinozarios@...>
escribió:

>Amigos Listeros:
>Tengo una aplicación VB la cual tiene que llamar al MS Word
desde la
>misma aplicación y una vez que termino de usar el MS Word
tengo que
>registrar en el programa de alguna manera la
>ruta donde fue guardado el archivo de MS Word, o en todo caso
hacer
>un link al archivo desde mi aplicativo.
>¿Alguien tiene alguna idea de cómo podría realizar ésta
operación?
>
>Gracias anticipadamente a todos por su ayuda
>
>Saludos
>
>Renato Espinoza
>
>
>Web: http://www.mundovb.net/
>
>Para darte de baja envía un mensaje a:
>vbasicworld-unsubscribe@onelist.com
>
>La utilización de Yahoo! Grupos está sujeta a su aceptación de
las
>Condiciones del servicio
(http://es.docs.yahoo.com/info/utos.html) así
>como de la Política de privacidad
(http://privacy.yahoo.com/es/).
>
>
>
>
>

#2310 De: "respinozarios" <respinozarios@...>
Fecha: Jue, 9 de Ene, 2003 9:39 pm
Asunto: Ejecutar MS Word desde Aplicación VB con retorno
respinozarios
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 
Amigos Listeros:
Tengo una aplicación VB la cual tiene que llamar al MS Word desde la
misma aplicación y una vez que termino de usar el MS Word tengo que
registrar en el programa de alguna manera la
ruta donde fue guardado el archivo de MS Word, o en todo caso hacer
un link al archivo desde mi aplicativo.
¿Alguien tiene alguna idea de cómo podría realizar ésta operación?

Gracias anticipadamente a todos por su ayuda

Saludos

Renato Espinoza

#2309 De: vbasicworld@yahoogroups.com
Fecha: Jue, 9 de Ene, 2003 6:18 pm
Asunto: Documento nuevo transmitido a vbasicworld
vbasicworld@yahoogroups.com
Enviar mensaje Enviar mensaje
 
Hola,

Este mensaje sirve para notificarle que se ha cargado
un archivo a la sección Archivos del grupo vbasicworld.

   Archivo     : /Control RmFrame 1.0.1.zip
   Responsable : radioman9000 <radioman@...>
   Descripción : Código fuente del control RmFrame, versión 1.0.1, por Asdrubal
Velasquez. Descripción: Sustituto avanzado para reemplazar el Control Frame de
Visual Basic. Este control puede se convierte en un Frame, boton sensible al
mouse y de bordes transparentes o "flat button", etc.

Puede acceder al archivo en la dirección

http://es.groups.yahoo.com/group/vbasicworld/files/Control%20RmFrame%201.0.1.zip

Para más información acerca de cómo compartir archivos con su grupo,
consulte nuestra sección de ayuda en

http://help.yahoo.com/help/es/groups/files

Atentamente,

radioman9000 <radioman@...>

#2308 De: Luis Martínez Sosa <luis_martinez_sosa@...>
Fecha: Jue, 9 de Ene, 2003 4:34 pm
Asunto: Vosotros os lo creeriais
luis_martinez_sosa@...
Enviar mensaje Enviar mensaje
 
#2307 De: "Salvador Castillo" <only_salvador@...>
Fecha: Jue, 9 de Ene, 2003 10:52 am
Asunto: Printer Control
only_salvador@...
Enviar mensaje Enviar mensaje
 
Hola Listeros,
 
Cómo hago para detectar cuando el usuario ha presionado el control OK del diálogo para imprimir (commonDialog1).?  Hay alguna propiedad de esta "CommonDialog1" que se asocie a dicho evento, como ocurren en el caso de selección de un archivo que se abrira o selección de colores, por ejemplo.
 
Muchas gracias de antemano,
 
Salvador


get 2 months FREE*

#2306 De: "Patricio Arancibia" <pato_arancibia@...>
Fecha: Mié, 8 de Ene, 2003 10:28 pm
Asunto: Otro proyecto
pato_arancibia
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 
Hola amigos y amigos del grupo como están ojalá que bien, bueno les escribo
para pedirles una ayuda, se trata de lo siguiente, bueno, saben quiero
confeccionar dos circuitos, comandados por el puerto paralelo, el primero:

Se trata de un circuito que envíe datos al computador de cuantas vueltas de
una hélice en un minuto, si ustedes tienen algún circuito o programa con lo
cual me puedan ayudar les agradecería mucho, y el segundo:

Se trata de un circuito para verificar la temperatura, de una habitación,
también comandado por el puerto paralelo del computador, si ustedes tuvieran
algún circuito o programa que me faciliten o direcciones Web para comenzar a
indagar en el tema, les estaría muy agradecido, y de antemano muchas
gracias, y si el programa con el circuito lo termino, les mandare una copia
a cada uno igual como lo hice con el proyecto que tienen para que le
realicen una critica ok abrazos y saludos.

Patricio Arancibia.

#2305 De: =?iso-8859-1?B?UmVu6SBSYW3tcmV6 ?= <sagitario@...>
Fecha: Mié, 8 de Ene, 2003 9:23 pm
Asunto: OFF TOPIC ...Ayuda con función para SQL server 2000..
sagitario@...
Enviar mensaje Enviar mensaje
 
Un Saludo
Posiblemente les llegue este mail varias veces
Puesto que fue mandado a varias listas.


Estoy trabajando con VB6 y SQL server 2000
Tengo que hacer una función en SQL que me regrese la conversión a Letras de una
cantidad, en VB6 no hay problema, ya la tengo.
He buscado en varias paginas y no encuentro algo que me pueda servir, además he
estado probando, dividí por partes esa función, tengo una para Unidades otra
para decenas y asi, pero las quiero unir y no me muestra los datos bien.
Les mando como tengo el codigo enlas funciones solas y como lo tengo (hasta
ahora en una sola):
CREATE FUNCTION fnNUnidades
	 (
	 @Num  BigInt
	 )
RETURNS VarChar (15)
AS
BEGIN
	 DECLARE @N  BigInt
	 DECLARE @NUnidades VarChar (15)

	 SET @Num = RIGHT (@Num,1)

	 IF DATALENGTH (CAST (@Num as VarChar)) = 1
	 BEGIN
		 SET @NUnidades =
		 CASE
			 WHEN @Num = 1 	 THEN 'uno'
			 WHEN @Num = 2 	 THEN 'dos'
			 WHEN @Num = 3 	 THEN 'tres'
			 WHEN @Num = 4 	 THEN 'cuatro'
			 WHEN @Num = 5 	 THEN 'cinco'
			 WHEN @Num = 6 	 THEN 'seis'
			 WHEN @Num = 7 	 THEN 'siete'
			 WHEN @Num = 8 	 THEN 'ocho'
			 WHEN @Num = 9 	 THEN 'nueve'
		 END
	 END
	 ELSE
		 SET @NUnidades = ''
RETURN @NUnidades
END

CREATE FUNCTION fnNDecenas
	 (
	 @Num  BigInt
	 )
RETURNS VarChar (150)
AS
BEGIN
	 DECLARE @N  BigInt
	 DECLARE @Decenas VarChar (150)
	 DECLARE @NDecenas VarChar (150)


	 SET @N = RIGHT (@Num,2)

	 IF @Num BETWEEN 10 AND 19
	 BEGIN
		 SET @NDecenas =
		 CASE
			 WHEN @N = 10  THEN 'diez'
			 WHEN @N = 11  THEN 'once'
			 WHEN @N = 12  THEN 'doce'
			 WHEN @N = 13  THEN 'trece'
			 WHEN @N = 14  THEN 'catorce'
			 WHEN @N = 15  THEN 'quince'
			 WHEN @N = 16  THEN 'dieciseis'
			 WHEN @N = 17  THEN 'diecisiete'
			 WHEN @N = 18  THEN 'dieciocho'
			 WHEN @N = 19  THEN 'diecinueve'
		 END
	 END
	 ELSE
		 IF @N%10 = 0
		 BEGIN
			 SET @NDecenas =
			 CASE
				 WHEN @N = 20  THEN 'veinte'
				 WHEN @N = 30  THEN 'treinta'
				 WHEN @N = 40  THEN 'cuarenta'
				 WHEN @N = 50  THEN 'cincuenta'
				 WHEN @N = 60  THEN 'sesenta'
				 WHEN @N = 70  THEN 'setenta'
				 WHEN @N = 80  THEN 'ochenta'
				 WHEN @N = 90  THEN 'noventa'
			 END
--  SET @NDecenas = @Decenas
		 END
		 ELSE
			 IF @N BETWEEN 21 AND 29
				 SET @NDecenas = 'veinti'
			 ELSE
			 BEGIN
				 SET @N = @N / 10
				 SET @NDecenas =
				 CASE
					 WHEN @N = 3  THEN 'treinta y '
					 WHEN @N = 4 	 THEN 'cuarenta y '
					 WHEN @N = 5  THEN 'cincuenta y '
					 WHEN @N = 6 	 THEN 'sesenta y '
					 WHEN @N = 7 	 THEN 'setenta y '
					 WHEN @N = 8 	 THEN 'ochenta y '
					 WHEN @N = 9 	 THEN 'noventa y '
					 ELSE 		 ''
				 END
			 END
RETURN @NDecenas
END
CREATE FUNCTION fnNCent
	 (
	 @Num  BigInt
	 )
RETURNS VarChar (15)
AS
BEGIN
	 DECLARE @N  BigInt
	 DECLARE @Temp BigInt
	 DECLARE @NCent VarChar (20)

	 IF @Num = 100
		 SET @NCent = 'cien'
	 ELSE
	 BEGIN
	 SET @N = RIGHT (@Num,3)/ 100

	 SET @NCent =
	 CASE
		 WHEN @N = 1 	 THEN 'ciento '
		 WHEN @N = 2 	 THEN 'doscientos '
		 WHEN @N = 3 	 THEN 'trescientos '
		 WHEN @N = 4 	 THEN 'cuatrocientos '
		 WHEN @N = 5 	 THEN 'quinientos '
		 WHEN @N = 6 	 THEN 'seiscientos '
		 WHEN @N = 7 	 THEN 'setecientos '
		 WHEN @N = 8 	 THEN 'ochocientos '
		 WHEN @N = 9 	 THEN 'novecientos '
		 ELSE 		 ''
	 END
	 END
RETURN @NCent
END
CREATE FUNCTION fnNLetra
	 (
	 @Num  BigInt
	 )
RETURNS VarChar (150)
AS
BEGIN
	 DECLARE @NLetra  VarChar (150)

	 IF @Num BETWEEN 1  AND 9
		 SET @NLetra = dbo.fnNUnidades (@Num)
	 ELSE
		 IF @Num BETWEEN 10 AND 99
			 SET @NLetra = dbo.fnNDecenas (@Num)
		 ELSE
			 SET @NLetra = dbo.fnNCent(@Num) + dbo.fnNDecenas (@Num) + dbo.fnNUnidades
(@Num)

RETURN @NLetra
END


ahora bien cambie la estructura y le he puesto asi:


CREATE FUNCTION fnLL
	 (
	 @Num  BigInt
	 )
RETURNS VarChar (150)
AS
BEGIN
	 DECLARE @Cent Int
	 DECLARE @Dec Int
	 DECLARE @1Dec Int
	 DECLARE @Uni Int

	 DECLARE @NCent VarChar (15)
	 DECLARE @NDec VarChar (15)
	 DECLARE @N1Dec VarChar (15)
	 DECLARE @NUnid VarChar (10)

	 DECLARE @Letras VarChar (150)

	 SET @Letras = ''
	 SET @NUnid =
	 CASE
		 WHEN @Uni = 1 	 THEN 'uno'
		 WHEN @Uni = 2 	 THEN 'dos'
		 WHEN @Uni = 3 	 THEN 'tres'
		 WHEN @Uni = 4 	 THEN 'cuatro'
		 WHEN @Uni = 5 	 THEN 'cinco'
		 WHEN @Uni = 6 	 THEN 'seis'
		 WHEN @Uni = 7 	 THEN 'siete'
		 WHEN @Uni = 8 	 THEN 'ocho'
		 WHEN @Uni = 9 	 THEN 'nueve'
	 END
-- PRIMER DECENA
	 SET @N1Dec=
	 CASE
		 WHEN @1Dec = 10 	 THEN 'diez'
		 WHEN @1Dec = 11 	 THEN 'once'
		 WHEN @1Dec = 12 	 THEN 'doce'
		 WHEN @1Dec = 13 	 THEN 'trece'
		 WHEN @1Dec = 14 	 THEN 'catorce'
		 WHEN @1Dec = 15 	 THEN 'quince'
		 WHEN @1Dec = 16 	 THEN 'dieciseis'
		 WHEN @1Dec = 17 	 THEN 'diecisiete'
		 WHEN @1Dec = 18 	 THEN 'dieciocho'
		 WHEN @1Dec = 19 	 THEN 'diecinueve'
	 END
--DECENAS
	 SET @NDec =
	 CASE
		 WHEN @Dec = 20 	 THEN 'veinte'
		 WHEN @Dec = 30 	 THEN 'treinta'
		 WHEN @Dec = 40 	 THEN 'cuarenta'
		 WHEN @Dec = 50 	 THEN 'cincuenta'
		 WHEN @Dec = 60 	 THEN 'sesenta'
		 WHEN @Dec = 70 	 THEN 'setenta'
		 WHEN @Dec = 80 	 THEN 'ochenta'
		 WHEN @Dec = 90 	 THEN 'noventa'
	 END
--CENTENAS
	 SET @NCent =
	 CASE
		 WHEN @Cent = 100 	 THEN 'ciento '
		 WHEN @Cent = 200  THEN 'doscientos '
		 WHEN @Cent = 300 	 THEN 'trescientos '
		 WHEN @Cent = 400 	 THEN 'cuatrocientos '
		 WHEN @Cent = 500 	 THEN 'quinientos '
		 WHEN @Cent = 600 	 THEN 'seiscientos '
		 WHEN @Cent = 700 	 THEN 'setecientos '
		 WHEN @Cent = 800 	 THEN 'ochocientos '
		 WHEN @Cent = 900 	 THEN 'novecientos '
		 ELSE 			 ''
	 END

	 WHILE @Num >0
	 BEGIN
--CENTENAS DE MILLON
		 IF @Num BETWEEN 100000000 AND 999999999
		 BEGIN
		      IF @Num = 100000000 	 --CIEN MILLONES
			  SET @Letras = 'Cien Millones'
		      ELSE
		      BEGIN
			 SET @Cent = (@Num / 100000000) * 100
			 SET @Letras = @Letras + @NCent
			 SET @Num = @Num % 100000000
		      END
		 END
--DECENAS DE MILLON
		 IF (@Num >= 10000000)  AND (@Num <  100000000)
		 BEGIN
		      IF (@Num /1000000) < 20
		      BEGIN
			 SET @1Dec = (@Num / 1000000)
			 SET @Letras =  @Letras + @N1Dec + 'Millones'
			 SET @Num = @Num % 1000000
		      END
		      ELSE
		      BEGIN
			 SET @Dec = (@Num / 10000000) *10
			 SET @Letras = @Letras + @NDec
			 SET @Num = @Num % 10000000
			 IF @Num > 1000000
				 SET @Letras = @Letras + ' y '
		      END
		 END
--UNIDADES DE MILLON
		 IF @Num BETWEEN 1000000 AND 9999999
		 BEGIN
		      IF @Num = 1000000
			 SET @Letras = 'Un Millón'
		      ELSE
		      BEGIN
			 SET @Uni = (@Num / 1000000)
			 SET @Letras = @Letras + @NUnid + 'Millones'
			 SET @Num = @Num % 1000000
		      END
		 END
--CENTENAS DE MILLAR
		 IF @Num BETWEEN 100000 AND 999999
		 BEGIN
		      IF @Num = 100000
			 SET @Letras = 'Cien Mil'
		      ELSE
		      BEGIN
			 SET @Cent = (@Num / 100000) * 100
			 SET @Letras = @Letras + @NCent
			 SET @Num = @Num % 100000
		      END
		 END
--DECENAS DE MILLAR
		 IF (@Num >= 10000)  AND (@Num < 100000)
		 BEGIN
		      IF (@Num /1000) < 20
		      BEGIN
			 SET @1Dec = (@Num / 1000)
			 SET @Letras =  @Letras + @N1Dec + 'Mil'
			 SET @Num = @Num % 1000
		      END
		      ELSE
		      BEGIN
			 SET @Dec = (@Num / 10000) *10
			 SET @Letras = @Letras + @NDec
			 SET @Num = @Num % 10000
			 IF @Num > 1000
				 SET @Letras = @Letras + ' y '
		      END
		 END
--MILLARES
		 IF @Num BETWEEN 1000 AND 9999
		 BEGIN
		      IF @Num = 1000
			 SET @Letras = 'Mil'
		      ELSE
		      BEGIN
			 SET @Uni = (@Num / 1000)
			 SET @Letras = @Letras + @NUnid + 'Mil'
			 SET @Num = @Num % 1000
		      END
		 END
--CENTENAS
		 IF @Num BETWEEN 100 AND 999
		 BEGIN
		      IF @Num = 100
			 SET @Letras = 'Cien'
		      ELSE
		      BEGIN

			 SET @Cent = (@Num / 100) * 100
			 SET @Letras = @Letras + @NCent
			 SET @Num = @Num % 100
		      END
		 END
--DECENAS
		 IF (@Num >= 10)  AND (@Num < 100)
		 BEGIN
		      IF @Num < 20
		      BEGIN
			 SET @1Dec = @Num
			 SET @Letras =  @Letras + @N1Dec
			 SET @Num = @Num
		      END
		      ELSE
		      BEGIN
			 IF @Num > 20
			 BEGIN
				 SET @Uni = (@Num % 20)
				 SET @Letras = 'veinti' + @NUnid
				 SET @Num = @Num
			 END
			 ELSE
			 BEGIN
				 SET @Dec = (@Num / 10) *10
				 SET @Letras = @Letras + @NDec
				 SET @Num = @Num % 10
				 IF @Num <>0
					 SET @Letras = @Letras + ' y '
			 END
		      END
		 END
--UNIDADES
		 IF @Num BETWEEN 1 AND 9
		 BEGIN
			 SET @Uni = @Num
			 SET @Letras = @NUnid
		 END
	 END  			 --BEGIN WHILE @Num <>0

RETURN @Letras
END


PERO insisto no me muestra los datos, Ojala me puedan ayudar, me interesa
bastante..
Cuando la tenga se las enviare


Gacias por su ayuda.


Rn RmZ.
--
_______________________________________________
Get your free email from http://mymail.mexico.com

Powered by www.M3xico.com

#2304 De: Marlon Steven Martinez <marlonma@...>
Fecha: Mié, 8 de Ene, 2003 4:12 pm
Asunto: (Sin asunto)
marlonma@...
Enviar mensaje Enviar mensaje
 

Hola lista. Alguien sabe como hago para que el usuario pueda cambiar a su antojo el ancho de un control TreeView? Asi como puede cambiar el tamaño de un formulario....

 

 

Gracias.

 

 

Marlon


#2303 De: "Patricio Arancibia" <pato_arancibia@...>
Fecha: Mar, 7 de Ene, 2003 7:50 pm
Asunto: Re: [VBASICWORLD] para patricio
pato_arancibia
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 
Hola Carlos como estas ojalá que bien, bueno aquí te adjunto el proyecto, pero si no lo recibes, escribeme tu mail y yo te lo envío un abrazos y saludos.
 
Patricio Arancibia.

#2302 De: Luis Aponte <aponte@...>
Fecha: Mar, 7 de Ene, 2003 4:46 pm
Asunto: Re: [VBASICWORLD]
aponte@...
Enviar mensaje Enviar mensaje
 
Hola:

El MDAC 2.7 (mdac_typ.exe), podes bajarlo de Microsoft

Luis

07/01/03 12:25:59, Marlon Steven Martinez
<marlonma@...> escribió:

>
>
>  Para:  vbasicworld@yahoogroups.com
>
>  De:    Marlon Steven Martinez <marlonma@...>
>  Fecha: Tue, 7 Jan 2003 10:25:59 -0500
>  Asunto:[VBASICWORLD]
>
>
>
>  Hola lista. Alguien alguna vez me comento que yo debia
instalar un parche
>  para poder correr un programa VB6 con acceso ADO a una base
de datos Access
>  2002 en un equipo con windows 95.
>
>
>  Que parche era?
>
>  Gracias
>
>
>  Marlon
>
>           Publicidad
>
>
>
>
>
>
>
>  Web: http://www.mundovb.net/
>
>  Para darte de baja envía un mensaje a:
>  vbasicworld-unsubscribe@onelist.com
>
>  La utilización de Yahoo! Grupos está sujeta a su aceptación
de las
>  Condiciones del servicio así como de la Política de
privacidad.

#2301 De: Marlon Steven Martinez <marlonma@...>
Fecha: Mar, 7 de Ene, 2003 3:25 pm
Asunto: (Sin asunto)
marlonma@...
Enviar mensaje Enviar mensaje
 

Hola lista. Alguien alguna vez me comento que yo debia instalar un parche para poder correr un programa VB6 con acceso ADO a una base de datos Access 2002 en un equipo con windows 95.

 

Que parche era?

 

Gracias

 

Marlon


#2300 De: Carlos Pérez <carlospg@...>
Fecha: Lun, 6 de Ene, 2003 9:35 pm
Asunto: para patricio
carlospg@...
Enviar mensaje Enviar mensaje
 
patricio no me llego tu proyecto me gustaria verlo
yo estube trabajando en un proyecto parecido
y no lo pude concretar, pues el puerto paralelo no me lo pude aprender muy bien
la cosa es que yo necesito, controlar el tiempo en milisegundos en que de activa o se desactiva un interructor es decir un evento por el puerto paralelo
me podria ayudar en eso
respecto a lo de tu proyecto enviamelo de nuevo por favor que tengo buenas nociones de diseño y trabajé mucho tiempo en control de la calidad de software en un equipo de software
 
 
gracias de antemano
y chao

#2299 De: Carlos Pérez <carlospg@...>
Fecha: Lun, 6 de Ene, 2003 9:34 pm
Asunto: para patricio
carlospg@...
Enviar mensaje Enviar mensaje
 
patricio no me llego tu proyecto me gustaria verlo
yo estube trabajando en un proyecto parecido
y no lo pude concretar, pues el puerto paralelo no me lo pude aprender muy bien
la cosa es que yo necesito, controlar el tiempo en milisegundos en que de activa o se desactiva un interructor es decir un evento por el puerto paralelo
me podria ayudar en eso
respecto a lo de tu proyecto enviamelo de nuevo por favor que tengo buenas nociones de diseño y trabajé mucho tiempo en control de la calidad de software en un equipo de software
 
 
gracias de antemano
y chao

#2298 De: Carlos Pérez <carlospg@...>
Fecha: Lun, 6 de Ene, 2003 9:34 pm
Asunto: para patricio
carlospg@...
Enviar mensaje Enviar mensaje
 
patricio no me llego tu proyecto me gustaria verlo
yo estube trabajando en un proyecto parecido
y no lo pude concretar, pues el puerto paralelo no me lo pude aprender muy bien
la cosa es que yo necesito, controlar el tiempo en milisegundos en que de activa o se desactiva un interructor es decir un evento por el puerto paralelo
me podria ayudar en eso
respecto a lo de tu proyecto enviamelo de nuevo por favor que tengo buenas nociones de diseño y trabajé mucho tiempo en control de la calidad de software en un equipo de software
 
 
gracias de antemano
y chao

#2297 De: Carlos Pérez <carlospg@...>
Fecha: Lun, 6 de Ene, 2003 9:34 pm
Asunto: para patricio
carlospg@...
Enviar mensaje Enviar mensaje
 
patricio no me llego tu proyecto me gustaria verlo
yo estube trabajando en un proyecto parecido
y no lo pude concretar, pues el puerto paralelo no me lo pude aprender muy bien
la cosa es que yo necesito, controlar el tiempo en milisegundos en que de activa o se desactiva un interructor es decir un evento por el puerto paralelo
me podria ayudar en eso
respecto a lo de tu proyecto enviamelo de nuevo por favor que tengo buenas nociones de diseño y trabajé mucho tiempo en control de la calidad de software en un equipo de software
 

#2296 De: "Patricio Arancibia" <pato_arancibia@...>
Fecha: Lun, 6 de Ene, 2003 8:42 pm
Asunto: Circuito que envia datos al puerto paralelo
pato_arancibia
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 
Hola amigos como están, bueno ojalá que bien, bueno mis queridos amigos, vuelvo a pedir su ayuda, como ustedes saben bien, casi termino un proyecto que es el que les envíe para que, lo critique constructivamente, para ver las fallas que tiene, y poderlo solucionar, tanto en la parte de programación como en la estética , si ustedes lo quieren ver, envíenme su mail y yo se los mando ok, pero bueno pasando al tema que pido ayuda, ahora quiero realizar un programa en visual Basic también pero que esta vez reciba los datos, que no los envíe, como lo puedo realizar, por ejemplo que tenga conectado en el puerto de datos un motor y que por el puerto de estado con un sensor, detecte cuantas vueltas da por ejemplo por minuto, entonces mis queridos amigos ustedes me podrían ayudar en eso, si tienen apuntes, paginas Web, o esquemáticos de circuitos o programas que me puedan servir por favor enviarlos a pato_arancibia@... , de antemano muchisimas gracias.
 
Patricio Arancibia. 

#2295 De: "David \(Vodafone\)" <david-delgado@...>
Fecha: Vie, 3 de Ene, 2003 5:50 pm
Asunto: RE: [vbe] Actualizacion de recordset
david-delgado@...
Enviar mensaje Enviar mensaje
 
Hola Guillermo, el tercer campo es tinynt y tu intentas asignar un String ('Listo'), deberias poner algo asi:
 
    With rs
        !col1 = 25
        !col2 = "TEXTO"
        Select Case LoQueQuieroPoner
          Case "Pendiente"
             !col3 = 0
          Case "Listo"
             !col3 = 1
          Case "Terminado"
             !col3 = 2
        End Select

        .Update
    End With
 
 

FELICES FIESTAS Y PROSPERO AÑO NUEVO A TODOS

Salu2 desde Sevilla (España)
david-delgado@...
david_delgado_ruiz@...
http://www.es-facil.com/ganar/alta?Id=63198440

-----Mensaje original-----
De: Guillermo Quiroz [mailto:gqc@...]
Enviado el: lunes, 30 de diciembre de 2002 18:35
Para: grupovb@...; programacionvisualbasic@...; vbasic-es@...; vbasicworld@yahoogroups.com; vbe@...; vb-esp@...; visual_basic@...; visualbasic-esp@yahoogroups.com; VisualBasicSpanish@...
Asunto: [vbe] Actualizacion de recordset

Hola amigos,
quizas alguien pueda darme una mano en esto (si es posible desde luego)
 
Tengo una tabla en SQLServer TABLA1 que tiene 3 columnas col1 integer,col2 varchar, col3 tinynt.
 
Recupero los registros de esa tabla asi:  (para luego asignarlos a un datagrid)
 
select col1,col2,(case col3 when 0 then 'Pendiente' when 1 then 'Listo' when 2 then 'Terminado' end) from TABLA1
 
El problema es que cuando intento modificar las columnas de un registro en el recordset, aparece un error al modificar la ultima columna, para las 2 primeras todo ok.
 
la modificacion del rs la hago asi:
 
    With rs
        !col1 = 25
        !col2 = "TEXTO"
        !col3 = "Listo"
        .Update
    End With
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.426 / Virus Database: 239 - Release Date: 02/12/2002


#2294 De: "Patricio Arancibia" <pato_arancibia@...>
Fecha: Vie, 3 de Ene, 2003 1:29 am
Asunto: Ayuda amigos
pato_arancibia
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 
Hola bueno les escribo porque tengo un problemilla, miren yo estoy mandando datos por el Puerto de datos del puerto paralelo, el problema es que tengo que que dejar seleccionado algunos o todos los pines y luego que se desactiven en un determinado tiempo(D0, D1, D2, D3, D4, D5, D6, D7) e intentado por ejemplo:
 
( Aquí ocupo las variables i y b para realizar un retardo, pero no me resulta, que puedo hacer)
For i = 0 To 10
vbOut lptD, 255
Next i
For b = 0 To 10
vbOut lptD, 127
Next b
 
Lo que necesito es por ejemplo un textbox donde yo coloque cuanto tiempo tiene que estar funcionando el motor por ejemplo del pin 3 (D0), o de lo contrario una función.
Por favor amigo me pueden ayudar, de antemano muchas gracias.
 
Patricio Arancibia.
P.D: Estoy programando en Visual basic 6.0

#2293 De: Renato Espinoza <respinozarios@...>
Fecha: Mar, 31 de Dic, 2002 2:40 pm
Asunto: Re: [VBASICWORLD] ActiveX Labels Controls & Icons
respinozarios
Sin conexión Sin conexión
Enviar mensaje Enviar mensaje
 

Gracias Salvador por la ayuda, también recibe mis saludos por Año Nuevo.

Saludos

Renato

 Salvador Castillo <only_salvador@...> wrote:



Hola Renato,
 
prueba en http://www.lawebdelprogramador.com/ y una vez ahí vete a Servicios (o explora lo que mejor te convenga).-
 
Felíz Año Nuevo,
 
Salvador


MSN 8: advanced junk mail protection and 3 months FREE*.

Web: http://www.mundovb.net/

Para darte de baja envía un mensaje a:
vbasicworld-unsubscribe@onelist.com


La utilización de Yahoo! Grupos está sujeta a su aceptación de las Condiciones del servicio así como de la Política de privacidad.



Do You Yahoo!?
Yahoo! Net: La mejor conexión a internet y 25MB extra a tu correo por $100 al mes.

Mensajes 2293 - 2322 de 4543   Primero  |  < Anterior  |  Siguiente >  |  Último
Avanzado
Añadir a Mi Yahoo!      XML ¿Qué es esto?

Copyright © 2009 Yahoo! Todos los derechos reservados.
Política de Privacidad Actualizada - Condiciones del servicio - Directrices - Ayuda