|
|
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 - cpmario
Páginas: 1 [2] 3 4 ... 26
26
« en: Miércoles 1 de Abril de 2009, 09:11 »
La manera de guardar el último directorio y poder acceder de nuevo a este directorio es grabándolo en el registro. Te muestro un código que uso en mi corrector ortográfico y que puedes colocar en un módulo. Option Explicit Public gstrWorkDir As String Const mstrThisApp = "MiAplicacion" ' Constante del registro del nombre de la aplicación. Const mstrWorkDirKey = "Work Dir" ' Constante del registro para la clave. Sub GetWorkingDir() Dim Retval As String Dim Key As String Dim Default As String Key = "WorkDir" Default = "Not Used" Retval = GetSetting(mstrThisApp, mstrWorkDirKey, Key, Default) If Retval <> "Not Used" Then gstrWorkDir = Retval Else gstrWorkDir = App.Path 'Directorio de trabajo inicial End If End Sub Sub WriteWorkingDir() Dim Key As String If LenB(gstrWorkDir) <> 0 Then Key = "WorkDir" SaveSetting mstrThisApp, mstrWorkDirKey, Key, gstrWorkDir End If End Sub
En la variable gstrWorkDir se guarda el nombre del directorio. Obtienes el directorio de trabajo de la siguiente manera: Posterior a mostrar la ventana del commondialog con cdlgMain.Action y que obtienes el nombre del archivo con el comando cdlgMain.FileName escribe la siguientes líneas para grabar el directorio de trabajo: gstrWorkDir = CurDir call WriteWorkingDir
Faltan detalles pero espero haberte dado la idea. 
27
« en: Domingo 29 de Marzo de 2009, 20:21 »
Si mejor hazle caso a m0skit0  Personalmente no resolvería el caso como mostré en el código anterior. Solo intenté facilitarle las cosas con el código que ya tenías. Lo ideal para mi, sería colocar un control RichTextBox, abrir el archivo con el RichTextBox.LoadFile introducir las líneas nuevas del log al principio de este control y al finalizar guardar con RichTextBox.SaveFile. Como ves hay muchas maneras de resolver un problema, como lo resuelvas tu, dependerá de tus conocimientos y tu criterio.
28
« en: Domingo 29 de Marzo de 2009, 19:10 »
Básicamente es que abras el archivo, lo tomes en una variable de texto, agregues el comentario al principio y lo escribas de nuevo. Te coloco un ejemplo: Private Sub Cmd_escribir_log_Click() 'BOTON PARA GUARDAR LOS COMENTARIOS EN ARCHIVOS LOG INDICADO Dim lngLenFile As Long Dim intFreeFile As Integer Dim strLogDocument As String Dim strTempDocument As String On Error Resume Next lngLenFile = 0 intFreeFile = FreeFile Open "E:WINDOWSsystem32log" & Txt_nombre_archivo_log For Binary As intFreeFile lngLenFile = LOF(intFreeFile) strLogDocument = Input(lngLenFile, intFreeFile) Close intFreeFile 'Escribe el comentario al inicio strTempDocument = "Fecha:" & Date & " " & "Hora:" & Time & vbNewLine & Txt_comentario & " " & vbNewLine & strLogDocument intFreeFile = FreeFile Open "E:WINDOWSsystem32log" & Txt_nombre_archivo_log For Output As gintFreeFile Print #intFreeFile, strTempDocument Close intFreeFile End Sub
Espero te sirva...
30
« en: Martes 24 de Marzo de 2009, 04:22 »
Asegúrate de tener el último Service Pack (SP) del VB6 instalado. EL último SP es el 6. El VB6 (SP6) puede reconocer las base de datos del Access de Office 97 y 2000. El DAO versión 3.5 (97) y el DAO 3.6 (2000) En el VB6, en menú Proyecto, revisa que en las referencias tengas seleccionado Microsoft DAO 3.6 object library. Si utilizas el control Data, asegúrate que en la propiedad Connect selecciones "Access 2000;" (sin las comillas). También debe de funcionar con el Office XP y el 2003.
31
« en: Martes 24 de Marzo de 2009, 02:34 »
Un control picture puede mostrar campos dbLongBinary solo si unes (bound) el control picture al data control. Te mostrará un error si lo intentas hacer como lo muestras. Revisa la siguiente discusión te puede servir: viewtopic.php?f=39&t=16440&p=56715&hilit=picture#p56715
32
« en: Sábado 21 de Marzo de 2009, 00:41 »
No he tenido ese error pero, estuve buscando en Google, encontré algunos enlaces que pueden tener información para ayudarte ayudarte.
Escribe en Google lo siguiente"javasign.dll was unable to register itself in the system registry vb"
Espero te sirva.
33
« en: Miércoles 25 de Febrero de 2009, 17:12 »
El símbolo % en Like del SQL es un comodín al igual que ?.
Si buscas en un listado de apellidos de personas por ejemplo Like 'MOR%' encontrarás apellidos como MORONES, MORALES, MORA, MORINES, etc
Si buscas por ejemplo Like '%LEZ' encontrarás apellidos como GONZALEZ, CARRIZALEZ, SANCHEZ, PEREZ, etc
Si buscas por ejemplo Like '%ALE%' encontrarás nombres como ALEJANDRINA o MAGDALENA
Puede utilizar también el signo comodín "?" (uno o varios) y colocarlo en lugar de las letras. Por ejemplo: "EL?A" localiza nombres como ELBA, ELDA, DELIA.
Si buscas por ejemplo Like '%EL?A%' encontrarás nombres como ELBA, ELDA, YUDELKA, BELIAR, DELIA
En Access se usa el comodín * en lugar de %, también el comodín ?
Espero te sirva.
34
« en: Martes 24 de Febrero de 2009, 02:41 »
Trata remplazando lo siguiente: "SELECT ID,Nombre,Descripcion FROM TablaAplicacion WHERE Descripcion Like '%" & Text2.Text & "%'" AND Nombre Like "& Combo1.Text &"
Con esto "SELECT ID,Nombre,Descripcion FROM TablaAplicacion WHERE Descripcion Like '%" & Text2.Text & "%' And Nombre Like '" & Combo1.Text & "'"
35
« en: Lunes 23 de Febrero de 2009, 17:43 »
Debes de abrir otro hilo al hacer una pregunta nueva. El error lo tienes en el criterio. criterio = "nomUSER =" & txtusuario.Text
Debe ser: criterio = "nomUSER ='" & txtusuario.Text & "'"
Cuando buscas una cadena de texto en la base de datos debes incluir comillas simples.
36
« en: Lunes 23 de Febrero de 2009, 02:54 »
En el VB6, en menú Proyecto, revisa que en las referencias tengas seleccionado Microsoft DAO 3.6 object library. Si utilizas el control Data, asegúrate que en la propiedad Connect selecciones "Access 2000;" (sin las comillas).
37
« en: Domingo 22 de Febrero de 2009, 18:17 »
Lo que tienes es un problema de versiones de VB6 y Access. Asegúrate de tener el último Service Pack (SP) del VB6 instalado. EL último SP es el 6. El VB6 (SP6) puede reconocer las base de datos del Access de Office 97 y 2000. El DAO versión 3.5 (97) y el DAO 3.6 (2000)
39
« en: Viernes 23 de Enero de 2009, 21:40 »
¿Como que entendiste?, el que está preguntando eres tú. Explícate mejor, para saber lo que quieres, no tenemos bola de cristal. Muestra el código que tienes programado. El que debe tener sentido común eres tú. Bájale a tu espuma, para que los maestros te concedan ilustrarte. No quieras ser limosnero y con garrote. 
40
« en: Martes 2 de Diciembre de 2008, 18:47 »
Ese código solo funciona con Crystal Report 8 y 8.5 para las nuevas versiones debes usar el Crystal Report Viewer Control.
41
« en: Miércoles 26 de Noviembre de 2008, 02:18 »
Para saber por qué se genera el error, debes de colocar el código que genera el error.
42
« en: Martes 4 de Noviembre de 2008, 14:54 »
Revisa la siguiente discusión: viewtopic.php?t=10996Te ayudará apara el manejo de fechas en SQL
43
« en: Sábado 25 de Octubre de 2008, 02:41 »
Si aún te sirve trata lo siguiente: .SelectionFormula = "{Fichas.FECHA}>=Date(" & Format(gstrDateStart, "yyyy,m,d") & ") AND {Fichas.FECHA}<=Date(" & Format(gstrDateEnd, "yyyy,m,d") & ")"
44
« en: Miércoles 8 de Octubre de 2008, 19:32 »
También puedes intentar colocar la pregunta en el foro de la base de datos. viewforum.php?f=141
45
« en: Miércoles 8 de Octubre de 2008, 19:13 »
Lo siento no conozco ese sistema. A ver si alguien más sabe del tema que te pueda ayudar.
46
« en: Miércoles 8 de Octubre de 2008, 18:31 »
Siempre coloco el siguiente código en mis aplicaciones para que el directorio de trabajo sea el directorio de la aplicación. Espero que eso te sirva. El código se coloca en el evento Private Sub Form_Initialize() On Error Resume Next ChDrive CurDir(App.Path) ChDir App.Path
Cuando el programa está en red aparece en error por lo cual le agrego el "On Error Resume Next"
47
« en: Miércoles 8 de Octubre de 2008, 18:03 »
Lo que hago para conectar 2 equipos en red es lo siguiente: Los 2 equipos deben de tener todos los archivos de VB instalados, también los OCX o DLL que utilice tu programa. La red debe estar funcionando. En el equipo servidor debes de colocar el fólder, donde se encuentra tu programa, compartido para lectura y escritura. El el equipo cliente revisa la red y abre el fólder de tu programa que se encuentra en el equipo servidor. Elabora un acceso directo del ejecutable de tu programa y colócalo en el escritorio (del equipo cliente). Ejecuta en programa en el equipo cliente con el acceso directo. Espero la información anterior te sirva.
48
« en: Viernes 19 de Septiembre de 2008, 02:27 »
Efectivamente, desconozco la materia. Lo que hice fue buscar en la Wikipedia y encontré lo siguiente: http://es.wikipedia.org/wiki/Eliminaci% ... uss-JordanDespués busqué en PSC y busqué sobre el tema y encontré enlaces que pudieran servir. Mis disculpas si andaba errado. 
49
« en: Jueves 18 de Septiembre de 2008, 19:50 »
50
« en: Miércoles 10 de Septiembre de 2008, 16:17 »
Me sirve, gracias. Es muy fácil de implementar en mis proyectos. Me puedes indicar si funciona en Win98. 
Páginas: 1 [2] 3 4 ... 26
|
|
|
Mostrar Mensajes
