Solved

paradox 7 table field limit?

Posted on 2010-11-24
11
759 Views
Last Modified: 2012-05-10
I have a program that builds a temporary paradox 7 table and I am getting a field count error.  The previous programmer had the error set to fire if the field count was greater than 127.  Right now I am at 183 with my new fields.  Is there a set limit for the amount of fields for a paradox 7 table?
0
Comment
Question by:farminsure
  • 4
  • 4
  • 2
  • +1
11 Comments
 
LVL 13

Expert Comment

by:rfwoolf
Comment Utility
Not sure - but I'll do the typical moan about Paradox which let's face it, if I don't do it somebody else will...
Paradox is depricated. It's an old database that's full of issues and you should move away from it if at all possible.
You could use a TClientDataSet and store your table in a MyBase (XML format)
There is also AbsoluteDB which can help you replace the BDE.
0
 

Author Comment

by:farminsure
Comment Utility
preaching to the choir..and we are, but right now I need something done in a few days and this isn't helping.  Not sure if a dataset will work for me actually..
0
 
LVL 58

Expert Comment

by:cyberkiwi
Comment Utility
Pretty sure it is 255
http://www.delphifaq.com/faq/delphi/database/f13.shtml

It is also a BDE limitation, which should match
http://www.delphigroups.info/1/12/23687.html
0
 
LVL 58

Expert Comment

by:cyberkiwi
Comment Utility
Even Paradox 4 supports 255 fields.
A good breakdown of Paradox and limitations (v4-7)

http://www.prestwoodboards.com/ASPSuite/kb/document_view.asp?qid=100060
0
 

Author Comment

by:farminsure
Comment Utility
ok..Cyberkiwi..255 is in my code actually..here is the block of code that fires an edit...it was telling me my field is 183, over the 127..and then I build a TwwQBE

On the open of that twwqbe at the very end is when I get an error message about my field counts being out of wack.  I am not familiar with the qbe, do I need to add these new fields somewhere?  I have added fields in the past and never had this issue until now, but that is because I went over this preset 127..any ideas or thoughts is appreciated.


if (WorkFileFields.Lines.Count > 127) then

       

          begin

            MessageDlg('There are more than 255 fields (more than 127 selections) in the result set.'+#13+

           

             'This will cause an error.'+#13+

             'FieldCount is currently '+Inttostr(WorkFileFields.Lines.Count),

             mtWarning,[mbok],0);

            MessageDlg(WorkFileFields.Lines.Text,mtWarning,[mbok],0);

            WorkFileFields.Lines.SaveToFile('c:\x.txt');

          end;



  wwQBE1.QBE.Clear;



        wwQBE1.QBE.Add('Query');

        wwQBE1.QBE.Add('ANSWER: C:\TCWTMP\SBSPRO.DB');

        wwQBE1.QBE.Add(''); //REQUIRED



        QL := WorkTableName+' | ';

        for i := 0 to WorkFileFields.Lines.Count - 1 do

          begin

            QL := QL + QStrip('*',WorkFileFields.Lines[i]) + ' |';

          end;

        wwQBE1.QBE.Add(QL);



        QL := '| ';

        for i := 0 to WorkFileFields.Lines.Count - 1 do

          begin

            if Pos('*',WorkFileFields.Lines[i]) > 0 then

              CheckOrLink :=

                 'CheckPlus _'+Trim(Copy(WorkFileFields.Lines[i],1,Length(WorkFileFields.Lines[i])-1))+'!'

                 else

              CheckOrLink := 'CheckPlus';

            QL := QL + CheckOrLink + ' |';

          end;

        wwQBE1.QBE.Add(QL);



        wwQBE1.QBE.Add(''); //REQUIRED



        QL := OrigTableName+' | ';

        for i := 0 to WorkFileFields.Lines.Count - 1 do

          begin

            QL := QL + QStrip('*',WorkFileFields.Lines[i]) + ' |';

          end;

        wwQBE1.QBE.Add(QL);



        QL := '| ';

        for i := 0 to WorkFileFields.Lines.Count - 1 do

          begin



            if Pos('*',WorkFileFields.Lines[i]) > 0 then

              CheckOrLink :=

                 'CheckPlus _'+Trim(Copy(WorkFileFields.Lines[i],1,Length(WorkFileFields.Lines[i])-1))+'!'

                 else

              CheckOrLink := 'CheckPlus';



              //showmessage(

              //   UpperCase(Trim(qStrip('*',WorkFileFields.Lines[i])))

              //   );



            if UpperCase(Trim(qStrip('*',WorkFileFields.Lines[i]))) = 'POLICYNO' then

                CheckOrLink := CheckOrLink + ', '+ PolicyNoL.Caption else

            if UpperCase(Trim(qStrip('*',WorkFileFields.Lines[i]))) = 'MOD' then

                CheckOrLink := CheckOrLink + ', '+ ModL.Caption;



            QL := QL + CheckOrLink+ ' |';



          end;

        wwQBE1.QBE.Add(QL);



        wwQBE1.QBE.Add(''); //REQUIRED



        wwQBE1.QBE.Add('EndQuery');





        //if g_HexNo = 'WJQ' then

        //  begin

        //    if (UpperCase(WorkTableName) = 'W_LOCNHP.DB') then

        //      begin

        //        wwQBE1.QBE.SaveToFile('c:\x.qbe');

        //        Showmessage('WJQ: QBE saved to c:\x.qbe');

        //      end;

        //  end;



        if g_HexNo = 'WJQ' then wwQBE1.QBE.SaveToFile('c:\x.qbe');

        wwQBE1.Open;

Open in new window

0
Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

 

Author Comment

by:farminsure
Comment Utility
i can post the whole function if needed.
0
 
LVL 58

Expert Comment

by:cyberkiwi
Comment Utility
I think it is either an Infopower QBE limitation or QBE/other code is doing something to the base table that doubles the number of fields in some temp storage.
QBE (and Paradox) of course is quite dated so I don't have it around to play with.  I must have last seen it in Delphi 5.

It may be easier just to comment out or up the limit frm 127 to 255, which will reveal what it is actually intended to protect/prevent.
0
 

Author Comment

by:farminsure
Comment Utility
Cyberkiwi, I actually bumped it up to 183 so it would skip that message but I get this these?? screenshot

and I am not sure why it is erroring on the table in the last message.
delphierror.doc
0
 
LVL 58

Accepted Solution

by:
cyberkiwi earned 500 total points
Comment Utility
The fact that it mentions 255/127

'There are more than 255 fields (more than 127 selections) in the result set.'

and the text of the error "could not calculate side-by-side"

seems to indicate that it is doing something to each base field by creating one for each, in a temp table.  127x2=254, so once you breach 127, that temp calculation breaks.  While your table 183 is fine, using it in QBE or downstream in your program is not.

Without refactoring/reengineering some part of it, I can't think of any quick fix.
0
 
LVL 25

Expert Comment

by:epasquier
Comment Utility
Number of fields per table : 255
here are all the limits for paradox

http://www.delphigroups.info/1/12/23687.html
0
 
LVL 25

Expert Comment

by:epasquier
Comment Utility
ouh, ok cyberwiki has been doing his homework ;o)
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now