• Jueves 30 de Mayo de 2024, 02:56

Mostrar Mensajes

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

Páginas: [1] 2
1
Visual Basic 6.0 e inferiores / Re: Ejecutar Un Bat Desde Vb
« en: Lunes 6 de Junio de 2005, 11:58 »
Gracias a los dos compañeros. Ahora tengo el siguiente problema. Cuando ejecuto este código, cómo hago para que cuando termine el bat, se cierre el form de visual?. Ahora al ejecutarlo, cuando termina el bat, el form de VB se queda abierto. Repito el código:

Código: Text
  1.  
  2. Private Sub Form_Load()
  3. Beep
  4. If Format(Date, "dddd") = "miércoles" Then
  5.     Me.Caption = "Hoy es " & Format(Date, "dddd")
  6.     Label1.Caption = "Se están copiando los ficheros de correo. Por favor espere..."
  7.     Shell "cmd.exe /c archivo.bat", vbMinimizedFocus
  8.     'Unload Me
  9.     'End
  10. Else
  11.     Unload Me
  12.     End
  13. End If
  14. End Sub
  15.  
  16.  

He probado a poner después de la línea del Shell, un Unload Me y luego End. Pero lógicamente así no funciona, la aplicación se cierra enseguida. Mi idea es que el usuario pueda ver el form de VB con el mensaje de que se está ejecutando el bat, y se quite cuando haya terminado para que este pueda trabajar en su PC.

Gracias por vuestra ayuda.

Un saludo,

2
Visual Basic 6.0 e inferiores / Ejecutar Un Bat Desde Vb
« en: Domingo 5 de Junio de 2005, 22:44 »
Hola amig@s. Necesito ejecutar un bat(fichero por lotes MS-DOS). El bat se encarga de hacer una copia de seguridad del correo del cliente, pero esta copia la hace sólo los miércoles.
Con VB podría ejecutar ese bat, pero cómo lo hago?. He encontrado en internet una instrucción para ejecutar comandos de MS-DOS desde VB. El código sería más o menos así:
Código: Text
  1.  
  2. Private Sub Form_Load()
  3. If Format(Date, "dddd") = "miércoles" Then  '---> Compruebo el día de la semana
  4.     Label1.Caption = "Se está realizando la copia del correo. Por favor espere..."
  5.     Shell "cmd.exe /c archivo.bat",vbhide '---> Con esta línea abriría una consola de MS-DOS, ejecutaría el bat y la consola como tal estaría oculta gracias al parámetro VBHIDE.
  6. else
  7.     unload Me
  8.     end
  9. End If
  10. End Sub
  11.  
  12.  

Lo único que vería el usuario sería un form indicándole a través de un Caption que se está ejecutando la tarea indicada.
He probado estas líneas pero el caso es que el form no se muestra, el bat se ejecuta correctamente, pero lo que quiero es que el form se mantenga visible hasta que el bat termine con lo que está haciendo. Por otro lado seguro que hay una mejor forma de hacerlo, espero puedan ayudarme.

De antemano, gracias a tod@s.

Un saludo, :hola:

3
Bases de Datos / Crear Tabla Utilizando Un Txt
« en: Viernes 29 de Abril de 2005, 10:49 »
Hola a tod@s. Mi pregunta es la siguiente: Necesito obtener unas consultas, para ello hago una exportación desde un programa de TPV el fichero resultante es un txt, no sé si utilizando código puedo hacer las consultas directamente sobre el fichero txt utilizando ODBC o algo así, lo desconozco, entonces por el momento quiero que una vez generado el txt desde visual transformarlo en una tabla de ACCESS, y una vez obtenida esa tabla realizar las consultas pertinentes y mostrarlas ya sea en un list, o generar informes utilizando el Crystal.

Espero vuestra ayuda, muchas gracias

Un saludo,  :hola:

4
Dudas informáticas / Contraseña En Excel
« en: Martes 1 de Marzo de 2005, 11:12 »
Hola a todos. TEngo una hoja de Excel protegida por contraseña, no sé cual es la contraseña de acceso, cómo puedo saltármela para poder acceder al documento?
Gracias por vuestra ayuda.

