Database

Dim m_path As String = Nothing
        Dim dwXCode As Integer = registry_shared.read_HKCU_dataPath(m_path)
        Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & m_path & "; Extended Properties=dBASE IV"
        Const queryString As String = _
        "SELECT * FROM ARCUS01.dbf WHERE FCUSTNO = @FCUSTNO " & _
        " UPDATE ARCUS01.dbf " & _
        " SET " & _
        "  FCOMPANY = 'Wiped Customer' " & _
        ", FADDR1 = @Empty " & _
        ", FADDR2 = @Empty " & _
        ", FCITY = @Empty " & _
        ", FSTATE = @Empty " & _
        ", FZIP = @Empty " & _
        ", FSADDR1 = @Empty " & _
        ", FSADDR2 = @Empty " & _
        ", FSCITY = @Empty " & _
        ", FSSTATE = @Empty " & _
        ", FSZIP = @Empty " & _
        ", FPHONE1 = @Empty " & _
        ", FFAX = @Empty " & _
        ", FFNAME = @Empty " & _
        ", FLNAME = @Empty " & _
        ", FTITLE = @Empty " & _
        ", FSALESPN = @Empty " & _
        ", FTERR = @Empty " & _
        ", FRESALENO = @Empty " & _
        ", FLPDATE = @Empty " & _
        ", FLPAMT = 0 " & _
        ", FATDSAMT = 0 " & _
        ", FYTDSAMT = 0 " & _
        " WHERE FCUSTNO = @FCUSTNO "

        Using connection As New System.Data.OleDb.OleDbConnection(connString)
            Using command As New System.Data.OleDb.OleDbCommand(queryString, connection)

                Dim paramWipe As System.Data.OleDb.OleDbParameter
                paramWipe = New System.Data.OleDb.OleDbParameter("@Empty", OleDbType.VarChar)
                paramWipe.Value = String.Empty
                command.Parameters.Add(paramWipe)

                Dim paramZero As System.Data.OleDb.OleDbParameter
                paramZero = New System.Data.OleDb.OleDbParameter("@Zero", OleDbType.Decimal)
                paramZero.Value = 0.0
                command.Parameters.Add(paramZero)

                Dim paramFCUSTNO As System.Data.OleDb.OleDbParameter
                paramFCUSTNO = New System.Data.OleDb.OleDbParameter("@FCUSTNO", OleDbType.VarChar)
                paramFCUSTNO.Value = p
                command.Parameters.Add(paramFCUSTNO)

                Try

                    connection.Open()
                    Dim x As Integer = command.ExecuteNonQuery()
                    pValue = If(x > 0, True, False)

                Catch sqlEx As SqlClient.SqlException
                    pValue = False

                Catch exdb As OleDb.OleDbException
                    pValue = False

                Catch ex As Exception
                    pValue = False

                Finally

                    connection.Close()

                End Try

            End Using
        End Using

-- IF THE DATABASE EXISTS, DROP AND RE-CREATE IT
IF EXISTS (SELECT Name FROM master.dbo.sysdatabases WHERE name = N'Dashboard')
BEGIN
    ALTER DATABASE Dashboard SET SINGLE_USER WITH ROLLBACK IMMEDIATE
    DROP DATABASE Dashboard
END
CREATE DATABASE Dashboard

-- CREATE THE TABLES
GO
USE Dashboard
CREATE TABLE DashboardInfo
    (Id                 INT PRIMARY KEY NOT NULL,
     SiteId             INT NOT NULL,
     InstrumentId       INT NOT NULL,
     TowerLocation      INT NOT NULL)

Msg 3702, Level 16, State 3, Line 5
Cannot drop database "Dashboard" because it is currently in use.
Msg 1801, Level 16, State 3, Line 7
Database 'Dashboard' already exists. Choose a different database name.
Msg 2714, Level 16, State 6, Line 12
There is already an object named 'DashboardInfo' in the database.

An exception of type 'Microsoft.SqlServer.Dts.Pipeline.ReadWriteVariablesNotAvailableException' occurred in Microsoft.SqlServer.TxScript.dll but was not handled in user code

Additional information: The collection of variables locked for read and write access is not available outside of PostExecute.

public override void Input0_ProcessInputRow(Input0Buffer Row)
   {
       IDTSVariables100 vars = null;
       VariableDispenser.LockForRead("System::TaskName");
       VariableDispenser.GetVariables(out vars);
       string TaskName = vars["System::TaskName"].Value.ToString();
       vars.Unlock();

       var watcherDBConnectionString
    = "Data Source=" + Variables.TargetServer01.ToString() + ";Initial Catalog=" + Variables.WatcherDB.ToString() + ";" + Variables.Security.ToString();

       var ErrorLogStoredProcedure = ReadOnlyVariables["ErrorLogStoredProcedure"].Value.ToString();

       int PriorityToBeLogged = (int)Priority.Debug;

       Log(Variables.PackageName.ToString(), "", "", "ScriptMain", "Main", "Row.FileName : " + Row.FileName
                               + ", Row.File.Length : " + Row.File.Length.ToString(), "ABDUL"
                                   , Priority.LogicalError, PriorityToBeLogged, watcherDBConnectionString.ToString(), ErrorLogStoredProcedure.ToString());
   }

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & m_path & "; Extended Properties=dBASE IV"
Const queryString As String = _
"SELECT " & _
"  h.FINVNO " & _
", h.FSONO " & _
", h.FCUSTNO " & _
", h.FCOMPANY " & _
", h.FSALESPN " & _
", h.FSHIPDATE " & _
", h.FPONO " & _
", h.FCSAMT " & _
", h.FTAXAMT1 " & _
", h.FBADDRCD " & _
", h.FSADDRCD " & _
", hbA.FCOMPANY " & _
", hbA.FADDR1 " & _
", hbA.FADDR2 " & _
", hbA.FCITY " & _
", hbA.FSTATE " & _
", hbA.FZIP " & _
" FROM ARINV01H.dbf h " & _
" LEFT JOIN ARADD01H.dbf hbA ON (h.FINVNO = hbA.FINVNO) " & _
" LEFT JOIN ARCUS01.dbf hsA ON (h.FCUSTNO = hsA.FCUSTNO) " & _
" WHERE " & _
" h.FSALESPN = @FSALESPN " & _
" AND " & _
" h.FSHIPDATE >= @startDate AND h.FSHIPDATE <= @stopDate " & _
"UNION ALL " & _
"SELECT " & _
"  v.FINVNO " & _
", v.FSONO " & _
", v.FCUSTNO " & _
", v.FCOMPANY " & _
", v.FSALESPN " & _
", v.FSHIPDATE " & _
", v.FPONO " & _
", v.FCSAMT " & _
", v.FTAXAMT1 " & _
", v.FBADDRCD " & _
", v.FSADDRCD " & _
", vbA.FCOMPANY " & _
", vbA.FADDR1 " & _
", vbA.FADDR2 " & _
", vbA.FCITY " & _
", vbA.FSTATE " & _
", vbA.FZIP " & _
" FROM ARINV01.dbf v " & _
" RIGHT JOIN ARADD01.dbf vbA ON (v.FINVNO = vbA.FINVNO) " & _
" RIGHT JOIN ARCUS01.dbf vsA ON (v.FCUSTNO = vsA.FCUSTNO) " & _
" WHERE " & _
" v.FSALESPN = @FSALESPN " & _
" AND " & _
" v.FSHIPDATE >= @startDate AND v.FSHIPDATE <= @stopDate "