Executing a batch file

This is one way of doing it in VB.NET,

        Dim cmd As String = "C:\mysql\bin\MYSQL.EXE --user=root --password=mysupersecretpassword mydatabasename --execute=" & Chr(34) & "source c:\tracking.sql" & Chr(34)
        Dim processid As Long = Microsoft.VisualBasic.Interaction.Shell(cmd, AppWinStyle.MinimizedNoFocus)

Thanks for the suggestions, sorry I hadn't replied before. however, it seems that e-mail notification is not working and I therefore didn't think anyone had made any comments on the question!

vanelk, would this work in VB6?

pshersby, I had considered doing it your way already, but there are several thousand lines of SQL in the file, and I am therefore concerned that the time taken to run through it all across the internet connection would be prohibitive. (I forgot to mention in the question that the MySQL database is sited remotely and linked to via a SSH tunnel.

  "vanekl, would this work in VB6?"
There is an equivalent in VB6 that would work in two lines, yes, but I don't know what those two lines are because I don't have VB6 installed.
VB6 has a 'shell' command but it probably has different parameters from what I'm showing in the VB.NET code.


You could try this VB6 code,
(this code found at http://www.users.zetnet.co.uk/trisen/cc/vb6/vb6_1.html)

Public Type STARTUPINFO
  cb As Long
  lpReserved As String
  lpDesktop As String
  lpTitle As String
  dwX As Long
  dwY As Long
  dwXSize As Long
  dwYSize As Long
  dwXCountChars As Long
  dwYCountChars As Long
  dwFillAttribute As Long
  dwFlags As Long
  wShowWindow As Integer
  cbReserved2 As Integer
  lpReserved2 As Long
  hStdInput As Long
  hStdOutput As Long
  hStdError As Long
End Type

Public Type PROCESS_INFORMATION
  hProcess As Long
  hThread As Long
  dwProcessID As Long
  dwThreadID As Long
End Type

Public Declare Function WaitForSingleObject Lib "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long _
) As Long

Public Declare Function CreateProcessA Lib "kernel32" ( _
  ByVal lpApplicationName As Long, _
  ByVal lpCommandLine As String, _
  ByVal lpProcessAttributes As Long, _
  ByVal lpThreadAttributes As Long, _
  ByVal bInheritHandles As Long, _
  ByVal dwCreationFlags As Long, _
  ByVal lpEnvironment As Long, _
  ByVal lpCurrentDirectory As Long, _
  lpStartupInfo As STARTUPINFO, _
  lpProcessInformation As PROCESS_INFORMATION _
) As Long

Public Declare Function CloseHandle Lib "kernel32" ( _
  ByVal hObject As Long _
) As Long

Public Const NORMAL_PRIORITY_CLASS = &H20&
Public Const INFINITE = -1&

Public Sub ShellAndWait(ByVal RunProg As String)
  Dim RetVal As Long
  Dim proc As PROCESS_INFORMATION
  Dim StartInf As STARTUPINFO
  StartInf.cb = Len(StartInf)
  RetVal = CreateProcessA(0&, RunProg, 0&, 0&, 1&, _
    NORMAL_PRIORITY_CLASS, 0&, 0&, StartInf, proc)
  RetVal = WaitForSingleObject(proc.hProcess, INFINITE)
  RetVal = CloseHandle(proc.hProcess)
End Sub
               
ShellAndWait (cmd)

The database is on a remote server on the Internet and the connection to is is being made via a SSH. So how do I "run" mysql.exe as in your example codes on the remote computer? These examples, it seems, would only work for MySQL on the same computer?