Un saludo :lol:

5
Dudas informáticas / Como Consigo Cuenta De Correo Gmail
« en: Domingo 16 de Enero de 2005, 15:10 »
Hola a tod@s. Es una mera curiosidad nada más...  :unsure: sabe alguien como hago para conseguir una cuenta de correo en Gmail?. Gracias por vuestra ayuda.

Un saludo.  :hola:

6
Visual Basic 6.0 e inferiores / Cancelar Búsqueda Sql
« en: Domingo 9 de Enero de 2005, 22:26 »
Hola a tod@s, tengo un problemilla el cual espero puedan ayudarme a resolver. Desde mi programa hago una consulta SQL para que realice una búsqueda en una tabla, los resultados de esa búsqueda los voy volcando a un ListView, hay momentos en los que este proceso tarda demasiado, no es que sea un problema es debido a la cantidad de registros con la que debe trabajar. Quiero añadir un botón con el texto Cancelar, que lo que hace es parar esa búsqueda. Alguien podría decirme cómo hacerlo?. Trabajo con una BBDD ACCESS y con Microsoft ADO 2.5

Gracias por vuestra ayuda.

Un saludo, :hola:

7
Visual Basic 6.0 e inferiores / Ejecutar Programa Vb Desde Un Cd
« en: Viernes 24 de Diciembre de 2004, 11:00 »
Hola a tod@s. Tengo un programa de gestión de libros, con el cual hago consultas, y obtengo listados. Los listados los obtengo con el Crystal 10. El programa funciona correctamente al ser instalado en un PC. El problema que tengo es que debo ejecutar el programa desde un CD, es decir, sin necesidad de instalar el programa en el PC que se va a ejecutar. He copiado al CD el ejecutable del programa junto con el resto de ficheros necesarios para que el programa funcione correctamente. Todo va bien excepto el Crystal, no puedo sacar los listados si ejecuto mi programa desde el CD. Lógicamente para ello habría que copiar alguna librería del Crystal en el equipo donde quiero ejecutar mi programa desde el CD, supongo que esto se puede hacer. Alguien sabe cómo hacerlo, y en qué carpeta debo copiar dichas librerías?.

Gracias a tod@s por vuestra ayuda.

Un saludo,  :hola:

Jeremy

8
Visual Basic 6.0 e inferiores / Re: Exportar A Excel
« en: Martes 21 de Diciembre de 2004, 09:58 »
Hola de nuevo. Sigo teniendo el mismo problema, pero me he dado cuenta que igual no es que el Excel se bloquee después de efectuar la exportación, lo que hace exactamente es que no me muestra la hoja que genera. Os explico: Después de hacer la primera exportación y teniendo mi programa activo, en las siguientes exportaciones lo que me muestra es sólo el Libro de trabajo, pero no la hoja donde me aparecerían todas las celdas con su respectivo contenido. Adjunto una imagen para que podáis ver mejor a qué me refiero.

Gracias por vuestra ayuda.

Jeremy.  :hola:

9
Visual Basic 6.0 e inferiores / Re: Exportar A Excel
« en: Domingo 19 de Diciembre de 2004, 21:06 »
Hola de nuevo amig@s. Sigo con mi problema, no logro desvincular el Excel de mi programa en Visual. He probado con lo que me ha dicho jegonzalezrubio a asignar Nothing a las instancias que creo. Y también a lo que me ha dicho Brroz objExcel.quit. Pero se me sigue quedando bloqueado el Excel. Como os comentaba al principio, esto sucede al iniciar la primera exportación a Excel.

Ahora mismo el código de la exportación lo tengo así:

