Hi All,

I am quite new to Firebird, so I may be doing some simple thing wrong. I am using Delphi 2009 on Windows 7 64 bit. I installed the 64bit version of Firebird.

Here is the DDL of my table :

CREATE TABLE tbl_Products (
MFK$RICHFORMAT BLOB SUB_TYPE TEXT CHARACTER SET UNICODE_FSS,
MFK$GUID CHAR(108) CHARACTER SET UNICODE_FSS NOT NULL,
MFK$CTS TIMESTAMP,
MFK$LMTS TIMESTAMP,
ProductName VARCHAR(384) CHARACTER SET UNICODE_FSS NOT NULL,
Description VARCHAR(768) CHARACTER SET UNICODE_FSS,
Cost NUMERIC(10,2) DEFAULT 0 NOT NULL,
Retail NUMERIC(10,2) DEFAULT 0 NOT NULL,
SalePrice NUMERIC(10,2) DEFAULT 0,
ManProdId VARCHAR(96) CHARACTER SET UNICODE_FSS,
CategoryId INTEGER DEFAULT 0,
TaxId CHAR(3) CHARACTER SET UNICODE_FSS,
Markup FLOAT DEFAULT 0,
FreightMode CHAR(24) CHARACTER SET UNICODE_FSS,
FreightCharge NUMERIC(10,2) DEFAULT 0,
Enabled SMALLINT DEFAULT '1',
ThumbImage BLOB SUB_TYPE -3,
ProductImage BLOB SUB_TYPE -3,
ProductId VARCHAR(60) CHARACTER SET UNICODE_FSS NOT NULL,
ManufacturerId INTEGER DEFAULT 0);

/* Primary key */

ALTER TABLE tbl_Products ADD CONSTRAINT INTEG_70 PRIMARY KEY (ProductId);

/* Indices */

CREATE UNIQUE INDEX tbl_Products_X1
ON tbl_Products(MFK$GUID);
CREATE INDEX tbl_Products_X2
ON tbl_Products(MFK$CTS);
CREATE INDEX tbl_Products_X6
ON tbl_Products(ManProdId);

-----------------------------------------------------------------

Here is the insert statement in a TIBOQuery component :

Insert Into "tbl_Products"
("ProductId","ManProdId","ManufacturerId","ProductName",
"CategoryId","Description","Cost","Retail","SalePrice",
"TaxId","Markup","FreightMode","FreightCharge","Enabled")
Values
(:ProdId,:ManPId,:ManId,:ProdName,:CatId,:Desc,
:CostP,:RetailP,:SaleP,:Tax,:PMarkup,:FreightM,:FreightC,:PEnabled)

-----------------------------------------------------------------

The param value types I have set are as follows :

ProdId string
ManPId string
ManId integer
ProdName string
CatId integer
Desc string
CostP currency
RetailP currency
SaleP currency
Tax string
PMarkup currency
FreightM string
FreightC currency
PEnabled shortint

do these look right ?

-----------------------------------------------------------

And the code I have to run the insert query is :

with qProductInsert2 do begin
Close;
ParamByName('ProdId').AsString := sProd;
ParamByName('ManPId').AsString := sManProd;
ParamByName('ManId').AsInteger := 1;
ParamByName('ProdName').AsString := sProdName;
ParamByName('CatId').AsInteger := 1;
ParamByName('Desc').AsString := sDesc;
ParamByName('CostP').AsFloat := cCost;
ParamByName('RetailP').AsFloat := 0;
ParamByName('SaleP').AsFloat := 0;
ParamByName('Tax').AsString := 'A';
ParamByName('PMarkup').AsFloat := 0;
ParamByName('FreightM').AsString := '';
ParamByName('FreightC').AsFloat := 0;
ParamByName('PEnabled').AsInteger := 1;
ExecSQL;
end;

------------------------------------------------------------

The error I am getting is :

ISC ERROR CODE:335544343

ISC ERROR MESSAGE:
invalid request BLR at offset 8
function GETTIME is not defined
module name or entrypoint could not be found

STATEMENT:
TIBOInternalDataset:
"<TApplication>.afMain.fImportProducts.qProductInsert.IBOqrq.

------------------------------------------------------------

1. Can anyone tell me what the problem is and how to fix it?

2. And do my value types for the params look correct for their respective fields?

3. Does anything else look wrong?

Sorry for such a long post, but i thought it would be better to post everything.

Thanks for any help,

Cheers,
Paul