delphimvcframework/unittests/general/Several/bin/firebird/examples/api/api2.c

/*
 *  Program type:  API Interface
 *
 *  Description:
 *        This program adds several departments with small default
 *        budgets, using 'execute immediate' statement.
 *        Then, a prepared statement, which doubles budgets for
 *        departments with low budgets, is executed.
 * The contents of this file are subject to the Interbase Public
 * License Version 1.0 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy
 * of the License at http://www.Inprise.com/IPL.html
 *
 * Software distributed under the License is distributed on an
 * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
 * or implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code was created by Inprise Corporation
 * and its predecessors. Portions created by Inprise Corporation are
 * Copyright (C) Inprise Corporation.
 *
 * All Rights Reserved.
 * Contributor(s): ______________________________________.
 */

#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include "example.h"
#include <ibase.h>

#define MAXLEN      256
#define DNAMELEN    25
#define DNOLEN      3


int getins (char *, int);
int cleanup (void);



isc_db_handle    DB = 0;                /* database handle */
isc_tr_handle    trans = 0;             /* transaction handle */
ISC_STATUS_ARRAY status;                /* status vector */
char             Db_name[128];

int main (int argc, char** argv)
{
    int                 n = 0;
    char                exec_str[MAXLEN];
    char                prep_str[MAXLEN];
    isc_stmt_handle     double_budget = 0;    /* statement handle */

    if (argc > 1)
        strcpy(Db_name, argv[1]);
    else
        strcpy(Db_name, "employee.fdb");

    if (isc_attach_database(status, 0, Db_name, &DB, 0, NULL))
    {
        ERREXIT(status, 1)
    }

    cleanup();

    /*
     *  Prepare a statement, which may be executed more than once.
     */

    strcpy(prep_str,
           "UPDATE DEPARTMENT SET budget = budget * 2 WHERE budget < 100000");

    /* Allocate a statement. */
    if (isc_dsql_allocate_statement(status, &DB, &double_budget))
    {
        ERREXIT(status, 1)
    }

    if (isc_start_transaction(status, &trans, 1, &DB, 0, NULL))
    {
        ERREXIT(status, 1)
    }

    /* Prepare the statement. */
    if (isc_dsql_prepare(status, &trans, &double_budget, 0, prep_str, 3, NULL))
    {
        ERREXIT(status, 1)
    }

    /*
     *  Add new departments, using 'execute immediate'.
     *  Build each 'insert' statement, using the supplied parameters.
     *  Since these statements will not be needed after they are executed,
     *  use 'execute immediate'.
     */
    
    while (getins(exec_str, n++))
    {
        printf("\nExecuting statement:\n%d:\t%s;\n", n, exec_str);

        if (isc_dsql_execute_immediate(status, &DB, &trans, 0, exec_str, 3, NULL))
        {
            ERREXIT(status, 1)
        }
    }   

    /*
     *    Execute a previously prepared statement.
     */
    printf("\nExecuting a prepared statement:\n\t%s;\n\n", prep_str);

    if (isc_dsql_execute(status, &trans, &double_budget, 3, NULL))
    {
        ERREXIT(status, 1)
    }

    if (isc_dsql_free_statement(status, &double_budget, DSQL_drop))
    {
        ERREXIT(status, 1)
    }

    if (isc_commit_transaction(status, &trans))
    {
        ERREXIT(status, 1)
    }

    if (isc_detach_database(status, &DB))
    {
        ERREXIT(status, 1)
    }

    return 0;
}

/*
 *  Construct an 'insert' statement from the supplied parameters.
 */

int getins (char* line, int line_no)
{
    static char * Dept_data[] =
        {
            "117", "Field Office: Hong Kong",   "110",
            "118", "Field Office: Australia",   "110",
            "119", "Field Office: New Zealand", "110",
            0
        };

    char    dept_no[4];
    char    department[30];
    char    dept_head[4];

    if (Dept_data[3 * line_no] == 0)
        return 0;

    strcpy(dept_no, Dept_data[3 * line_no]);
    strcpy(department, Dept_data[3 * line_no + 1]);
    strcpy(dept_head, Dept_data[3 * line_no + 2]);

    sprintf(line, "INSERT INTO DEPARTMENT (dept_no, department, head_dept) \
            VALUES ('%s', '%s', '%s')", dept_no, department, dept_head);

    return 1;
}

/*
 *  Delete old data.
 */
int cleanup (void)
{
    if (isc_start_transaction(status, &trans, 1, &DB, 0, NULL))
    {
        ERREXIT(status, 1)
    }

    if (isc_dsql_execute_immediate(status, &DB, &trans, 0,
        "DELETE FROM department WHERE dept_no IN ('117', '118', '119')", 1, 0L))
    {
        ERREXIT(status, 1)
    }

    if (isc_commit_transaction(status, &trans))
    {
        ERREXIT(status, 1)
    }

    return 0;
}