Subject Interbase and Arrays
Post date 2000-11-21T19:45:56Z
Hello Geno,
 
Looks like you got the old array "gotcha".  Not to worry it got me too!.  Basically what you need to do is create a VARIANT structure to move to and from your Interbase Table.  I am unsure whether you are a Delphi or C++ Builder user though.  If you use Delphi look at the sample provided by Jason that is installed under the default directory \IBOBJECTS\Samples\Arrays\FRM_Arrays.pas.  If you are a C++ Builder user then you can have some of my sample code below:
 
// Save Commission Record
void __fastcall TForm_StraightCommission::SaveCommissionRecord()
{
// Move from Variant Arrays to Database
DBSysSetup->Query_StraightCommission->FieldValues["Commission_Percentage"] = Commission_Percentage;
DBSysSetup->Query_StraightCommission->FieldValues["Chargeback_Percentage"] = Chargeback_Percentage;
DBSysSetup->Query_StraightCommission->FieldValues["Chargeback_Dollar"    ] = Chargeback_Dollar;
DBSysSetup->Query_StraightCommission->Post();
}
 
// First Time Screen is Loaded
void __fastcall TForm_StraightCommission::FirstTime()
{
AnsiString String_Value;
int loop;
int Bounds[2] = {1,100};
Variant Value;
//
// Declare Variant Arrays GLOBAL
// Commission_Percentage,Chargeback_Percentage, Chargeback_Dollar previously defined as VARIANT
//

Commission_Percentage = VarArrayCreate(Bounds,1,varInteger);
Chargeback_Percentage = VarArrayCreate(Bounds,1,varInteger);
Chargeback_Dollar     = VarArrayCreate(Bounds,1,varInteger);
 
DBSysSetup->Query_StraightCommission->Open();                   // Execute SQL statement
DBSysSetup->Query_StraightCommission->First();
if (!DBSysSetup->Query_StraightCommission->Eof)
    {
    // Load Variant Arrays from Database
    Commission_Percentage = DBSysSetup->Query_StraightCommission->FieldValues["Commission_Percentage"];
    Chargeback_Percentage = DBSysSetup->Query_StraightCommission->FieldValues["Chargeback_Percentage"];
    Chargeback_Dollar     = DBSysSetup->Query_StraightCommission->FieldValues["Chargeback_Dollar"];
 
    // Load Grid from Variant Arrays
    for (loop = 0;loop < Button_Grid->RowCount;loop++)
         {
         Value = Commission_Percentage.GetElement(loop+1);
         String_Value = SPStrings->IntToPercent(Value.VInteger,2);
         Button_Grid->Cells  [1][loop] = String_Value;
         Button_Grid->Objects[1][loop] = (TObject*)Value.VInteger;
 
         Value = Chargeback_Percentage.GetElement(loop+1);
         String_Value = SPStrings->IntToPercent(Value.VInteger,2);
         Button_Grid->Cells  [2][loop] = String_Value;
         Button_Grid->Objects[2][loop] = (TObject*)Value.VInteger;
 
         Value = Chargeback_Dollar.GetElement(loop+1);
         String_Value = SPStrings->IntToMoney(Value.VInteger,2);
         Button_Grid->Cells  [3][loop] = String_Value;
         Button_Grid->Objects[3][loop] = (TObject*)Value.VInteger;
          }
    }
 
Button_Grid->Row = 0;
Button_Grid->Col = 0;
}
This sample above loads a Interbase defined Table into a grid named Button_Grid that is a custom control that I developed that is not data aware.  The Interbase Objects that I used was the TIB_Query.  Hope this helps.
 
 
Chris Hulsey
MIS Manager
Visible Changes, Inc.
chulsey@...