|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - J.M.Movilla
Páginas: 1 ... 7 8 [9] 10 11 ... 17
201
« en: Jueves 8 de Mayo de 2003, 17:35 »
Hola, pues sustituye la SQL por:
Set rs = base.OpenRecordset("select * from personal where fecha between #" & Text1.Text & "# and #" & Text2.Text & "#")
Saludos y suerte
202
« en: Miércoles 7 de Mayo de 2003, 22:25 »
Hola, becker24:
No sé por qué me da la impresión de que el campo codigo es de tipo numérico...
En este caso, y suponiendo que no quedes conforme con la solución que le has dado, porque es poco elegante..., prueba a usar la académica, que sería
base.execute "delete * from historico where rut= '" & text1.text & "' and codigo=" & text2.text
(como puedes apreciar, si codigo es numérico, text2.text debe ir SIN COMILLAS SIMPLES...
Y en último caso, si te funciona bien, pues aguanta..., que cuando lo compiles el programa fuente no cuenta para nada...
Saludos
203
« en: Martes 6 de Mayo de 2003, 23:40 »
Hola, yosita:
Tú dices textualmente La mala noticia es que solo funciona bien con el ejemplo que tu me mandaste, es decir, en el campo descripcion, copie un campo de mi BD original y el error volvio.
Mi rutina no copia un campo de una BD en otro campo... sino un fichero (DE EXTENSIÓN .RTF, NO .DOC) en un campo memo de tu BD.
Yo genero un documento en Word, lo grabo con formato .rtf y lo grabo en el campo tipo memo. Es superpráctico, y luego ya ves que se usa perfectamente.
Ojalá le saques el jugo y des con el motivo de tu fallo. Un beso.
204
« en: Martes 6 de Mayo de 2003, 11:59 »
Simplemente con intentar leer el formulario que me envías no obtengo nada más que errores, porque no encuentra ninguno de los objetos a los que hace referencia. Y no digamos si pretendo ejecutarlo... Todos los Combos, y las Grid remiten a tablas de una base de datos que no existe...
Comprende que no puedo dar ni un sólo paso para intentar buscar dónde hay fallos...
Tengo una dirección de correo por si te resulta más garante... Y espero poder echarte una mano.
205
« en: Martes 6 de Mayo de 2003, 01:40 »
Pues es que no le das la orden de IMPRIMIR; sólo le has dicho lo que tiene que imprimir... Mientras no le envíes la orden de Printer.EndDoc la impresora no hace nada más que acumular datos en el buffer...
Tu código tendrá que ser:
case is=”imprimir” printer.print tab(5);text1.text Printer.EndDoc
y verás cómo te lanza el texto puntualmente.
Saludos y suerte
206
« en: Martes 6 de Mayo de 2003, 01:32 »
Me alegra ver que has solucionado tu problema: de todos modos, el sistema que te he mandado por e-mail (simplemente sustituyendo nombredefichero.doc por nombredefichero.rtf) a mí me ha funcionado perfectamente. Y yo tengo aplicaciones que ruedan con el mismo código en W98, en WXp y en X2000...
Espero que hagas la prueba de mi versión y que informes de si sirve o no para solucionar tu problema: ¡ésa es mi factura...!
Saludos afectuosos
207
« en: Martes 6 de Mayo de 2003, 01:23 »
Yo empleo las búsquedas habitualmente así:
Buscar = "rut like '" & NumRut & "'" Data2.Recordset.FindFirst (Buscar) If Data2.Recordset.NoMatch Then MsgBox("No se encuentra el dato que se buscaba") Exit Sub End If
A ver si a la tercera va la vencida, a pesar de que veo bien los anteriores métodos... Saludos
208
« en: Lunes 5 de Mayo de 2003, 09:56 »
Sí, sí... Los dos hablamos de lo mismo. Lo que yo trato de decirte es que esa idea de integrar las librerías en el ejecutable no me parece beneficiosa, pero dejando previamente sentado el que es mi opinión, y que puedo estar equivocado. Perdóname si no coincido con tu opinión, y recibe un saludo cariñoso
209
« en: Domingo 4 de Mayo de 2003, 21:02 »
Perfectamente, puedes usar dos bases de datos en tu aplicación, y también usar una base de datos desde dos aplicaciones de forma simultánea. Lo único que no puedes hacer (creo yo por mi experiencia) es tratar ambas BD en una misma SQL. Pero en tu caso yo creo que eso no va a crearte problema, porque me da la impresión de que la tabla "clientes" sólo vas a actualizarla desde la primera aplicación, y en esta segunda vas solamente a leer sus datos, con un FisrtFind, por ejemplo. Para tu tranquilidad puedo garantizarte que nosotros usamos simultáneamente bases de Oracle y de Access, intercambiando datos entre ellas.
Saludos y suerte
210
« en: Domingo 4 de Mayo de 2003, 20:51 »
Muchas gracias, Miguel, por tu ayuda. Seguramente cuando yo instalé W-Xp no tuve en cuenta esta advertencia; lo cierto es que lo pasé muy mal porque me fallaban todas las actualizaciones, y decidí volver a W-98.
No me lo tomes como signo de desconfianza; pero a pesar de que ya he bajado el dCom98.exe, voy a esperar a que me conteste otro compañero que ya lo tenga experimentado.
Y gracias también por la indicación sobre CR en VB6; la verdad es que utilizo más el Excel que el CR, porque mis informes van dirigidos sobre todo a posteriores estudios estadísticos...
Saludos y toma un rato de sol por mí en el Sardinero.
211
« en: Domingo 4 de Mayo de 2003, 20:16 »
Pues no me queda más que pedir perdón por la metedura de pata. Efectivamente en el disco 3 de Visual Studio viene incluida la instalación de CR, la misma versión que soportaba VB5.0 Como hoy tengo problemas en mi PC no puedo instalarla para indicarte de qué versión de CR se trata.
212
« en: Domingo 4 de Mayo de 2003, 16:55 »
Lo que tú quieres ¿es distinto al "Buscar y Reemplazar en la totalidad del proyecto" tal palabra por esta otra palabra? Porque, la verdad, no entiendo que pueda ser otra cosa diferente, salvo que busques un reemplazar el nombre en ejecución... para lo que no encuentro una utilidad clara...
Ya nos dirás si tu problema era simplemente que no habías caído en la cuenta de que eso ya estaba resuelto, o que yo soy un simple que te he tomado por despistado o ignorante... y, por supuesto, te ruego anticipadamente que me perdones.
213
« en: Domingo 4 de Mayo de 2003, 16:47 »
¿Te imaginas lo que sería incluir en cada ejecutable todas las librerías que utiliza?. Como si quisieras incluir además todas las API's y módulos del sistema, para poder ejecutarlo sin depender de Windows... En primer lugar los ejecutables serían enormes: para hacer una simple calculadora necesitarías un ejecutable de un montón de Mb... y con la desventaja de que todos los .exe serían una repetición de lo mismo...
Cuando preparas una instalación ya se incluyen automáticamente todas las librerías que usa ese ejecutable, pero al instalarlo sólo se copian las que el equipo necesite; así se evitan repeticiones... Eso es lo lógico; lo que tú pides, a mí me parece que va contra la lógica.
Perdóname si mi opinión es consecuencia de no entender tu punto de vista, y recibe un cariñoso saludo.
214
« en: Sábado 3 de Mayo de 2003, 09:33 »
Totalmente de acuerdo con esta idea. Estoy seguro de que la gente seguirá pidiéndote direcciones donde acudir, y pocos entrarán a consultar directamente a este foro específico... pero ya tendremos la posibilidad de indicarles el camino.
Que tengas suerte con el nuevo proyecto
215
« en: Sábado 3 de Mayo de 2003, 09:21 »
Os ruego ayuda urgente:
Yo tengo dos discos, uno con Xp y otro con 98; éste lo uso casi exclusivamente para programar y preparar las instalaciones del VB.
Cuando pasé a hacerlo con Xp casi me muero del susto: todos mis programas dejaban de funcionar en cuanto actualizaba algún cambio...
Los que tengáis práctica en esto, ¿qué tengo que hacer para que pueda trabajar en Xp con garantía de que mis ejecutables no me den problemas al rodarlos en 98?
Hoy me ha cascado el disco de Windows'98; por eso lanzo este SOS URGENTE. Muchas gracias a todos
216
« en: Sábado 3 de Mayo de 2003, 09:13 »
217
« en: Viernes 2 de Mayo de 2003, 19:59 »
Agradecido de antemano. Y no te preocupe la demora.
218
« en: Viernes 2 de Mayo de 2003, 16:51 »
No me tomes por adivino... De momento tenemos unos cuantos objetos o variables que tengo que inventarme para poder realizar una prueba con tu código:
Plato.mdb, clsPlato, Plato.Todos_Platos(6).Value, DRMuestrario y probablemente algo más que vaya surgiendo...
Tienes que enviar la parte de tu proyecto, con formularios, con módulos, con diseñadores... Porque ¿quién nos asegura que no es precisamente en el DataReport o en el DataEnvironment donde está el error?
Si tienes problemas con los famosos 64 Kb puedes usar un e-mail al [email:1ene6coh]jmovillac@hotmail.com[/email:1ene6coh]
A ver si tenemos suerte
219
« en: Viernes 2 de Mayo de 2003, 16:25 »
Hola de nuevo, Wolfstein:
Tú puedes utilizar una base de datos de Access, sin que ello te obligue a tener instalado Access en el equipo en el que vayas a ejecutar la aplicación en VB que vaya a manejar esa base de datos. Lo único que no podrás hacer es manejar los ficheros.mdb directamente desde fuera de la aplicación; las librerías necesarias para que VB pueda manejar esos ficheros se incorporarán en el equipo-destino al instalar tu paquete.
Del mismo modo podrás manejar ficheros.doc, con formato de Word. Lo que, naturalmente, no podrás será abrir estos ficheros con Word si no tienes instalada esa parte de Office.
Hasta otra.
220
« en: Viernes 2 de Mayo de 2003, 16:19 »
Hola de nuevo: VB no tiene incorporado CR. Sólo un control (DataReport) con el que puedes hacer reportes con el mismo formato que usa CR. DataReport te permite realizar cuatro cosas; Crystal Report tiene cuatro mil funciones (?)... Pero CR es un paquete independiente, que cuesta sus dineritos (no sé cuánto la última versión 9) y que tienes que implementar en tus aplicaciones... O sea: que se parecen como el agua al vino... Si te valen las cuatro cosas que te hace DataReport, olvídate de CR; si tu trabajo va a apoyarse especialmente en el reporte, adquiere la última versión de CR (en poco tiempo ha pasado de la versión 7 a la 9) y dedica una temporadita a su aprendizaje.
Y a sacarle mucho jugo...
222
« en: Viernes 2 de Mayo de 2003, 02:02 »
Pues sí que está complicada la cosa... Yo haría lo siguiente:
Leo el campo, lo mando a Word, lo corrijo y actualizo, vuelvo a grabar el campo con este fichero corregido y... a ver qué pasa al repetir su lectura y nuevo envío a Word...
Yo trabajo mucho con ficheros .rtf y uso Word constantemente desde VB. Sólo una vez tuve problemas que tuvo que solucionarme la propia casa MicroSoft. Recuerdo que me mandó borrar un montón de líneas del registro en la sección HKEY_LOCAL_MACHINE, Software, Microsoft, Office; pero no recuerdo cuáles fueron ni mucho menos si esas mismas serán las que generan tu problema.
Si te parece, puedes enviarme parte de tu fichero y de tu código con lo suficiente para que pueda echarte una mano, SI ME ES POSIBLE...
Que te dure poco el dolor de cabeza...
223
« en: Viernes 2 de Mayo de 2003, 01:46 »
Yo no veo el inconveniente en que inmediatamente antes del unload o hide del formulario que quieres mantener visible, añadas esta línea de código Sleep = SleepEx(5000, 0) ' Si quieres hacer una pausa de 5 segundos
O que pongas esa línea dentro de ese formulario, allá donde desees mantener unos segundos más la imagen en pantalla...
Pero, claro, eso ya tienes que hacerlo tú.
Saludos de nuevo y que des con la solución
224
« en: Jueves 1 de Mayo de 2003, 18:30 »
Tu problema es indudablemente un conflicto de que generas el informe con una versión moderna y tratas de reproducirlo con una versión antigua. Pero NO DE WINDOWS, sino de OFFICE. Creo que los campos memo (.rtf) tienen formato con Word 2000 y lo quieres reproducir con Word 97... Si no utilizas Word, habrá que pensar en que es una librería de VBA.
Lo primero que creo que debes haces es rellenar los campos memo con la más antigua de las versiones de Office, porque así lo reproducirán bien las versiones más modernas.
Saludos y suerte
225
« en: Jueves 1 de Mayo de 2003, 00:45 »
Por ejemplo puedes usar este truquito:
With frmPropietarios.datEstablecimientos.Recordset txtNit = .Fields("Nit") & " " txtRazonSocial = .Fields("Razon_Social") & " " txtDireccion = .Fields("Direccion") & " " If .Fields("Grupo_Codigo") = Null Then txtGrupo = " " ' NO PONGAS "", SINO " " Else txtGrupo = .Fields("Grupo_Codigo") End If cmbUso.Text = .Fields("Uso") & " " txtActividad = .Fields("Actividad") & " " If .Fields("Observaciones") = mNulo Then txtObservaciones = " " ? IDEM Else txtObservaciones = .Fields("Observaciones") End If txtSolicitud = .Fields("Nro_Solicitud") + 0 '(En los campos numéricos... Este sería de texto, así que: & " ")
etc. etc.
En los campos de fecha puedes sustituir por Date si es nulo...
Saludos y que te sirva de solución
Páginas: 1 ... 7 8 [9] 10 11 ... 17
|
|
|