在Delphi中根据SQL Server表名和表描述生成SQL语句
在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.valuefrom 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+''')';
页:
[1]