PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  60963 - CAPTURAR UN TEXTO DE VENTANA DE OTRA APLICACION
Autor:  Antoni Gómez
Buenas,
Necesito capturar una porcion de texto de una aplicacion y pasarlo a mi aplicativo.
Se trata de generar un aplicativo que en base a el codigo de articulo de otra aplicacion lanzar mi aplicativo (a traves de una pulsacion de teclas u otra forma) y poder hacer los listados que en el otro aplicativo no existen.
Gracias.
  Respuesta:  Boluart Bedoya
Puedes usar las APIs Findwindow(para capturar el handle de la ventana), GetWindowText (Para capturar el texto de una ventana).

    Pregunta:  61086 - REGISTRO DE WINDOWS
Autor:  Jesus E Mompie Ch
Hola a todos estoy creando un programa que cada un minuto rebice unas claves que puse en registro de windows, es para que el programa fuenciones como una alarma el problema esta: las claves tienen como nombre la fecha en que se mostrara el mensaje ej: 11/05/2009-12:50 el programa comparara la fecha actual con la que esta en el registro. ¿pero cuando el programa compara una encuentra ninguna clave en el registro con dicho nombre muestra un error "Run-time error.... No se pudo abrir la clave del registro"? que puedo hacer. Gracias.
  Respuesta:  Juan Yohely Gomez R,
'Esta Devuelve los datos guardados en el registro

vMes = GetSetting(App.ProductName, "Setup", "Mes", 0)
vAño = GetSetting(App.ProductName, "Setup", "Año", Year(Date))
vEstado = GetSetting(App.ProductName, "Setup", "Estado", 0)
vOrganismo = GetSetting(App.ProductName, "Setup", "Organismo", 0)

'Esta guarda los datos en el registro
Call SaveSetting(App.ProductName, "Setup", "Año", ocAño.Text)
Call SaveSetting(App.ProductName, "Setup", "Mes", ocMes.ListIndex)
Call SaveSetting(App.ProductName, "Setup", "Organismo",ocOrganismo.ListIndex)
Call SaveSetting(App.ProductName, "Setup", "Estado",ocEstado.ListIndex)

    Pregunta:  61104 - ERROR CRISTAL REPORT 20534 USADO POR VB6
Autor:  CECILIA PERALTA
Usando un reporte en CRYSTAL REPORT, llamado por una aplicación en VB6, ambiente WINDOWS XP, me muestra el error :

error # 20534 La DLL de base de datos ha detectado un error

Realizo la conección, desde el VB6, de la siguiente forma :

Report1.Connect = sADOConnect

le envío los parámetros :

Report1.StoredProcParam(0) = TxtFechInic.Text
Report1.StoredProcParam(1) = TxtFechTerm.Text
Report1.StoredProcParam(2) = Str(GV_TipoInforme)
Report1.StoredProcParam(3) = GV_Todas
Report1.StoredProcParam(4) = Str(GV_Tipo)

y al ejecutarlo

Report1.ReportFileName = App.Path + "FactPeriodo.rpt"
Report1.Action = 1

me manda el error antes mencionado:

error # 20534 La DLL de base de datos ha detectado un error

EL REPORTE APARECE BIEN, SIN PROBLEMAS SI LO EJECUTO DIRECTAMENTE POR CRYSTAL
  Respuesta:  Arturo Pacheco
Comprueba que no ha habido modificaciones en la estructura de las tablas. Abre el in¡forme con Crystal y usa la opcion de verificar la base de datos para saber si ha habido cambios

    Pregunta:  61119 - ¿HACER QUE EL NOMBRE DE UNA VARIABLE CAMBIE AUTOMÁTICAMENTE?
Autor:  Anthony Fuentes Artavia
Hola, mi duda es la siguiente. Quisiera saber si hay alguna forma de hacer que el nombre de una variable cambie automáticamente en caso de que se cumpla algo.
Me explico mejor, Por ejemplo tengo una variable "C" que es contador en un ciclo y otras que se llaman nivel0, nivel1 y nivel2.
También tengo esto:

For C=0 to 2

nivelC=algo

'Entonces en este momento el nombre de la variable nivelC sería nivel0
'Es cero, porque ese es el valor que contiene la variable C.
'...y cada vez que el ciclo de una vuelta la variable cambia de nombre.
'De manera que en la segunda vuelta se llamaría nivel1.

Next

¿Hay alguna forma de que yo pueda hacer esto?, me disculpan si parezco muy ignorante, es que tan solo estoy comenzando en Visual Basic. Le hice la misma pregunta al profesor de la Universidad, pero lamentablemente no me supo responder.
Mis más sinceras gracias para los que tomen un poco de su tiempo en leer mi pregunta y me ayuden a aclarar mi duda. Gracias.
  Respuesta:  NEager Hooo
