At 03:48 AM 13-10-02 -0400, you wrote:

>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.

To state the obvious, it looks as if you are trying to stuff a value into a
column in the new table that violates a uniqueness constraint. What's the
question?

Helen