Foro de elhacker.net

Holas Bueno tengo mi BD y unos procedimientos pero todo lo tengo en un script de sql, mi duda era si se podia crear desde visual net u otro lado un "instalador del script" cosa que cuando vaya a otra maquina no sea nesesario tener que abrir el sql y ejecutar mi script o cuando distribuya mi aplicacion no vean el codigo de mi script

:http://www.elguille.info/NET/ADONET/Crear_una_base_de_datos_de_SQL_Server_mediante_codigo_de_Visual_Basic.htm

hazlo por consola...

yo tambien tuve la misma necesidad, pero para crear un asistente de importacion / exportacion de copias de seguridad de la bd de la aplicacion.

la idea es ejecudar la consola y ejecutar el mysql dandole los parámetros (usuario, password, bd, y la ruta del fichero a importar).

El codigo tambien detecta cuando se ha finalizado de importar, esto lo hace monitoreando si está abierta la consola o no...


te pongo aqui el codigo

        Dim pid As Long
        On Error Resume Next
        Kill sFile
        pid = Shell("cmd.exe /c mysql --user=" & db_user & " --password=" & db_pass & " " & db_nombre & " < " & Chr(34) & sFile & Chr(34), vbHide)
        While Proceso_abierto(pid) = True
            DoEvents
            Sleep (100)
        Wend
        Sleep 1000
        MsgBox "El archivo ha sido importado Exitosamente, vuelva a ejecutar el programa.", vbInformation, "Copia de Seguridad Restablecida"
 
 
 

 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 Private Declare Function EnumProcesses Lib "PSAPI.DLL" ( _
     ByRef lpidProcess As Long, _
     ByVal cb As Long, _
     ByRef cbNeeded As Long) As Long
Private Function Proceso_abierto(ByVal pid As Long) As Boolean
    'Nos dice si un PID esta abierto, para saber si finalizo el proceso
    Dim Array_Procesos() As Long
    Dim i_Procesos As Long
    Dim t_cbNeeded As Long
    Dim i As Long
    Dim ret As Long
    ReDim Array_Procesos(250) As Long
    ret = EnumProcesses(Array_Procesos(1), 1000, t_cbNeeded)
    i_Procesos = t_cbNeeded / 4
    For i = 1 To i_Procesos
        If pid = Array_Procesos(i) Then
            Proceso_abierto = True
        End If
 
    Next
End Function
 

SALUDOS