/*
?*????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

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????6486144??2001-11-29?22:50??7.0\IB65_win32?Server\Adobe\rs40eng.exe

?????文件??????23552??1999-09-06?21:50??7.0\IB65_win32?Server\cfgmgr32.dll

?????文件?????217088??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\gbak.exe

?????文件?????376832??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\gds32.dll

?????文件??????45056??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\gfix.exe

?????文件?????368640??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\gpre.exe

?????文件??????36864??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\gsec.exe

?????文件???????2355??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\ib32.cnt

?????文件??????58058??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\ib32.hlp

?????文件???????6906??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBConsole.cnt

?????文件????2716160??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBConsole.exe

?????文件??????96211??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBConsole.hlp

?????文件???????1720??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBConsole.res

?????文件?????????86??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\ibgloss.cnt

?????文件??????25445??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\ibgloss.hlp

?????文件??????36864??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\iblicense.dll

?????文件??????45056??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\iblicense.exe

?????文件?????208896??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBRepl.exe

?????文件?????468480??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBReplServer.exe

?????文件?????367104??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBReplSrvcInstall.exe

?????文件???????2501??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBRplManager.cnt

?????文件????2136576??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBRplManager.exe

?????文件??????58514??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBRplManager.hlp

?????文件?????582144??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\IBScheduler.exe

?????文件??????28672??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\ibxml.dll

?????文件??????20480??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\instreg.exe

?????文件?????167936??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\isql.exe

?????文件????????982??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\perform.cnt

?????文件??????33168??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\perform.hlp

?????文件???????1864??2001-11-29?22:50??7.0\IB65_win32?Server\Client\bin\SqlRef.cnt

............此處省略1037個文件信息