我们现在用的系统中,数据的更新采用的是sql server的数据分发与复制,
原来采用的是手动在sql server 中更新,但是用户觉得很不方便。
现在我们要编写delphi程序来实现这个功能。
但是我们不知道:1,这段sql代码应该如何编写。
2,编写的sql编码在delphi中如何调用。
希望各位大虾多多指教啊!
原来采用的是手动在sql server 中更新,但是用户觉得很不方便。
现在我们要编写delphi程序来实现这个功能。
但是我们不知道:1,这段sql代码应该如何编写。
2,编写的sql编码在delphi中如何调用。
希望各位大虾多多指教啊!
在程上添加1个TDatasource, 1个TADODataSet(或其它Dataset)和两个TDBGrid;
比如他们分别是Datasource1,ADODataset1, DBGrid1, DBGrid2.
Datasource1的Dataset属性是ADODataset1, DBGrid1的DataSource属性是Datasource1, 一个表为T_User;
创建临时的Datasource2,ADODataset2.
Datasource2的Dataset属性是ADODataset2, DBGrid2的DataSource属性是Datasource2,
1. 首先查询数据操:
procedure QueryRecord;begin
......
with ADODataset1 do
begin
Active := False;
Connection := Connection1
CommandText := 'Select * from T_User';
Active := True;
end;
.....
end;Assigned结果集:
声明Public的变量:
ADODataset2: TADODataSet;
DataSource2: TDataSource;procudure AssignedResultSet;begin
Try
AdoDataSet2 := TADODataSet.Create(nil);
DataSource2 := TDataSource.Create(nil);
DataSource2.DataSet := AdoDataSet2 ;
DBGrid2.DataSource := DataSource2;
with ADODataset2 do
begin
Connection := Connection2;
RecordSet := ADODataset1.RecordSet;
end;
except
DataSource2.Free;
ADODataset2.Free;
end;
end;然后在你用完时的代码上加:
DataSource2.Free;
ADODataset2.Free;
你可以看到DBGrid2可得到你想的结果集。