在sqlserver端写个函数或存储过程,然后delphi调用函数或过程,这样行不?
create function hyc(@tbl varchar(100))
returns varchar(100)
as
begin
declare @ret varchar(100)
select @ret=name from syscolumns where id=object_id(@tbl)
and status=0x80
return @ret
end
delphi:
var S:string;
begin
S:='Select dbo.hyc(''Table_name'')';
...
...
...
Qry.SQL.add(S);
Qry.SQL.open;
...
...
end;