function query_test(str:string):TDataSource begin SQL.Close; SQL.SQL.Clear; SQL.SQL.Add(str); SQL.Open; result := SQL.DataSource; end; ... DBGrid1.DataSource := query_test('select name from sysusers'); 为什么以上的执行没反应?
不行. 我用以下的方法也不行 db :TDataSource;... DBGrid1.DataSource := db; db = query_test('select name from sysusers'); ... 表格中没有数据出现
DBGrid1.DataSource:=DataSource1; DataSource1.dataset:=ADoQuery1 with ADOQuery1 do Begin close; sql.clear; sql.add('select name from sysusers') open; End; 这种方法你看行不行???/
begin
SQL.Close;
SQL.SQL.Clear;
SQL.SQL.Add(str);
SQL.Open;
result := SQL.DataSource;
end;
...
DBGrid1.DataSource := query_test('select name from sysusers');
为什么以上的执行没反应?
我用以下的方法也不行
db :TDataSource;...
DBGrid1.DataSource := db;
db = query_test('select name from sysusers');
...
表格中没有数据出现
DataSource1.dataset:=ADoQuery1
with ADOQuery1 do
Begin
close;
sql.clear;
sql.add('select name from sysusers')
open;
End;
这种方法你看行不行???/