SQL Sample 1о оп9__ния п

SQL Sample 1о оп9__ния п_Јµ,¤Є

HANDLE HBase,HTable

STRING command

if (not(FileExistFileExist ("tea.dbf"))) // если нет файла

// готовим SQL команду

// создания таблицы

command := '

CREATE TABLE "tea.dbf"

(

Number NUMERIC(3,0),

Title CHAR(20),

MassaP NUMERIC(10,4),

MassaR NUMERIC(10,4),

MassaO NUMERIC(10,4),

Price NUMERIC(10,4),

Month_ NUMERIC(2,0),

Data_ NUMERIC(2,0)

HTable := DbSQLDbSQL (~HBase, ~command, 2) // выполняем SQL команду

// готовим SQL команду

// редактирования таблицы

command := '

ALTER TABLE "tea.dbf"

ADD Point CHAR (7),

ADD ToPoint CHAR (7),

ADD Comment_ CHAR(20),

ADD Type_ NUMERIC(3,0),

ADD View_ BOOLEAN'

HTable := DbSQL(~HBase, ~command, 2) // выполняем SQL команду

endif