Unit QueryQBE |
============================================================================= QueryQBE VCL 2.0 Allows use of QBE query language and is TDBDataSet compatible =============================================================================== This VCL was adapted from the original author of the TQBE component (UtQBE) which worked so well with Delphi 1.0. I used it in a lot of projects, being a Paradox convert and when we upgraded to 2.0 I tried to recompile it and kept getting a wierd declaration error. Apparently the error stemmed from the uses clause in the implementation section. In any event, after waiting for a couple months, a new version didn't appear anywhere. I posted a couple times and didn't get many responses. Essentially, I got frustrated and set out to fix the code so it would work. After some trial and error, I got this version to work. It's essentially the same component as before. My changes were limited to getting it to work with 2.0 and cleaning up the syntax, varnames a bit. I don't want anyone to construe this as my own original work. I would give credit to the original author, credit being due, but their name wasn't included in the original version and I'm at a loss as to who it was originally. Anyway, it was freeware and always will be. I make no claims to ownership of this code. If it's up to me, use it as you will. Likewise, I take no responsibility for any problems you might encounter. It works for me on local Paradox and DBF tables, but I haven't tested it with SQLLinks or ODBC tables. But there's no warranty or guarantee implied anywhere in any of this, so don't construe one. I would like to make some changes to the component, particularly in the way params are handled. If anyone has additional suggestions please feel free to contact me. Grant Carpenter grant@tiac.net =============================================================================== *ORIGINAL COMMENTS* (edited down slightly) Answer table name can be specified with or without alias. Eg: :dbdemos:void.db Assumed answer table Driver is PARADOX The AnswerType property allows PARADOX, DBASE and ASCII table types If the answer table exists, an attempt to delete it is made before copying the result cursor. The phisical answer table must be opened in exclusive mode and all related family files are erased together with the table. Other functions in this unit: ** Function GetAliasPath(Const Alias:String):String; Returns the path for the "alias" or a empty string if not found. Eg: ('dbdemos') returns 'c:\delphi\demos\data' ** Function GetDBTablePath(Const TableName:String):String; Returns the TableName with path instead of alias (if it has an alias). Eg: (':dbdemos:customer.db') returns 'c:\delphi\demos\data\customer.db' =============================================================================
Classes |
Functions |
GetAliasPath -
GetDBTablePath -
register -
Types |
Constants |
Variables |
Functions |
Types |
TParamArray = array[0..MAX_PARAMS] of String[MAX_PARAM_LEN];
Constants |
Variables |