Temas

Dada la presión que me agobia me atrevo a publicar la siguiente duda en esta sección. En resumen, el problema principal es que intento insertar registros de forma automática a una base de datos pero después varios registros insertados la aplicación ya no logra conectarse al servidor MySQL. A grandes rasgos, lo que hago es abrir una conexión, insertar registros y posteriormente cerrar la conexión, esto lo hago en un número indeterminado de veces pero al cabo de unos momentos la aplicación ya no logra conectarse al servidor de MySQL.

Dejo el enlace en donde comento mi duda un poco más detallada y publico una parte del código. Gracias anticipadas.

http://foro.elhacker.net/index.php/topic,159133.0.html

si lo que quieres hacer es esperar a que tu aplicacion espere a que termine la ejecucion de la ventana del DOS, te paso un tip, que aqui mismo me dieron:


en tu programa en lugar de usar el shell
usa esta funcion

ExeEspera "comando ms-dos"

Private Function ExeEspera(COMANDO As String)
    Dim hProcess As Long
    Dim RetVal As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(COMANDO, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
        Pausa 100
    Loop While RetVal = STILL_ACTIVE
End Function

Gracias CeLaYa por el código, pero le hace falta algunas cosas, como funciones y APIS, con las APIS no hay problema, pero sí con las funciones, pero no importa, ya solucioné el problema de otra forma (sencilla y que no consume muchos recursos). Esta fue la solución:

Código [Seleccionar] Expandir



Dim Success%

Private Function FileExists%(fname$)
   On Local Error Resume Next
   Dim ff%
   ff% = FreeFile
   Open fname$ For Input As ff%
   If Err Then
       FileExists% = False
   Else
       FileExists% = True
   End If
   Close ff%
End Function

Private Sub Command1_Click()
1
   'Se ejecuta el primer proceso
   '
   '
   '
   
   '
   '
   'Se ejecuta el proceso de MS-DOS
   '
   '
   '
   
   'Se prepara la función para comprobar la existencia de Archivo.txt
   Success% = FileExists(App.Path & "\Archivo.txt")
   
   'En caso de ser verdadero
   If Success% = True Then
       'Se ejecuta el proceso que deseo
   Else
'        Se regresa al primer proceso hasta que se encuentre el archivo
       GoTo 1
   End If
   'Se continua con otro proceso
End Sub



Obviamente no está completo el código, pero con esto cualquiera se da una idea de que ya pude llevar a cabo lo que quería. Muchas gracias por tu ayuda.

No estaría mal que publicaras el código completo que mostraste al principio, quizás me sea más útil que lo que encontré.

[¿cómo puedo saber cuándo una ventana que estaba abierta se cerró?]

El problema es el siguiente; en la aplicación que desarrollé utilizo Shell para ejecutar un comando, con esto, se abre la consola de MS-DOS, y comienza a ejecutarse el proceso, cuando dicho proceso finaliza, la ventana se cierra, mi duda es ¿cómo puedo saber cuándo una ventana que estaba abierta se cerró? Sé cuándo una ventana aparece, más no sé cuándo desaparece, se me han ocurrido ideas con el control Timer, pero este consumiría muchos recursos. ¿Alguna idea?

Tengo un archivo de texto con el siguiente contenido:

Campo1, MAS DATOS|Campo2|Campo3|Campo4|
Campo1|Campo2, MAS DATOS|Campo3|Campo4|
Campo1|Campo2|Campo3, MAS DATOS|Campo4|
Campo1|Campo2|Campo3|Campo4, MAS DATOS|

Si notan, el archivo contiene una serie de registros conformados por campos los cuales están divididos por Pipes (|), mi problema aquí es que deseo eliminar todas las comas (,) que existen en el archivo y guardar dicho archivo sin las comas; haciendo esto el archivo debería quedar así:

Campo1 MAS DATOS|Campo2|Campo3|Campo4|
Campo1|Campo2 MAS DATOS|Campo3|Campo4|
Campo1|Campo2|Campo3 MAS DATOS|Campo4|
Campo1|Campo2|Campo3|Campo4 MAS DATOS|

El archivo debe quedar sin comas, eso es todo lo que necesito. Gracias.

[¿cómo coloco esos DataGrid dentro de un SSTab? Seré más explícito, antes de crear un control DataGrid agrego pestañas al control SSTab, ahora, quiero que después de haber agregado dichas pestañas crear un control DataGrid dentro de cada pestaña que yo específique]

Estoy creando varios controles DataGrid en tiempo de ejecución; para crearlos uso un arreglo, mi duda es la siguiente, ¿cómo coloco esos DataGrid dentro de un SSTab? Seré más explícito, antes de crear un control DataGrid agrego pestañas al control SSTab, ahora, quiero que después de haber agregado dichas pestañas crear un control DataGrid dentro de cada pestaña que yo específique. Espero haber expuesto mi duda con claridad.

El código que utilizo para crear controles en tiempo de ejecución es el siguiente:

Código [Seleccionar] Expandir



Private Sub Command1_Click()
    Load SSTab1(1)
   
    SSTab1(1).Visible = True
   
    SSTab1(1).Top = SSTab1(0).Top + SSTab1(0).Height
End Sub



Agrego un botón de comando y un control SSTab al cual le establezco el índice a 0.

Mi problema es el siguiente:

Tengo un archivo TXT con los siguientes registros:

Dato1|Dato2|Dato3|Dato4|
Dato5|Dato6|Dato7|Dato8|

Como notan, este archivo se conforma de dos registros, los cuales contienen 4 campos cada uno (en realidad difiere en la cantidad de campos por registro, pero con esto basta); mi problema es que deseo extraer dichos campos del primer registro a una tabla previamente creada por mí en MySQL, lo mismo es para el segundo registro, el problema aquí es que no llego a visualizar el cómo lo puedo hacer. Espero me puedan ayudar con esto.

Nota: Las tablas y las BD las crearé en tiempo de ejecución, las BD con un nombre predefinido y el nombre de las tablas tomando como referencia el primer dato del registro. Los datos están divididos por "pipes" (|).

Hola a todos. Tengo una duda, ¿cómo puedo subir archivos por medio de una aplicación diseñada en Visual Basic a un servidor Linux? ¿Alguna idea que no incluya FTP o Telnet? Necesito que sea una conexión por medio de sockets. De ser posible publiquen un código de ejemplo por favor. Gracias.

Hola. Tengo un problema con un archivo aleatorio, lo que necesito es extraer un registro previamente comparado de un archivo aleatorio, les muestro un ejemplo:

Contenido de archivo aleatorio:

"Nombre" "Edad" "Direccion" "Telefono"
"Nombre" "Edad" "Direccion" "Telefono"
"Nombre" "Edad" "Direccion" "Telefono"
"Nombre" "Edad" "Direccion" "Telefono"
.
.
.
Y así sucesivamente, ya realicé una comparación y sí encuentra el registro adecuado, pero no sé cómo extraerlo. Ya he pensado en usar Line Input, pero esto es inservible si el número de registros es indefinido. ¿Qué puedo hacer? ¿Me podrían mostrar un ejemplo?

Gracias.

Hola a todos, seré breve. Necesito ayuda para parchear el mIRC 6.17; ya logré encontrar el salto que me lleva a la comparación del nombre de usuario y clave (ya logré registrarme), pero al momento de editarlo con el Hex WorkShop 3.1 (para que los cambios sean permanentes) el programa deja de funcionar. ¿Qué más puedo hacer?