🚀 go-pugleaf

This is a known issue with ADO is BCB6 - you search google groups to find
various workarounds-  what I do is this (not sure of exact syntax/class
names, but you get the picture):

_di_Properties diProps = ADODataSet1->Properties;
_diProperty diProp1;
_diProperty diProp2;
diProps->Get_Item(varURProp, diProp1);
diProps->Get_Item(varUTProp, diProp2);
diProp1->Set_Value(adResyncAll);
diProp2->Set_Value(varTABLE);

In general, to access a property represented by a DelphiInterface, use the
Get_xxx method that takes a DelphiInterface reference as a parameter.

Mark Guerrieri
mguerrieri@cmsgrp.com




"Daryl" <daryl.stock@qr.com.au> wrote in message
news:3de5bba6$1@newsgroups.borland.com...
> Hi
> I recently posted a linker error message for comment (see below).  The
> problem only started when I tried to convert a BB5 application using ADO
to
> Builder 6.  I have now discovered the problem the offending code is shown
> below for comment.  If I comment out the lines there is no problem...
>
> Can anyone please help identify what the problem is.
>
> Thanks
> Daryl
>
>   ADODataSet1->Properties->_scw_Get_Item(varURProp)->Value = adResyncAll;
>   ADODataSet1->Properties->_scw_Get_Item(varUTProp)->Value = varTABLE;
>
> The linker error is:
> Unresolved external 'SYSTEM::__linkproc ___ fastcall CheckAuto()'
referenced
> from E:\PROGRAM FILES\BORLAND\CBUILDER6\LIB\RELEASE\VCLE.LIB | syssupp
>
>
file://---------------------------------------------------------------------
> ------
> void TForm1::setADOProperties()
> {
>   OleVariant varURProp = OleVariant(String("Update Resync"));
>   OleVariant varUTProp = OleVariant(String("Unique Table"));
>   OleVariant varTABLE = OleVariant(String("tblTransaction"));
>   enum CEResyncEnum {adResyncNone, adResyncAutoIncrement,
adResyncConflicts,
>                      adResyncUpdates=4, adResyncInserts=8,
adResyncAll=15};
>
>   // Set ADORecordset dynamic parameters
>   ADODataSet1->Properties->_scw_Get_Item(varURProp)->Value = adResyncAll;
>   ADODataSet1->Properties->_scw_Get_Item(varUTProp)->Value = varTABLE;
> }
>
file://---------------------------------------------------------------------
> ------
>
>
>
>