nfx.ec

来自「封装了数据库的基本操作」· EC 代码 · 共 83 行

/*****************************************************************************/
/*                   Database Public Function For Informix                   */
/* ------------------------------------------------------------------------- */
/*  Author : Shih Ho                                                         */
/*  Date   : March 27, 1998                                                  */
/*****************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <memory.h>
$include sqlca;
$include "dblib.h";
$include "nfxprv.h";

/*===========================================================================*/
/* Public Funciton - DBinit                                                  */
/*---------------------------------------------------------------------------*/
int DBinit( User, Password )
char *User;
char *Password;
{
  return( 0 );
}

/*===========================================================================*/
/* Public Function - DBexit                                                  */
/*---------------------------------------------------------------------------*/
int DBexit()
{
  return( DBuse( NULL ) );
}

/*===========================================================================*/
/* Public Function - DBexec                                                  */
/*---------------------------------------------------------------------------*/
int DBexec( Command, Num )
EXEC SQL BEGIN DECLARE SECTION;
char *Command;
int  *Num;
EXEC SQL END DECLARE SECTION;
{
  int r = -1;
  int c;

  if( Command != NULL ){
    EXEC SQL PREPARE cmd_id FROM :Command;
    if( sqlca.sqlcode != SQLOK )
      return( sqlca.sqlcode );
    EXEC SQL EXECUTE cmd_id;
    r = sqlca.sqlcode;
    c = sqlca.sqlerrd[2];
    EXEC SQL FREE cmd_id;
    sqlca.sqlerrd[2] = c;
    if( Num )
      *Num=c;
  }
  return( r );
}

/*===========================================================================*/
/* Public Function - DBuse                                                   */
/*---------------------------------------------------------------------------*/
int DBuse( DBName )
char *DBName;
{
  int r = -2;
  char *Buf;

  if( DBName == NULL )
    return( DBexec( "CLOSE DATABASE", 0 ) );
  if( ( Buf = ( void * ) malloc( 128 ) ) != NULL ){
    sprintf( Buf, "DATABASE %s", DBName );
    r = DBexec( Buf, 0 );
    sprintf( Buf, "SET LOCK MODE TO WAIT 2" ); 
    DBexec( Buf, 0 );
    free( Buf );
  }
  return( r );
}

/*****************************************************************************/