补充一下,如果SQL是:select * from a ,则可以用此属性返回:'a' 如果SQL是:SELECT 材料ID, 材料名, 材料类型, 发放定额 FROM tab材料类型 INNER JOIN tab材料 ON tab材料类型.材料类型ID = tab材料.材料类型ID;则可以求得 'tab材料类型;tab材料'大家明白吗?
获取SQL语句中from后的字段 最好你这个sql语句写得严格点 如 select * from t1,t2,t3 where .... 就是有空格的地方只用一个空格 没空格的地方不能有空格你可以用这个方法试试
var i : Integer; begin for i := 0 to ADODataSet1.Fields.Count - 1 do mem.Lines.Add(vartostr(ADODataSet1.Recordset.Fields[i].Properties.Item['BASETABLENAME'].Value)); end;
如果SQL是:SELECT 材料ID, 材料名, 材料类型, 发放定额
FROM tab材料类型 INNER JOIN tab材料 ON tab材料类型.材料类型ID = tab材料.材料类型ID;则可以求得 'tab材料类型;tab材料'大家明白吗?
不过,既然你已经有了SQL,那么也就知道用了哪些TAB了,可以从外围去获取TAB名。
最好你这个sql语句写得严格点
如 select * from t1,t2,t3 where ....
就是有空格的地方只用一个空格 没空格的地方不能有空格你可以用这个方法试试
i : Integer;
begin
for i := 0 to ADODataSet1.Fields.Count - 1 do
mem.Lines.Add(vartostr(ADODataSet1.Recordset.Fields[i].Properties.Item['BASETABLENAME'].Value));
end;