Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Support Forums » ElevateDB Extensions » View Thread |
Messages 1 to 2 of 2 total |
Small utility routines |
Tue, Dec 18 2007 11:59 AM | Permanent Link |
Roy Lambert NLH Associates Team Elevate | I'm now working on getting my app running under EDB, after 10 months getting it converted to TMS controls, rewriting some utilities and it'll be so nice when this is all done and I can move ahead rather than just getting back to where I was.
OK grumbling over. As I go I'll be writing some small utility routines to help, sometimes replacing functionality that has yet to reappear in ElevateDB from DBISAM. As I do I'll post the code in this thread - if its ever a lot of lines either I won't post it, or I'll post to the binaries. Roy Lambert |
Tue, Dec 18 2007 12:00 PM | Permanent Link |
Roy Lambert NLH Associates Team Elevate | function DoesTableExist(sName,dName,tName :string):boolean;
var Checker:TEDBQuery; begin Checker:= TEDBQuery.Create(nil); try Checker.SessionName := sName; Checker.DatabaseName := dName; Checker.SQL.Text := 'SELECT * FROM Information.Tables WHERE Name = '+QuotedStr(tName); Checker.ExecSQL; Result := Checker.RecordCount > 0; finally Checker.Close; Checker.Free; end; end; Roy Lambert |
This web page was last updated on Tuesday, April 30, 2024 at 03:55 PM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |