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