数据库数据集操作全解析:TSQLDataSet与Client Dataset
1. TSQLDataSet的使用与数据检索
1.1 基本操作代码示例
以下是一段操作 sqlContacts
和 sqlActivities
数据集的代码:
begin
sqlContacts.Next;
end;
procedure TfrmMain.sqlContactsAfterScroll(DataSet: TDataSet);
var
ListItem: TListItem;
begin
lvActivities.Items.BeginUpdate;
try
lvActivities.Items.Clear;
while not sqlActivities.EOF do begin
ListItem := lvActivities.Items.Add;
ListItem.Caption := DateTimeToStr(sqlActivitiesSCHEDULED.AsDateTime);
ListItem.SubItems.Add(sqlActivitiesDESCRIPTION.AsString);
if not sqlActivitiesCOMPLETED.IsNull then
ListItem.Data := Pointer(1);
sqlActivities.Next;
end;
finally
lvActivities.Ite