Código: Text
  1.  
  2. Private Sub mnuexp_Click()
  3. Dim i As Long
  4. Dim n As Long
  5.  
  6. lblinf.Visible = True
  7. lblinf.Caption = "Se están exportando " & lstlib.ListItems.Count & " registros. Esta operación puede tardar unos minutos, por favor espere..."
  8. pgbar.Visible = True
  9.  
  10. Screen.MousePointer = vbHourglass
  11. On Error Resume Next
  12. 'Set objExcel = GetObject(, "Excel.Application")
  13. Set objExcel = GetObject(, "Excel.application")
  14. If Err.Number Then
  15.     Err.Clear
  16.  
  17.     Set objExcel = CreateObject("Excel.Application")
  18.    
  19.     If Err.Number Then
  20.         MsgBox "No se pudo abrir Excel"
  21.     End If
  22. End If
  23.  
  24. Set objWorkbook = objExcel.Workbooks.Add
  25.  
  26. For i = 0 To lstlib.ListItems.Count
  27.     objWorkbook.ActiveSheet.Cells(i, 1).Value = lstlib.ListItems(i).Text
  28.     pgbar.Value = i * 100 / lstlib.ListItems.Count
  29.     For n = 0 To lstlib.ColumnHeaders.Count
  30.         lstlib.ColumnHeaders.Count = n
  31.         objWorkbook.ActiveSheet.Cells(i, n + 1).Value = lstlib.ListItems(i).ListSubItems(n).Text
  32.     Next n
  33. Next i
  34. Range("C1:C" & i).Select
  35. Selection.NumberFormat = "#,##0.000 "
  36. Range("A1").Activate
  37. pgbar.Value = 0
  38. pgbar.Visible = False
  39. lblinf.Visible = False
  40. Screen.MousePointer = Default
  41. lblean.Caption = "Artículo " & lstlib.ListItems(lstlib.SelectedItem.Index).Text
  42. stbbar.Panels(1).Text = "Familia: " + lstfamilias.ListItems(lstfamilias.SelectedItem.Index).ListSubItems(1) + " " + "Subfamilia: " + lstsub.ListItems(lstsub.SelectedItem.Index).ListSubItems(1) + "" _
  43. + " " + "Artículo: " + lstlib.ListItems(lstlib.SelectedItem.Index)
  44. objExcel.Visible = True
  45. Set objExcel = Nothing
  46. Set objWorkbook = Nothing
  47.  
  48. End Sub
  49.  
  50.  
  51.  

Si hago esto:

Código: Text
  1.  
  2. objExcel.Quit
  3.  
  4.  

lógicamente después de hacer la exportación a Excel, la hoja de Excel, valga la redundancia, se cerrará, por eso en ese momento me dice si quiero guardar o no el documento.

Espero que puedan echarme una mano  :comp: , gracias a tod@s.

Un saludo,  :hola:

10
Visual Basic 6.0 e inferiores / Exportar A Excel
« en: Jueves 16 de Diciembre de 2004, 20:59 »
Tengo un problema a la hora de cortar un proceso. Hago una exportación desde mi programa en Visual a Excel. El problema que tengo es que cuando lo hago, se queda en memoria el excel.exe y no sé cómo hacer para cerrarlo. Esto ocaciona que sólo pueda efectuar la primera exportación a Excel, en las siguientes el Excel se queda bloqueado, y es precisamente por eso, porque el fichero excel.exe se queda en memoria.
Cuando el Excel se queda bloqueado tengo que abrir el Administrador de Tareas de Windows y terminar el excel.exe manualmente.

Adjunto el código del proceso de exportación.

