Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#109: How can I generate the script for SELECT-statement?

I know that you have a fan holiday (a Merry Christmas to all!) but I work today so serie of tips for SQL-script autogeneration is continue...

Today I want to publish a small procedure that generate a SELECT-statement for data of table. This code I uses in DIM: Database Information Manager:

function GetSelectTable(Dataset: TTable): TStrings;
var
  i: Integer;
  str: string;
begin
  Result := TStringList.Create;
  try
    for i := 0 to DataSet.FieldCount-1 do
    begin
      if i = 0 then
        str := 'SELECT'
      else
        str := ',';
      str := str + ' ' + DataSet.Fields[i].FieldName;
      Result.Add(str);
    end;
    Result.Add('FROM ' + DataSet.TableName)
  except
    Result.Free;
    Result := nil;
  end;
end;

Of course, you can add the ORDER BY-clause (just iterate by index fields) and/or GROUP BY-clause...

Published: December 25, 2000

See also

	DBExport tools
	Paradox Password Recovery
	Excel Reader (dll)
	SMDBGrid
	Paradox ActiveX
	Metafile Convert
	Paradox to Text converter
	Clarion Viewer
	Excel Web-stream
	SMImport suite

Contact to webmaster