PREGUNTAS CONTESTADAS - Velneo

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  7984 - INSERTAR SALTO DE PAGINA EN EXCEL
Autor:  Leonardo Granata
Deseo abrir un archivo XLS con Visual Basic 6 utilizando el Excel Library 9 y poder insertarle un SALTO DE PAGINA.
Segui los ejemplos de Microsoft (MSDN.COM) pero me da el error "application-defined or object-defined error".

Pude cambiar la tipografia, tamaño de las letras y hasta la orientacion de la pagina pero no puedo con el salto de pagina y es muy importante ya que es algo para mi trabajo y andamos sin tiempo.

Muchisimas Gracias
  Respuesta:  Victor Paredes
Lo que estas planteando tiene una solucion que es bastante efectiva, yo estoy manejando mucho Excel... pero desde Visual Fox. Lo que yo hago es abrir Excel y poner a grabar una Macro, despues hago en Excel lo que yo quiero hacer en Fox. Despues de esto dejo de grabar la macro y me fijo el codigo que me dejo la macro (Herramientas .... macros....macro... modificar). Este codigo que te deja Excel es Visual Basic. Yo tengo que tratar de pasarlo a Fox, pero vos tendrias que copiarlo tal como esta.
Espero que te sirva de ayuda...

    Pregunta:  8003 - MODIFICAR VINCULOS ACCESS DESDE VB6
Autor:  Leonardo Granata
Hola, tengo tablas vinculadas y quiero modificar el path desde una app en vb6.

Muchas Gracias
  Respuesta:  Gustavo Baltodano
Hola amigo. Lo que tu deseas lo puedes hacer desde las propiedades del motor jet, de la siguiente manera

Dim tdf As TableDef
fichero = "dbo_nombretabla"
Set tdf = BD.TableDefs(fichero)
tdf.Connect = "ODBC;DSN=NOMBRE_DSN ";UID=NOMBRE_UID;PWD=NOMBRE_PWD";database=NOMBRE_BD;SRVR=NOMBRE_SERVER"
tdf.RefreshLink

indicas las propiedades que desees y luego refrescas el link

Suerte y saludos

    Pregunta:  8022 - ACTUALIZAR IMPRESIONES CON DATAREPORTS
Autor:  Ramon Jaramillo
hola:
Tengo un problema con Visual Basic 6.0 y su nueva herranmienta, el Datareportes, ya logre ligar los datos de la tabla al data reports, y los imprime, pero el problema es que si mando otro, asi sean 5 nuevos reportes, siempre me manda el primero quisiera saber como actualizar el reporte, y que me envie el actual, no el primero.
les agradecere mucho si alguien me lo puede solucionar.
  Respuesta:  Bases de Datos Sistemas C.A.
Si te entiendo el porblema es que envian a imprimir un lote y siempre te sale el primero si es asi, una solucion temporal es colocar una pausa y que le de enter al terminar de imprimir cada uno

ciclo
Imprimir
msgbox "Presione a lo que termine de imprimirse el reporte"
end ciclo

www.bdsca.com
[email protected]
[email protected]

    Pregunta:  8036 - IMPRIMIR CODIGO HEXADECIMAL SIN UTILIZAR LA OPCION PRINTER
Autor:  Rafael Morales
Hola:
Nesesito mandar a lpt1, un codigo hexademimal, que el usuario introduce, tipo 40H, sin utilizar el objeto priter, como podria realizazarlo, se puede utilizar la funcion put, pero para mandar el hexadecimal(text1), como lo realizo
Gracias de antemano
  Respuesta:  Vicente
Hola, existe una funcion que convierte un numero en formato hexadecimal, esta es Hex(), entonces puedes poner el parametro de la caja de texto, y despues enviarlo con put(). Y para enviar los datos a traves del puerto puedex utilizar el componente Comm Control, que quizás te sirva para esto.
  Respuesta:  Carlos Araya
mira para realizar lo que deseas hacer una de esllas es la sgte.

open "lpt1" for output as #1
print #1, asc(caracter)
close #1

en caracter tu puedes colocar el keyascii que preciona el usuario, tienes que tener en consideracion que con la instruccion close #1 se ejecutara la impresion no antes.

espero que te sirva lo anterior

salu2 carlos araya d.

    Pregunta:  8053 - COMO USAR FUNCIONES DE BD DE ORACLE DESDE VISUAL BASIC ?
Autor:  Ricardo Manuel Asato Oyama
Por favor. Alguien podría ayudarme con este problema.
¿Como puedo usar una funcion de base de datos de Oracle en Visual Basic.?
  Respuesta:  Patricio Garibaldi
A que te referis especificamente?
A ejecutar una función creada por vos en un package o una propia de Oracle.
En ambos casos, utiliza DAO, ADO (conexión a Base de Datos) y la ejecutas como siempre.
Si tenes problemas, avisame....

    Pregunta:  8055 - MOUSE MOVE COMO UTILIZARLO
Autor:  VLADIMIR AMADOR RETAMOZO JIMENEZ
QUISIERA PROGRAMAR CON EL EVENTO MOUSE MOVE, (COMO LOGRO CAMBIAR DE COLOR EL TEXTO CUANDO EL MOUSE PASA POR ENSIMA Y COMO RESALTAR LA IMAGEN) POR FAVOR ESPERO SU AYUDA.
  Respuesta:  Marco Santis A.
Amigo Vladimir:
es simple... dentro del evento Mouse_Move tu preguntas lo siguiente:

