Visual Basic

Private Declare Function Beep Lib "kernel32" Alias "Beep" _
    (ByVal dwFrequency As Long, ByVal dwDuration As Long) As Long

Beep 5000, 250

cmdLine$ = chr$(34) & "C:\Windows\notepad.exe" & chr$(34)  ' "C:\Windows\notepad.exe"
WorkingDirectory = Path.GetFullPath(cmdLine$)              ' will be C:\Windows\notepad.exe
WorkingDriectory = Path.GetPathRoot(WorkingDirectory)      ' Should be C:\Windows

<br />
Public Function ExecuteAndWait(cmdline$)<br />
On Error GoTo Error<br />
<br />
    Dim NameOfProc As PROCESS_INFORMATION<br />
    Dim NameStart As STARTUPINFO<br />
    Dim x As Long<br />
    Dim WorkingDirectory As String<br />
    Dim Path As String<br />
<br />
Path = cmdline$<br />
WorkingDirectory = Mid(Path, 1, InStrRev(Path, "\") - 1)<br />
<br />
MsgBox WorkingDirectory<br />
   GoTo Quit<br />
    NameStart.cb = Len(NameStart)<br />
    x = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, WorkingDirectory, NameStart, NameOfProc)<br />
    x = WaitForSingleObject(NameOfProc.hProcess, INFINITE)<br />
    x = CloseHandle(NameOfProc.hProcess)<br />
    <br />
Exit Function<br />
Error:     ' Error handling<br />
MsgBox "Run-Time Error number " & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbCritical, "CreateProcess"<br />
GoTo Quit<br />
Quit:<br />
End Function<br />

<br />
GetFullPath declared like this : ?<br />
<br />
Public Declare Function GetFullPath Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long<br />
<br />
<br />
GetPathRoot declared like this : ?<br />
<br />
Private Declare Function GetPathRoot Lib "gdi32.dll" (ByVal hdc As Long, ByRef lpPoint As POINTAPI, ByRef lpTypes As Byte, ByVal nSize As Long) As Long<br />
<br />
<br />

<br />
   Dim WorkingDirectory As String<br />
   Dim Path As String<br />
   Dim Path1 As String<br />
<br />
Path = cmdline$<br />
Path1 = Right(Path, Len(Path) - 1)<br />
WorkingDirectory = Mid(Path1, 1, InStrRev(Path1, "\") - 1)<br />
msgbox WorkingDirectory<br />

ALTER TABLE Invoice ADD COLUMN " & taxName.Text & " currency BEFORE <fieldname>

1. Rename that table.
2. Create a new table with the same fields as the original with all the sametriggers, constraints, ...
   But when you create the columns, create them in order and create the new column when appropriate.
3. Copy the data to the new table.
4. Delete the old table.