
06/04/2011, 15:48
|
| | Fecha de Ingreso: diciembre-2005 Ubicación: Jalisco
Mensajes: 31
Antigüedad: 19 años, 3 meses Puntos: 0 | |
Ejecutar SQL Script En VS.NET Hola, Tengo una pregunta, se podra, ejecutar un SQL Script, sin necesidad de utilizar el Ejecutable de MySQL ? y que tmb genere un log.txt en C:\
yo tengo este codigo.
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim dgRespuesta As DialogResult
Dim RutaMysqlContra, RutaMysql As String
dgRespuesta = MsgBox("<¿> ¿Deseas actualizar la base de datos ? <?>", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If (dgRespuesta = Windows.Forms.DialogResult.Yes) Then
Dim Servidor, Usuario, Bd, Puerto, Pass As String
Servidor = Me.txtServidor.Text
Usuario = Me.txtUsuario.Text
Bd = Me.txtNombreBd.Text
Puerto = Me.txtPuerto.Text
Pass = Me.txtContraseña.Text
Me.BackgroundWorker1.ReportProgress(50)
Try
If Me.txtContraseña.Text <> "" Then
RutaMysqlContra = Application.StartupPath & "\update.bat"
'Shell("""" & RutaMysqlContra & """", AppWinStyle.Hide, True)
Microsoft.VisualBasic.Interaction.Shell("cmd.exe /C mysql -h " & Servidor & " -u " & Usuario & " -p" & Pass & " -P " & Puerto & " -e ""source " & fbdCarpetas.SelectedPath & "\update.sql" & """ -vvv " & Bd & " > ""C:\log.txt"" ", AppWinStyle.Hide, True)
Else
RutaMysql = Application.StartupPath & "\Update2.bat"
'Shell("""" & RutaMysql & """", AppWinStyle.Hide, True)
Microsoft.VisualBasic.Interaction.Shell("cmd.exe /C mysql -h " & Servidor & " -u " & Usuario & " -P " & Puerto & " -e ""source " & fbdCarpetas.SelectedPath & "\update.sql" & """ -vvv " & Bd & " > ""C:\log.txt"" ", AppWinStyle.Hide, True)
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToString())
Finally
End Try
Me.BackgroundWorker1.ReportProgress(100)
Else
MsgBox("<¡> El Usuario ha cancelado la actualizacion del programa <!>", MsgBoxStyle.Exclamation)
e.Cancel = True
End If
End Sub
Última edición por striderwar; 06/04/2011 a las 17:08 |