Subject RE: [IBO] Error 335544332
Author Marv Cook
Jason,
Delphi6 Enterprise, FB1.0 IBO 4.2.I

I have 2 Data Modules, each with a IBO_Connection and IBO_Query. Each
connection points to a different database on the same database server. One
database is a Dialect 1 and the other (empty) one is Dialect3. I want to
transer data from a table on database 1 to a table on database 2 with the
same name.

The code is:
...
Both databases are successfully opened
....
While not QF.EOF do
begin
QF := dmo.ACC_ComplaintQ;
QT := dmo2.CTS_ComplaintQ;
if not QF.prepared then QF.Prepare;
if not QT.prepared then Qt.Prepare;
QF.Open;
QF.First;
QT.Params[0].asInteger := 1;
QT.Open;
n := 0;
while (not QF.Eof) do
begin
QT.Insert;
k := QF.FieldByName('CPID').asInteger;
QT.FieldByName('CPID').asInteger := QF.FieldByName('CPID').asInteger;
...
...
QT.post; //<-Fails here//
QF.Next; end;

Here are the last few lines of IB_Monitor output.
...
EXECUTE STATEMENT
TR_HANDLE = 9851108
STMT_HANDLE = 9856140
PARAMS = [ Version 1 SQLd 25 SQLn 25
COMPLAINT.CPID = 129
COMPLAINT.CID = 0
COMPLAINT.COMPLAINTTYPE = 93
COMPLAINT.OPENDATE = '28 Jan 2000'
COMPLAINT.RESOLUTIONDATE = '31 Jan 2000'
COMPLAINT.TAKENBY = 126
COMPLAINT.ASSIGNEDTO = 110
COMPLAINT.ASSIGNEDTODATE = '31 Jan 2000'
COMPLAINT.RESOLVEDBY = 110
COMPLAINT.WORKORDER = ''
COMPLAINT.CSCLOSED = 'T'
COMPLAINT.WATER = 'F'
COMPLAINT.COMMENT = 'Re-inspect lateral. Call home owner on Monday
(1/31/00).'
COMPLAINT.CONTACT = 'January 31, 2000 15:42 by Kim Campbell
(Second Inspection)
Found roots at 60 ft. and a sag at lateral @ main. Lateral open to main.
First inspection found roots in lateral @ 28 ft. from clean out. Owner had
roots professionaly removed.'
COMPLAINT.ADDRESSNO = ' 1809'
COMPLAINT.LASTSORT = 'keller'
COMPLAINT.PHONE = '939-1339'
COMPLAINT.MULTIVISIT = 'F'
COMPLAINT.SID = 6537
COMPLAINT.FIRSTNAME = 'Perry'
COMPLAINT.LASTNAME = 'Keller'
COMPLAINT.OPENTIME = 0
COMPLAINT.RESOLUTIONTIME = 0
COMPLAINT.ASSIGNEDTOTIME = 0
COMPLAINT.RESOLUTIONCODE = 0 ]

SECONDS = 0.015

ERRCODE = 335544665
----*/
/*---
INTERPRETE BUFFER =

ERRCODE = 77
----*/
/*---
INTERPRETE BUFFER = violation of PRIMARY or UNIQUE KEY constraint "INTEG_22"
on table "COMPLAINT"

ERRCODE = -1
----*/
Thanks for any help you can offer.

Marv