/*
?*????Program?type:??API?Interface
?*
?*????Description:
?*????????This?program?creates?a?new?database?given?an?SQL?statement
?*????????string.??The?newly?created?database?is?accessed?after?its
?*????????creation?and?a?sample?table?is?added.
?*
?*????????The?SQLCODE?is?extracted?from?the?status?vector?and?is?used
?*????????to?check?whether?the?database?already?exists.
?*
?*?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.borland.com/devsupport/interbase/opensource/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?Borland?Software?Corporation
?*?and?its?predecessors.??Portions?created?by?Borland?are?Copyright?（c）
?*?1994?-?2001?Borland?Software?Corporation.
?*?All?rights?reserved.
?*
?*?Contributor（s）:
?*?????????????????Aaron?Ruddick?Interbase?QA?Borland?Software?Corp.
?*?????????????????Dan?Mikhayltsa??Interbase?QA?Borland?Software?Corp.
?*/


#include?
#include?
#include?
#include?“example.h“
#include?se.h>

int?pr_error?（long?ISC_FAR?*?char?ISC_FAR?*）;



static?char?ISC_FAR?*create_tbl??=?“CREATE?TABLE?dbinfo?（when_created?DATE）“;
static?char?ISC_FAR?*insert_date?=?“INSERT?INTO?dbinfo?VALUES?（‘NOW‘）“;

int?main?（ARG（int?argc）?ARG（char?**?argv））
ARGLIST（int?argc）
ARGLIST（char?**argv）?
{
????isc_db_handle???newdb?=?NULL;??????????/*?database?handle?*/
????isc_tr_handle???trans?=?NULL;??????????/*?transaction?handle?*/
????long????????????status[20];????????????/*?status?vector?*/
????long????????????sqlcode;???????????????/*?SQLCODE??*/
????char????????????create_db[160];????????/*?‘create?database‘?statement?*/
????char????????????new_dbname[128];

????if?（argc?>?1）
????????strcpy（new_dbname?argv[1]）;
????else
????????strcpy（new_dbname?“new.gdb“）;

????/*
?????*????Construct?a?‘create?database‘?statement.
?????*????The?database?name?could?have?been?passed?as?a?parameter.
?????*/
????sprintf（create_db?“CREATE?DATAbase?‘%s‘“?new_dbname）;
????
????/*
?????*????Create?a?new?database.
?????*????The?database?handle?is?zero.
?????*/
????
????if?（isc_dsql_execute_immediate（status?&newdb?&trans?0?create_db?1
???????????????????????????????????NULL））
????{
????????/*?Extract?SQLCODE?from?the?status?vector.?*/
????????sqlcode?=?isc_sqlcode（status）;

????????/*?Print?a?descriptive?message?based?on?the?SQLCODE.?*/
????????if?（sqlcode?==?-902）
????????{
????????????printf（“\nDatabase?already?exists.\n“）;
????????????printf（“Remove?%s?before?running?this?program.\n\n“?new_dbname）;
????????}

????????/*?In?add