Rojo = <Código del color Rojo en HEX>
Azul = <Código del color Azul en HEX>

if <texto.ForeColor> = Rojo then
<texto.ForeColor> = Azul
else
<texto.ForeColor> = Rojo
endif

lo mismo para resaltar una imagen pero trabajas con los
Border Style

    Pregunta:  8067 - DESCARGA DE UN ACTIVEX
Autor:  ton mesalles ramos
He hecho un control activex para instalar en la intranet de la empresa en que trabajo. He publicado el archivo .cab y la página correspondiente en un servidor iis, pero cuando se ejecuta la página, no se descarga el componente en el cliente.Una vez configurado el explorer para permitir descargar activex, la página no hace nada.
no se si me he dejado algo en el control o se tiene que parametrizar algo en el iis.(?)
muchas gracias anticipadamente.
  Respuesta:  Manuel Arredondo
Ademàs de configurar el explorer debes configurar el directorio virtual del servidor IIS para que tenga permiso de lectura,ejecuciòn y comandos.
Espero haberte ayudado. Saludos.

    Pregunta:  8069 - BASE DE DATOS PARADOS CON CLAVE A TRAVES DE DAO
Autor:  Marcelo Hosan
Es posible ver una tabla Paradox que tiene clave en Visual Basic con Dao?. Hay alguna forma de leer los valores (no es necesario editarlos).
Desde ya muchas gracias!!
  Respuesta:  Sonia Calzada
Claro que si solamente tienes que agregar un DNS en la ODBC para poder accesar a la Base de datos de Paradox utilizando el controlador de Paradox.
En Visual Basic agregas un componente denominado ADO DataControl y un Data Grid Control y con eso puedes visualizar la tabla en una forma de Visual Basic.

    Pregunta:  8100 - MANEJO DE FIRCHEROS EN VISUAL BASIC
Autor:  Michael Henry Cornejo Cuaquira
Holas a todos, Nesecito ayuda sobre Visual Basic en el tema de manejo de ficheros , leyendo varios manuales, cursos y foros de consulta me dieron ayuda de como mandar un fichero a la papelera de reciclaje y me resulto interesante pero sobre es instruccion al ejecutarla aparece el cuadro de consulta sobre si deseo mandar el fichero si/no, quisiera saber si me pueden ayudar en esto, quisiera que no aparesca el mensaje sin utilizar el kill.

Sobre manejo de ficheros desearia saber como puedo eliminar,mover,pegar o copiar un fichero en visual basic si tener que recibir el cuadro de consulta o verificacion.

Estaré muy agradecido si pudiesen ayudarme..
  Respuesta:  Xavi
Hola Michael, para ello, vb trae sus propias instrucciones para crear, eliminar, etc...
por ejemplo, para copiar un archivo es filecopy
Kill, elimina un archivo del disco
RmDir, elimina una carpeta o directorio del disco.
ChDir, cambia el directorio o carpeta actual
Mkdir, crea una nueva carpeta o directorio
Rmdir, elimina una carpeta o directorio.

Para crear un nuevo fichero, utiliza la instruccion Open(...)

Espero que te sirva.

    Pregunta:  8120 - MASCARAS DE EDICION
Autor:  Mariano Birba
Buenas Tardes.
Quisiera que me recomienden mascaras de edicion para datos como importes, porcentajes, etc.
Considero que el Mask Edition de Visual es una porqueria.
Muchas Gracias
  Respuesta:  Xavi
Hola Mariano, aqui te adjunto dos funciones que realice para ello...

'**************************************************
'* InsertarPuntosMiles 12/07/99 *
'* Inserta los puntos de miles en un valor *
'* numerico. Detecta la coma de separación de *
'* decimales *
'* *
'* Deve recibir el numero en formato string *
'* *
'* Devuelve el numero en formato string *
'**************************************************
Function InsertarPuntosMiles(Cadena As String, Pesetas1_Euros2 As Integer) As String
Dim i As Long
If Len(Cadena) = 0 Then
InsertarPuntosMiles = "0"
Exit Function
End If
Cadena = EliminarPuntosMiles(Cadena)
'colocamos las comas de los miles y punto de decimales
If Pesetas1_Euros2 = 2 Then 'Mostrar Euros
Cadena = Format(CCur(Cadena), "#,##0.000")
Else 'Mostrar Pesetas
Cadena = Format(CCur(Cadena), "#,##0")
End If
InsertarPuntosMiles = Cadena
End Function

'**************************************************
'* EliminarPuntosMiles 12/07/99 *
'* Elimina los puntos de miles en un valor *
'* numerico. Detecta la coma de separación de *
'* decimales. *
'* *
'* Deve recibir el numero en formato string *
'* *
'* Devuelve el numero en formato string *
'**************************************************
Function EliminarPuntosMiles(Cadena As String) As String
Dim Posicion As Long
Do
Posicion = InStr(Cadena, ".")
If Posicion <> 0 Then Cadena = Left(Cadena, Posicion - 1) & Right(Cadena, Len(Cadena) - Posicion)
Loop While Not Posicion = 0
EliminarPuntosMiles = Cadena
End Function

En el evento GotFocus, tienes que colocar:
text1.Text = EliminarPuntosMiles(txtPesetas.Text)

En el evento LostFocus, tienes que colocar:
text1.Text = InsertarPuntosMiles(txtPesetas.Text, 1)

|<  <<  96 97 98 99 100 101 102 103 104 105 106  >>  >|