Código: Text
  1.  
  2. Private Sub mnuexp_Click()
  3. Dim i As Long
  4. Dim n As Long
  5.  
  6. lblinf.Visible = True
  7. lblinf.Caption = "Se están exportando " & lstlib.ListItems.Count & " registros. Esta operación puede tardar unos minutos, por favor espere..."
  8. pgbar.Visible = True
  9.  
  10. Screen.MousePointer = vbHourglass
  11. On Error Resume Next
  12. Set objExcel = GetObject(, "Excel.Application")
  13. If Err.Number Then
  14.     Err.Clear
  15.    
  16.     Set objExcel = CreateObject("Excel.Application")
  17.    
  18.     If Err.Number Then
  19.         MsgBox "No se pudo abrir Excel"
  20.     End If
  21. End If
  22.  
  23. Set objWorkbook = objExcel.Workbooks.Add
  24.  
  25. For i = 0 To lstlib.ListItems.Count
  26.     objWorkbook.ActiveSheet.Cells(i, 1).Value = lstlib.ListItems(i).Text
  27.     pgbar.Value = i * 100 / lstlib.ListItems.Count
  28.     For n = 0 To lstlib.ColumnHeaders.Count
  29.         lstlib.ColumnHeaders.Count = n
  30.         objWorkbook.ActiveSheet.Cells(i, n + 1).Value = lstlib.ListItems(i).ListSubItems(n).Text
  31.     Next n
  32. Next i
  33. Range("C1:C" & i).Select
  34. Selection.NumberFormat = "#,##0.000 "
  35. Range("A1").Activate
  36. pgbar.Value = 0
  37. pgbar.Visible = False
  38. lblinf.Visible = False
  39. Screen.MousePointer = Default
  40. lblean.Caption = "Artículo " & lstlib.ListItems(lstlib.SelectedItem.Index).Text
  41. stbbar.Panels(1).Text = "Familia: " + lstfamilias.ListItems(lstfamilias.SelectedItem.Index).ListSubItems(1) + " " + "Subfamilia: " + lstsub.ListItems(lstsub.SelectedItem.Index).ListSubItems(1) + "" _
  42. + " " + "Artículo: " + lstlib.ListItems(lstlib.SelectedItem.Index)
  43. objExcel.Visible = True
  44. Set objExcel = Nothing
  45.  
  46. objExcel.Application.Quit
  47. End Sub
  48.  
  49.  
  50.  

Espero que puedan ayudarme, gracias por vuestra ayuda.

Un saludo,  :hola:

11
Visual Basic 6.0 e inferiores / Re: Obtener Primer Registro De Una Tabla
« en: Miércoles 15 de Diciembre de 2004, 17:26 »
Me había olvidado de decir que para trabajar con la BBDD utilizo ADO 2.5 . Ahora mismo lo tengo así, pero no me funciona:
Código: Text
  1.  
  2. Private Sub mnuficha_Click()
  3. Set cn = New ADODB.Connection
  4. Set rs = New ADODB.Recordset
  5. Dim primcod As Long
  6. With cn
  7.     .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Base de Datos.mdb;Persist Security Info=False"
  8.     .Open
  9. End With
  10.  
  11. With rs
  12.         .Open "SELECT First(codigol) FROM articulos", cn, adOpenDynamic, adLockOptimistic
  13. End With
  14. CodLoc = rs.Fields("codigol") '--->aquí es dónde asigno el valor resultante de la consulta SQL
  15. frmficha.show
  16. End Sub
  17.  
  18.  
  19.  

Pero como lo anterior no me funciona para continuar con el resto de procesos del programa estoy asignando temporalmente el código "a mano".
Código: Text
  1.  
  2. Private Sub mnuficha_Click()
  3. CodLoc = 9
  4. frmficha.Show
  5. End Sub
  6.  
  7.  
Parecer ser algo muy sencillo, pero la verdad es que estoy empezando a trabajar con el tema de vincular  Bases de datos.
Gracias por vuestra ayuda.

Un saludo,  :hola:

12
MS Access / Cortar Cadena
« en: Miércoles 6 de Octubre de 2004, 17:45 »
Hola a tod@s. Necesito de vuestra ayuda:
Tengo un campo alfanumérico. Lo que quiero conseguir es "Cortar" todos los primeros caracteres hasta encontrar el primer espacio en blanco.
Ejemplo:

15414 Descripción artículo

pues que me muestre únicamente

Descripción artículo

Sé que en SQL se utiliza el comando SUBSTRING, con eso lo podría hacer, pero desde el editor de SQL de ACCESS no se puede.

Si alguien sabe otra forma de poder conseguirlo, le estaría muy agradecido.

Gracias

13
Visual Basic 6.0 e inferiores / Terminar Proceso Residente En Memoria
« en: Miércoles 8 de Septiembre de 2004, 17:00 »
:lol: Hola amig@s. Necesito de vuestra ayuda:
Tengo una aplicación en VB desde la cual hago una exportación a Excel. La primera exportación como tal sale bien, el problema lo tengo al momento de cerrar la hoja de Excel, la aplicación se cierra(EXCEL), pero no el proceso resultante de la exportación "excel.exe" el cual se queda residente en memoria. Cómo puedo eliminarlo con código desde VB?.
De antemano, muchas gracias por vuestra ayuda.

Phantom º¿º

Incluyo el código de la exportación.
Código: Text
  1.  
  2. Private Sub mnuexp_Click()
  3. Dim i As Long
  4. Dim n As Long
  5.  
  6. lblinf.Visible = True
  7. lblinf.Caption = "Se están exportando " & lstlib.ListItems.Count & " registros. Esta operación puede tardar unos minutos, por favor espere..."
  8. pgbar.Visible = True
  9.  
  10. Screen.MousePointer = vbHourglass
  11. On Error Resume Next
  12. Set objExcel = GetObject(, "Excel.Application")
  13. If Err.Number Then
  14.     Err.Clear
  15.    
  16.     Set objExcel = CreateObject("Excel.Application")
  17.    
  18.     If Err.Number Then
  19.         MsgBox "No se pudo abrir Excel"
  20.     End If
  21. End If
  22.  
  23.  
  24.  
  25. Set objWorkbook = objExcel.Workbooks.Add
  26.  
  27. For i = 0 To lstlib.ListItems.Count
  28.     objWorkbook.ActiveSheet.Cells(i, 1).Value = lstlib.ListItems(i).Text
  29.     pgbar.Value = i * 100 / lstlib.ListItems.Count
  30.     For n = 0 To lstlib.ColumnHeaders.Count
  31.         lstlib.ColumnHeaders.Count = n
  32.         objWorkbook.ActiveSheet.Cells(i, n + 1).Value = lstlib.ListItems(i).ListSubItems(n).Text
  33.     Next n
  34. Next i
  35. Range("C1:C" & i).Select
  36. Selection.NumberFormat = "#,##0.000 "
  37. Range("A1").Activate
  38. pgbar.Value = 0
  39. pgbar.Visible = False
  40. lblinf.Visible = False
  41. Screen.MousePointer = Default
  42. lblean.Caption = "Artículo " & lstlib.ListItems(lstlib.SelectedItem.Index).Text
  43. stbbar.Panels(1).Text = "Familia: " + lstfamilias.ListItems(lstfamilias.SelectedItem.Index).ListSubItems(1) + " " + "Subfamilia: " + lstsub.ListItems(lstsub.SelectedItem.Index).ListSubItems(1) + "" _
  44. + " " + "Artículo: " + lstlib.ListItems(lstlib.SelectedItem.Index)
  45. objExcel.Visible = True
  46. Set objExcel = Nothing
  47.  
  48. objExcel.Application.Quit
  49.  
  50. End Sub
  51.  
  52.  
  53.  

14
Visual Basic 6.0 e inferiores / Re: Cerrar Excel
« en: Domingo 25 de Julio de 2004, 23:11 »
Uyyy lo siento sin querer le dí a "Responder" y me salió el mensaje incompleto. Pues eso que agradezco vuestra ayuda y vuestra atención. Sigo teniendo el problema y es como les comentaba en un principio: cuando realizo la primera exportación a Excel todo va bien, pero en ese momento cierro la ventana de Excel sin cerrar mi programa, entonces es a partir de la segunda exportación cuando el Excel ya no va bien. y claro ahí tengo que desbloquearlo "manualmente " utilizando el "Administrador de tareas de Windows". Seguiré insistiendo

Como he dicho, una vez más gracias por todas vuestras sugerencias...

Jeremy º¿º

15
Visual Basic 6.0 e inferiores / Re: Cerrar Excel
« en: Domingo 25 de Julio de 2004, 23:04 »
Gracias a todos por vuestras sugerencias y ayudas.... Aunq

