Database

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & m_path
        Const queryString1 As String = _
        " DELETE FROM ARTRS01H.dbf h " & _
        " WHERE h.FINVNO = @FINVNO "

        Const queryString2 As String = _
        " DELETE FROM ARTRS01.dbf v " & _
        " WHERE v.FINVNO = @FINVNO "

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

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

                Try
                    connection.Open()
                    Dim x As Integer = command.ExecuteNonQuery()
                    command.CommandText = queryString2
                    x += 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

Dim connString As String = "Provider=VFPOLEDB; Data Source=" & m_path & ";"
        Dim queryString1 As String = _
        " SET EXCLUSIVE ON" & _
        " DELETE FROM ARTRS01H.dbf " & _
        " WHERE FINVNO = '" & p & "' " & _
        " PACK "

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

                Try
                    connection.Open()
                    command.CommandType = CommandType.StoredProcedure
                    command.CommandText = "ExecScript"
                    command.Parameters.Add("script1", OleDbType.Char).Value = queryString1
                    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

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.