Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.03 » View Incident Report |
Serious |
Reported By: Daniel Kram Reported On: 10/12/2009 For: Version 2.03 Build 4 |
EXECUTE IMMEDIATE 'CREATE TABLE "tblForTim" ( "idtbllogfiles" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0, INCREMENT BY 1) NOT NULL, "LogType" VARCHAR(3) COLLATE "ANSI_CI" NOT NULL, "DateLastUpdated" TIMESTAMP, "LastUpdatedBy" VARCHAR(3) COLLATE "ANSI_CI" NOT NULL, "ResNumber" INTEGER NOT NULL, "Description" CLOB COLLATE "ANSI_CI" COMPRESSION 6 NOT NULL ) VERSION 1 UNENCRYPTED INDEX PAGE SIZE 4096 BLOB BLOCK SIZE 512 PUBLISH BLOCK SIZE 512 PUBLISH COMPRESSION 6 MAX ROW BUFFER SIZE 32768 MAX INDEX BUFFER SIZE 65536 MAX BLOB BUFFER SIZE 32768 MAX PUBLISH BUFFER SIZE 32768'; EXECUTE IMMEDIATE 'CREATE TEXT INDEX "ndxDescription" ON "tblForTim" ("Description" COLLATE "ANSI_CI") INDEXED WORD LENGTH 30 WORD GENERATOR "Default"'; EXECUTE IMMEDIATE 'CREATE INDEX "ndxResNumber" ON "tblForTim" ("ResNumber")'; EXECUTE IMMEDIATE 'ALTER TABLE "tblForTim" ADD CONSTRAINT "PRIMARY" PRIMARY KEY ("idtbllogfiles")'; ALTER TABLE "tblForTim" ALTER COLUMN "DateLastUpdated" AS TIMESTAMP { in Delphi I do this once } INSERT INTO tblForTim ("LogType","DateLastUpdated","LastUpdatedBy","ResNumber","Description") Values(:LogType, :DateLastUpdated, :LastUpdatedBy, :ResNumber, :Description ); TEDBQuery(qryTemp).SQL.Text := sSQL; TEDBQuery(qryTemp).Prepare; { then each subsequent call I execute } TEDBQuery(qryTemp).ParamByName('LogType').AsString := p_recLogFile.LogType; TEDBQuery(qryTemp).ParamByName('DateLastUpdated').AsDateTime := p_recLogFile.DateLastUpdated; TEDBQuery(qryTemp).ParamByName('LastUpdatedBy').AsString := p_recLogFile.LastUpdatedBy; TEDBQuery(qryTemp).ParamByName('ResNumber').AsString := IntToStr(p_recLogFile.ResNumber); TEDBQuery(qryTemp).ParamByName('Description').AsString := sWork; TEDBQuery(qryTemp).ExecSQL; { when all done, I put things back } ALTER TABLE "tbllogfiles" ALTER COLUMN "DateLastUpdated" AS TIMESTAMP GENERATED ALWAYS AS CURRENT_TIMESTAMP()
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |