|
|
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.
Temas - Jeremy
Páginas: [1]
1
« 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í: Private Sub Form_Load() If Format(Date, "dddd") = "miércoles" Then '---> Compruebo el día de la semana Label1.Caption = "Se está realizando la copia del correo. Por favor espere..." 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. else unload Me end End If End Sub
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, 
2
« 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,
3
« 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 
4
« en: Domingo 16 de Enero de 2005, 15:10 »
Hola a tod@s. Es una mera curiosidad nada más...  sabe alguien como hago para conseguir una cuenta de correo en Gmail?. Gracias por vuestra ayuda. Un saludo.
5
« 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,
6
« 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, Jeremy
7
« 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. Private Sub mnuexp_Click() Dim i As Long Dim n As Long lblinf.Visible = True lblinf.Caption = "Se están exportando " & lstlib.ListItems.Count & " registros. Esta operación puede tardar unos minutos, por favor espere..." pgbar.Visible = True Screen.MousePointer = vbHourglass On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number Then Err.Clear Set objExcel = CreateObject("Excel.Application") If Err.Number Then MsgBox "No se pudo abrir Excel" End If End If Set objWorkbook = objExcel.Workbooks.Add For i = 0 To lstlib.ListItems.Count objWorkbook.ActiveSheet.Cells(i, 1).Value = lstlib.ListItems(i).Text pgbar.Value = i * 100 / lstlib.ListItems.Count For n = 0 To lstlib.ColumnHeaders.Count lstlib.ColumnHeaders.Count = n objWorkbook.ActiveSheet.Cells(i, n + 1).Value = lstlib.ListItems(i).ListSubItems(n).Text Next n Next i Range("C1:C" & i).Select Selection.NumberFormat = "#,##0.000 " Range("A1").Activate pgbar.Value = 0 pgbar.Visible = False lblinf.Visible = False Screen.MousePointer = Default lblean.Caption = "Artículo " & lstlib.ListItems(lstlib.SelectedItem.Index).Text stbbar.Panels(1).Text = "Familia: " + lstfamilias.ListItems(lstfamilias.SelectedItem.Index).ListSubItems(1) + " " + "Subfamilia: " + lstsub.ListItems(lstsub.SelectedItem.Index).ListSubItems(1) + "" _ + " " + "Artículo: " + lstlib.ListItems(lstlib.SelectedItem.Index) objExcel.Visible = True Set objExcel = Nothing objExcel.Application.Quit End Sub
Espero que puedan ayudarme, gracias por vuestra ayuda. Un saludo,
8
« 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
9
« en: Miércoles 8 de Septiembre de 2004, 17:00 »
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. Private Sub mnuexp_Click() Dim i As Long Dim n As Long lblinf.Visible = True lblinf.Caption = "Se están exportando " & lstlib.ListItems.Count & " registros. Esta operación puede tardar unos minutos, por favor espere..." pgbar.Visible = True Screen.MousePointer = vbHourglass On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number Then Err.Clear Set objExcel = CreateObject("Excel.Application") If Err.Number Then MsgBox "No se pudo abrir Excel" End If End If Set objWorkbook = objExcel.Workbooks.Add For i = 0 To lstlib.ListItems.Count objWorkbook.ActiveSheet.Cells(i, 1).Value = lstlib.ListItems(i).Text pgbar.Value = i * 100 / lstlib.ListItems.Count For n = 0 To lstlib.ColumnHeaders.Count lstlib.ColumnHeaders.Count = n objWorkbook.ActiveSheet.Cells(i, n + 1).Value = lstlib.ListItems(i).ListSubItems(n).Text Next n Next i Range("C1:C" & i).Select Selection.NumberFormat = "#,##0.000 " Range("A1").Activate pgbar.Value = 0 pgbar.Visible = False lblinf.Visible = False Screen.MousePointer = Default lblean.Caption = "Artículo " & lstlib.ListItems(lstlib.SelectedItem.Index).Text stbbar.Panels(1).Text = "Familia: " + lstfamilias.ListItems(lstfamilias.SelectedItem.Index).ListSubItems(1) + " " + "Subfamilia: " + lstsub.ListItems(lstsub.SelectedItem.Index).ListSubItems(1) + "" _ + " " + "Artículo: " + lstlib.ListItems(lstlib.SelectedItem.Index) objExcel.Visible = True Set objExcel = Nothing objExcel.Application.Quit End Sub
10
« 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. Private Sub mnuexp_Click() Dim i As Long Dim n As Long lblinf.Visible = True lblinf.Caption = "Se están exportando " & lstlib.ListItems.Count & " registros. Esta operación puede tardar unos minutos, por favor espere..." pgbar.Visible = True Screen.MousePointer = vbHourglass On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number Then Err.Clear Set objExcel = CreateObject("Excel.Application") If Err.Number Then MsgBox "No se pudo abrir Excel" End If End If Set objWorkbook = objExcel.Workbooks.Add For i = 0 To lstlib.ListItems.Count objWorkbook.ActiveSheet.Cells(i, 1).Value = lstlib.ListItems(i).Text pgbar.Value = i * 100 / lstlib.ListItems.Count For n = 0 To lstlib.ColumnHeaders.Count lstlib.ColumnHeaders.Count = n objWorkbook.ActiveSheet.Cells(i, n + 1).Value = lstlib.ListItems(i).ListSubItems(n).Text Next n Next i Range("C1:C" & i).Select Selection.NumberFormat = "#,##0.000 " Range("A1").Activate pgbar.Value = 0 pgbar.Visible = False lblinf.Visible = False Screen.MousePointer = Default lblean.Caption = "Artículo " & lstlib.ListItems(lstlib.SelectedItem.Index).Text stbbar.Panels(1).Text = "Familia: " + lstfamilias.ListItems(lstfamilias.SelectedItem.Index).ListSubItems(1) + " " + "Subfamilia: " + lstsub.ListItems(lstsub.SelectedItem.Index).ListSubItems(1) + "" _ + " " + "Artículo: " + lstlib.ListItems(lstlib.SelectedItem.Index) objExcel.Visible = True Set objExcel = Nothing 'Con esto desvinculo el Excel de VB; en teoría... objExcel.Application.Quit 'Con esto intento cerrar el Excel End Sub
A pesar de intentar desvincularlo Set objExcel=Nothing y de cerrarlo objExcel.Application.Quit no funciona. Espero que me puedan ayudar, muchas gracias. Jeremy º¿º
11
« 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 º¿º
12
« 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.
º¿º
13
« 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.
º¿º
14
« 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. º¿º
15
« en: Viernes 11 de Junio de 2004, 21:19 »
Hola de nuevo. Necesito vuestra ayuda... Al momento de guardar unos datos desde un form de visual a una tabla Access me aparece el siguiente error: El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.El código que tengo es el siguiente: Private Sub cmdaceptar_Click() Dim cmd As String Dim sql As String 'Dim cn As ADODB.Connection 'Dim rs As ADODB.Recordset 'mnulimpiar.Enabled = False 'cmd Crea una cadena de conexión cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Ruta BBDD".mdb;Persist Security Info=false" 'Establezco una conexión con la base de datos Set cn = New ADODB.Connection With cn .ConnectionString = cmd .Open End With 'Creo la consulta sql = "SELECT * FROM datos" 'Abro el recordset Set rs = New ADODB.Recordset With rs '.Open sql, cn, adOpenForwardOnly, adLockReadOnly .Open sql, cn .AddNew !tienda = txttienda.Text !nombre = txtnombre.Text !router = txtrouter.Text !servidor = txtservidor.Text !tipo = cbotipo.Text .Update .Close End With End Sub
Gracias por vuestra ayuda. º¿º
16
« en: Viernes 11 de Junio de 2004, 19:57 »
Hola amig@s. Necesito ayuda con la siguiente consulta: Tengo el campo Código postal, el cual se compone de código postal y la población, pero el problema está en que están juntos. Por ejemplo: 29004MALAGA 28012MADRID Necesito una consulta de actualización para de alguna manera ponga un espacion entre el código y la población, quedando el campo así: 29004 MALAGA 28012 MADRID Espero que puedan ayudarme, gracias a tod@s. º¿º
17
« en: Viernes 11 de Junio de 2004, 19:55 »
Hola amig@s. Necesito ayuda con la siguiente consulta:
Tengo el campo Código postal, el cual se compone de código postal y la población, pero el problema está en que están juntos. Por ejemplo:
29004MALAGA
28012MADRID
Necesito una consulta de actualización para de alguna manera ponga un espacion entre el código y la población, quedando el campo así:
29004 MALAGA
28012 MADRID
Espero que puedan ayudarme, gracias a tod@s.
º¿º
18
« en: Jueves 10 de Junio de 2004, 23:37 »
Hola a tod@s. Hace tiempo que no tocaba el SQL y claro ahora ya lo tengo algo olvidado  . Por eso os pido que me ayudes con la siguiente consulta: Desde una aplicación de Visual Basic cojo todos los datos presentes en dos tablas Access. Las tablas son las siguientes: Tabla tienda *tienda nombre router servidor tipo Tabla clientes*tienda cliente1 cliente2 .... clienten Como imaginarán están relacionadas por el campo *tienda, ahora bien. En el formulario donde quiero visualizar los datos se mostrará el número de la tienda junto con sus datos además de los clientes correspondientes a esa tienda. Por ejemplo, el resultado de la consulta sobre el formulario sería así: Tienda: 258 Nombre: Shopping Center Router: 125.10.21.251 Servidor:125.10.21.1 Tipo: Red Clientes: comp1 - 125.10.21.2 comp2 - 125.10.21.3 comp3 - 125.10.21.4
Espero haberme explicado bien. Gracias a tod@s por vuestra ayuda. º¿º
19
« en: Jueves 10 de Junio de 2004, 21:14 »
Hola amig@s, necesito vuestra ayuda: Estoy empezando a manejarme con las BBDD. Bueno voy al grano... Conecto mi aplicación VB con una Tabla de Access. Al introducir un valor en el form y al pulsar la tecla ENTER, necesito comprobar si ese dato existe o no en la tabla. He implementado el siguiente código para dicha comprobación, no sé en dónde puedo estar equivocado: Private Sub cbotienda_KeyPress(KeyAscii As Integer) Dim cmd As String Dim sql As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset If KeyAscii = 13 Then 'Si la tecla es INTRO entonces... cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\"Ruta de la BBDD".mdb;Persist Security Info=false" Set cn = New ADODB.Connection With cn .ConnectionString = cmd .Open End With sql = "SELECT * FROM DATOS WHERE TIENDA LIKE " & Me.cbotienda.Text 'Ejecuto una consulta SQL en la que comparo el valor introducido en un combo Set rs = New ADODB.Recordset With rs .Open sql, cn, adOpenForwardOnly, adLockReadOnly If sql = cbotienda.Text Then 'si el resultado devuelto de la consulta SQL es = al valor introducir entonces que me muestre los datos correspondientes cbotienda.Text = rs.Fields("tienda") txtnombre.Text = rs.Fields("nombre") txtrouter.Text = rs.Fields("router") txtservidor.Text = rs.Fields("servidor") txttipo.Text = rs.Fields("tipo") .Close ElseIf sql <> cbotienda.Text Then MsgBox "Esta tienda no existe" Exit Sub End If End With Set rs = Nothing cn.Close Set cn = Nothing ElseIf KeyAscii <> 13 Then Exit Sub End If End Sub
Gracias a todos por vuestra ayuda. º¿º
20
« en: Jueves 10 de Junio de 2004, 11:16 »
Hola amig@s qué tal?. Os comento: quiero hacer un PING desde mi aplicación en Visual, os explico: En un form tengo un TextBox que muestra la dirección IP de un equipo, y luego el botón PING. Al hacer clic que implemente dicho comando(PING) para saber si hay o no conexión entre mi equipo y la IP de destino. Gracias por la ayuda que me puedan prestar. Un saludo, º¿º
21
« en: Lunes 7 de Junio de 2004, 13:26 »
Hola a tod@s. Por favor, necesito saber cómo crear un PopUpMenu para mi aplicación. De antemano, muchas gracias.
22
« en: Lunes 31 de Mayo de 2004, 16:45 »
Hola a tod@s. Tengo una aplicación en VB6 la cual tiene un ComboBox llamado Tiendas. Ahí quiero cargar los números de las tiendas que tengo guardados en un tabla Access. Para la conexión con la BBDD utilizo DAO 3.6
Sé que debo utilizar un bucle, como el For Next por ejemplo, pero no estoy seguro de cómo implementarlo. Necesito que al momento que se cargue el Form principal muestre el ComboBox con todos los números de tiendas cargados.
Adjunto el Form para que lo veáis mejor...
De antemano, muchas gracias.
23
« en: Martes 25 de Mayo de 2004, 21:15 »
Hola amigos. Soy principiante en VB. Tengo dos tablas relacionadas cuyo contenido debo mostrar en un formulario de visual. He conseguido mostrar el contenido de la primera tabla relacionada, pero no consigo mostrar el contenido de la segunda tabla. Debería implementar una consulta SQL en cuya sentencia debo indicar tal relación y una vez ejecutada volcarlo al form de Visual??, o exactamente qué podría hacer? O si tenéis algún ejemplo que me sirva os agradecería mucho.
Páginas: [1]
|
|
|
Mostrar Mensajes