Compadre no se cual es su intención con esto mas aqui le va una Idea espero sea ùtil

Una variable declarada no puede cambiar de nombre pues cuando se ejecuta un programa estas variables reservan un espacio de memoria para guardar un tipo de dato. Ejemplo dim c as integer reserva un espacio y esa variable no va a cambiar.

Lo que se me ocurre es que si necesitas guardar informacion diferente lo declares como un arreglo de datos un arreglo reserva desde uno hasta n espacios de memoria dentro de los rangos permitidos del lenguage

dim c(3) as integer te aparta 4 espacios de memoria ejemplo
c(0) 1 espacio
c(1) 2 espacios
c(2) 3 espacios
c(3) 4 espacios

Ahora bien si tu no sabes cuantos espacios de memoria vas a utilizar hay una palabra reservada que se llama redim esto es redimencionar el arreglo y por ende el espacio de memoria reservada

redim c(4) esto te redimenciona a 5 espacios de memoria mas te borra toda la informacion en el arreglo

si quieres conservar los valores seria

redim preserve c(4) y de esta manera conservas los valores.

ahora bien tal vez te podrian ayudar en este foro si fueses mas especifico capaz y solo necesitas algun semaforo o bandera pero any way dirian los weritos suerte

    Pregunta:  61195 - PROBLEMAS CON FECHAS EN CONSULTAS
Autor:  Idoia Z
Hola!
Tengo una base de datos donde a cada registro le asigno una fecha. Necesito calcular cual es la última fecha, utilizo esta consulta:
SELECT Max([fecha]) AS Ultima_Fecha FROM tabla;
No se como crear otra consulta basándome en este dato. Necesito sacar los últimos registros menores de 7 días y para compara la fecha utilizo: ((DateDiff("y",ultima_fecha,Now()))<=7));
No se como llamar a la consulta anterior para realizar este cálculo, he intentado hacer una subconsulta y una consulta de Unión pero me da errores.
También lo he intentado mediante Código en un formulario pero tampoco lo consigo. Si alguien puede ayudarme.
Muchas gracias.
  Respuesta:  Laubrisa Orellana
Hola

Lo que entiendo de tu consulta es que necesitas obtener todos los registros menores a 7 dias de la fecha mayor y para eso te sirve

SELECT *
FROM prueba
where fecha<=((select max(fecha) -7 from prueba))
order by fecha desc;

por ser un campo fecha le puedes restar directamente los dias si fuera un campo numerico tendrias que calcular la fecha

espero te sirva

    Pregunta:  61234 - DATAGRID SIN DATASOURCE...
Autor:  Álvaro J. Guillén S.
Hola mi gente, escribo para solicitar su ayuda, estoy haciendo una factura en Visual Baisc 6 con 1 Datagrid, 9 text box, 2 ADO, 5 CommandButtons, 2 Datacombo con 1 Base de Datos hecha en Microsoft Access 2003. La lógica de lo que quiero hacer es lo siguiente:
1 datacombo está conectado a la BD y arroja la información del Cliente en 4 Textbox, el otro Datacombo está relacionado con la misma BD pero para extraer la información de los ítems a facturar, luego cuando los textboxes tengan la información respectiva se debe hacer click en un botón para que esta se agregue en el Datagrid, a su vez debe multiplicar la cantidad elegida por el usuario por el preio unitario del producto como también incrementarse el acumulador del total de la factura. El otro botón es de eliminar, el cual debe, valga la redundancia, eliminar el ítem seleccionado en el Datagrid, el siguiente botón debe modificar la información del ítem seleccionado en el Datgrid, el próximo botón debe cancelar la factura y el último salir de la factura.

Les agrtadezco si pueden ayudarme en esto que planteo, por supuesto que acepto sugerencias o cambios en pro de la mejora, facilidad y cumplimiento de este planteamiento.

Sin más que agregar y esperando su mayor colaboración en la solución del asunto me despido de ustedes mis colegas programadores...

Álvaro J. Guillén S.
[email protected]
0426-8329873
  Respuesta:  Oscar Gochicoa
La solucion es muy simple:

datagrid1.col=(n).coldata.recordsource.(j+1).text.datagrid1.row

Saludos.

Oscar

    Pregunta:  61307 - COLOR FUENTE EN UN LISTVIEW
Autor:  kroKus
holas... necesito cambiar el color de una fuente pero es algo preciso. Cambiar el color al quinto SubItems. Si alguien sabe como hacerlo sería grandioso.

lw_cuotas_socio.SubItems(1) = rsAdo(1)
lw_cuotas_socio.SubItems(2) = rsAdo(2)
lw_cuotas_socio.SubItems(3) = rsAdo(3)
lw_cuotas_socio.SubItems(4) = rsAdo(4)
lw_cuotas_socio.SubItems(5) = rsAdo(5)
  Respuesta:  Carlos Salas