16
Visual Basic 6.0 e inferiores / Cerrar Excel
« en: Jueves 22 de Julio de 2004, 18:55 »
Hola amig@s. Tengo un problemilla, el cual no logro resolver, espero que vosotros podáis ayudarme:

Desde mi aplicación en VB hago una exportación de datos a Excel. La primera vez lo hace bien. Pero la segunda exportación que hago el Excel se queda bloqueado, en este caso lo que tengo que hacer para que a partir de la segunda exportación el Excel ya no de problemas es terminar el proceso excel.exe que se encuentra cargado en memoria. Esto lo hago "manualmente" desde el Administrador de procesos.

Cómo hago para desde el código de exportación, terminar el excel.exe? He probado con los consejos de alguno de vosotros, pero no da resultado. Este es el código con el que hago la exportación a Excel.

Código: Text
  1.  
  2. Private Sub mnuexp_Click()
  3. Dim i As Long
  4. Dim n As Long
  5.  
  6. lblinf.Visible = True
  7. lblinf.Caption = "Se están exportando " & lstlib.ListItems.Count & " registros. Esta operación puede tardar unos minutos, por favor espere..."
  8. pgbar.Visible = True
  9.  
  10. Screen.MousePointer = vbHourglass
  11. On Error Resume Next
  12. Set objExcel = GetObject(, "Excel.Application")
  13. If Err.Number Then
  14.     Err.Clear
  15.    
  16.     Set objExcel = CreateObject("Excel.Application")
  17.    
  18.     If Err.Number Then
  19.         MsgBox "No se pudo abrir Excel"
  20.     End If
  21. End If
  22.  
  23. Set objWorkbook = objExcel.Workbooks.Add
  24.  
  25. For i = 0 To lstlib.ListItems.Count
  26.     objWorkbook.ActiveSheet.Cells(i, 1).Value = lstlib.ListItems(i).Text
  27.     pgbar.Value = i * 100 / lstlib.ListItems.Count
  28.     For n = 0 To lstlib.ColumnHeaders.Count
  29.         lstlib.ColumnHeaders.Count = n
  30.         objWorkbook.ActiveSheet.Cells(i, n + 1).Value = lstlib.ListItems(i).ListSubItems(n).Text
  31.     Next n
  32. Next i
  33.  
  34. Range("C1:C" & i).Select
  35. Selection.NumberFormat = "#,##0.000 "
  36. Range("A1").Activate
  37. pgbar.Value = 0
  38. pgbar.Visible = False
  39. lblinf.Visible = False
  40. Screen.MousePointer = Default
  41. lblean.Caption = "Artículo " & lstlib.ListItems(lstlib.SelectedItem.Index).Text
  42. stbbar.Panels(1).Text = "Familia: " + lstfamilias.ListItems(lstfamilias.SelectedItem.Index).ListSubItems(1) + " " + "Subfamilia: " + lstsub.ListItems(lstsub.SelectedItem.Index).ListSubItems(1) + "" _
  43. + " " + "Artículo: " + lstlib.ListItems(lstlib.SelectedItem.Index)
  44. objExcel.Visible = True
  45.  
  46. Set objExcel = Nothing 'Con esto desvinculo el Excel de VB; en teoría...
  47.  
  48. objExcel.Application.Quit 'Con esto intento cerrar el Excel
  49.  
  50. End Sub
  51.  
  52.  
  53.  

A pesar de intentar desvincularlo
Citar
Set objExcel=Nothing
y de cerrarlo
Citar
objExcel.Application.Quit
no funciona.

Espero que me puedan ayudar, muchas gracias.

Jeremy º¿º

17
Visual Basic 6.0 e inferiores / Re: Matar Excel.exe
« en: Martes 13 de Julio de 2004, 18:02 »
Hola Sujey_sanchez, gracias por tu ayuda, aunque el código que tengo incluye la línea:
Código: Text
  1.  
  2. Set objExcel = Nothing 'descargamos el objeto
  3.  
  4.  

Con eso supuestamente quito el Excel de memoria, pero sólo se quita de memoria cuando cierro el programa que he hecho en VB.

Si tienes alguna otra idea de cómo quitar el Excel, te lo agracedería mucho

Un saludo,


Jeremy º¿º

18
Visual Basic 6.0 e inferiores / Matar Excel.exe
« en: Martes 13 de Julio de 2004, 12:59 »
Hola amig@s. Tengo el siguiente problema el cual espero puedan ayudarme a resolver:

Desde un form en VB hago una exportación a Excel. La primera exportación la hace bien, sin problemas. Si yo cierro el Excel, me he dado cuenta que el fichero EXCEL.EXE se queda residente en memoria; lo he visto a través del ADMINISTRADOR DE TAREAS de WIN2000/WINXP. Cómo hago para quitar ese archivo del administrador de tareas desde VB??

Y es que cuando hago la primera exportación a Excel, no tengo ningún problema, es a partir de la segunda exportación cuando el Excel ya no responde, y esto supongo es por el motivo que les indico anteriormente; que el EXCEL.EXE se queda en memoria.

De antemano, gracias a tod@s

º¿º :lol:

19
Visual Basic 6.0 e inferiores / Re: Detalle En Data Report
« en: Martes 29 de Junio de 2004, 19:35 »
Hola Anderea. Yo también estoy trabajando con DataReports, ya que necesito que mi programa saque algunos informes. Aunque en mi caso los datos debo sacarlos de algunas tablas, es decir, son datos de tablas relacionadas. Pero para obtener un informe sencilllo de una sola tabla debes hacer lo siguiente:

Crear un DataEnvironment, asignarle a este una conexión que funciona a modo de ADODC, es decir ahí especificas la ruta de la BBDD donde están las tablas.
Luego a la conexión asignale un COMMAND, y es aquí donde especificas los datos que quieres mostrar en el informe, es decir, escribes la sentencia SQL que quieras.
Ya por último debes crear el DataReport como tal y en la propiedad DataSource asignarle el nombre del DataEnvironment creado.

Espero haberte ayudado, y sino pregunta con más detalle.

 :lol:

Jeremy º¿º

20
Visual Basic 6.0 e inferiores / Listbox
« en: Jueves 24 de Junio de 2004, 23:22 »
Hola amig@s. Necesito vuestra ayuda:
Necesito mostrar dos columnas en un ListBox, cómo hago para que me muestre dos columnas?
El ListBox, contendrá dos campos: codigo y nombre, estos datos vienen desde una Tabla access. Utilizo el control ADODC

Gracias por vuestra ayuda.

º¿º

21
Crystal Reports / Demo De Crystal Reports
« en: Miércoles 23 de Junio de 2004, 21:30 »
Hola amig@s, alguien sabe desde dónde descargarse alguna versión demo de Crystal Reports?.

Gracias por vuestra información.

º¿º

22
Visual Basic 6.0 e inferiores / Re: Tratamiento De Caracteres
« en: Jueves 17 de Junio de 2004, 09:55 »
Jejejejeje, si las cosas se te olvidan.... lo tienes muy difícil. Ya lo he resuelto. De todas formas muchas gracias  a todos

la función es MID(STRING,STAR,[LENGTH])

23
Visual Basic 6.0 e inferiores / Tratamiento De Caracteres
« en: Jueves 17 de Junio de 2004, 09:49 »
Hola amig@s. Una pregunta muy fácil... Cómo puedo tomar los n primeros caracteres de una cadena de texto??. Ahora mismo no recuerdo la función  <_<

Gracias por vuestra ayuda.
º¿º

24
Visual FoxPro / Re: Pregunta
« en: Miércoles 16 de Junio de 2004, 23:52 »
Que tal Juez!!!, mira en este link

http://lawebdelprogramador.com/codigo/most...to=Visual+Basic

 :lol:

25
Visual Basic 6.0 e inferiores / Re: Modificacion Consulta
« en: Domingo 13 de Junio de 2004, 17:48 »
Hola hpertuz!!, por qué no das más detalles acerca de tu pregunta?, así será más fácil ayudarte.  :comp:  :hola:

Páginas: [1] 2