Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 7 of 7 total
Thread Verify / repair / optimise forms
Wed, Nov 27 2013 4:32 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Roy Lambert





Attachments: RandOTables.dfm RandOTables.pas
Thu, Nov 28 2013 11:47 AMPermanent Link

Pierre du Plessis

Comproware

Got them - thanks again!
Thu, Nov 28 2013 11:55 AMPermanent Link

Pierre du Plessis

Comproware

Hi Roy,

The DFM seems to be missing a few lines at the end?

Kind regards
Pierre
Fri, Nov 29 2013 4:40 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Pierre

>The DFM seems to be missing a few lines at the end?


These are the last lines

 object ValidateTable: TEDBScript
   DatabaseName = 'DB'
   SessionName = 'TfRSession'
   SQL.Strings = (
    
       'SCRIPT(IN TableName VARCHAR COLLATE ANSI_CI, IN StructureOnly BO' +
       'OLEAN, OUT OK BOOLEAN)'
     'BEGIN'
     ' DECLARE Stmt STATEMENT;'
    
       ' PREPARE Stmt FROM '#39'REPAIR TABLE '#39'+QUOTEDSTR(TableName,'#39'"'#39') + IF' +
       '(StructureOnly,'#39' STRUCTURE ONLY'#39','#39#39');'
     ' EXECUTE Stmt;'
     ' SET OK =  STMTRESULT(Stmt);'
     'END')
   Params = <>
   Left = 72
   Top = 416
 end
end

I've just downloaded the attachment here are the lines are there.

Roy Lambert [Team Elevate]
Fri, Nov 29 2013 4:46 PMPermanent Link

Pierre du Plessis

Comproware

Thanks Roy, I'll give it a go Smile
Fri, Nov 29 2013 8:38 PMPermanent Link

Pierre du Plessis

Comproware

Hi Roy,

What are these TnlhXXX components?  I did a search for them but could not get a hit.  Are they stuff you did yourself?

Best regards
Pierre
Sat, Nov 30 2013 4:16 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Pierre

>What are these TnlhXXX components? I did a search for them but could not get a hit. Are they stuff you did yourself?

Yes, I thought I'd posted them but it looks like I haven't - will do later on today.

Roy Lambert [Team Elevate]
Image