kroKus

Si no mal recuerdo para poder colorear el subItems es asi
LaLista.ListItems(Linea).ListSubItems(Columna).ForeColor = Color

en tu caso seria...
lw_cuotas_socio.SubItems(1) = rsAdo(1)
lw_cuotas_socio.SubItems(2) = rsAdo(2)
lw_cuotas_socio.SubItems(3) = rsAdo(3)
lw_cuotas_socio.SubItems(4) = rsAdo(4)
lw_cuotas_socio.SubItems(5) = rsAdo(5)
lw_cuotas_socio.ListItems(Linea).ListSubItems(Columna).ForeColor = "Color"

el color lo puedes hacer de dos formas
1. RGB(204, 255, 204)

' Red Green Blue Color
'Black 0 0 0 [Black]
'White 255 255 255 [White]
'Red 255 0 0 [Red]
'Green 0 255 0 [Green]
'Blue 0 0 255 [Blue]
'Yellow 255 255 0 [Yellow]
'Magenta 255 0 255 [Magenta]
'Cyan 0 255 255 [Cyan]

y la otra es
2. Dandole valores especificos
ejemplo
Public Const blanco As Long = 16777215
Public Const verde As Long = 13434828
Public Const azul As Long = 16737843
Public Const naranjo As Long = 52479

    Pregunta:  61318 - ERROR AL CAMBIAR TAMAÑO DE PAGINA EN EL CODIGO VB
Autor:  sarai garcia
Hola quisiera me ayudarn con un error que muestra el codigo de visual basic. Quiero imprimir en tamaño oficio y escribo el codigo pero al ejecutarlo me muestra el error "el valor de la propiedad no es valido"

y el codigo que escribo es:

Printer.PaperSize = vbPRPSLegal

y en esta linea me marca el error
  Respuesta:  conra11
Hola sarai, yo tuve el mismo problema hace poco. El problema es del S.O. si usas win 2000 o xp, te da el error de " el valor de la propiedad no es valido"
Para solucionarlo tenes que desactivar esa linea de codigo, ir a impresoras y fax seleccionar la impresora predeterminada, despues te vas a archivo y a propiedades del servidor, ahi tenes todos los tamaños del papel, modificalo de ahi.
Espero que te sirva. Saludos.

    Pregunta:  61350 - ESPERAR UN ARCHIVO DESDE UNA MACRO EN EXCEL
Autor:  Shakira Mevarack
Hola a todos

Alguien me puede decir como puedo hacer para esperar que exista un archivo en una ruta X para que mi macro de excel continue...???

Esta es la intencion....

Mi macro de excel lanza por medio de un shell un bat, el cual corre un programa ejecutable en foxpro que genera un archivo dbf en una ruta X

Debo esperar en excel a que ese bat termine de generar el archivo para abrirlo y extraer la informacion del dbf a una hoja de excel.

Cualquier comentario es muy agradecido...

Saludos
  Respuesta:  Gonzalo Quintana
Hola Shakira:

Podrías utilizar una pausa en el código para darle tiempo de que se cree el archivo. Tal vez el código siguiente te sirva:

Application.Wait Time + TimeSerial(0, 0, 0)

Donde el primer 0 corresponde a horas, el segundo a minutos y el tercero a segundos.

Lo que hace el código es pausar la ejecución del mismo durante el tiempo que vos le pongas. Probalo y comentame si te sirvió o no...

Saludos,

Gonzalo

    Pregunta:  61355 - ERROR CONEXION ADO DESDE VB6 EN WIN SERVER 2008 64BITS
Autor:  Christian Moreno Albán
Señores, mi consulta es la siguiente:
Estoy trabajando con un Windows Server 2008 64 Bits SP2 en el cual deseo correr una aplicacion desarrollada en VB6 la cual se conecta aun a BD SQL 2008 por medio de ADO. Dicho sistema se conecta sin problemas con SQL2008 pero en Win XP 32 Bits, cuando lo corro en el de 64 me sale el siguiente mensaje:
ERROR 3706, no se encontró el proveedor especificado.

Quisiera ayuda al respecto.

Gracias
  Respuesta:  NEager Hoooooo
Compadre ese error era muy comun y sucedia que los archivos de acceso a datos necesitaban actualizarse, dado que las conecciones a las bases de datos fueron cambiando con DAO, ADO , ODBC para distintos proveedores como lo son SQL Server, My Sql etc etc.

Probablemente tu problema se solucione con un parche en la aplicación y asegurate que en tu servidor para ese ejecutable selecciones correr en 32 bits

suerte !

|<  <<  293 294 295 296 297 298 299 300 301 302 303  >>  >|