在Delphi中根据SQL Server表名和表描述生成SQL语句

garfieldtom

在Delphi中根据SQL Server表名和表描述生成SQL语句

<div id="cnblogs_post_body">直接上代码吧：

<div class="cnblogs_code"> 1 function GetSQLByTableName(sTableName:string):String;
2 var
3   aDataSet:TDataSet;
4   s:String;
5   aField:TField;
6   aFieldList,aFieldDescriptionList:TList<string>;
7   function GetFieldDescription(sTable,sField:string):String;
8   var
9     sSQL:String;
10   begin
11     sSQL:='select sys.extended_properties.value  from sys.extended_properties '
12      +' left join   syscolumns on (syscolumns.colid=sys.extended_properties.minor_id'
13      +' and syscolumns.id=sys.extended_properties.major_id)'
14      +' where syscolumns.name='''+sField+''' and syscolumns.id=object_id('''+sTable+''')';