Code: Select all
procedure AssignCampaignAddressesToPhonerPool(ImportListID, Count : integer);
var
QueryMS : TMSQuery;
P : integer;
begin
QueryMS:=TMSQuery.Create(nil);
QueryMS.Connection:=ClientDB;
QueryMS.SQL.Add('SELECT CampaignAddressStatusID FROM CampaignCustomer WHERE ImportListID = ' + IntToStr(ImportListID) + ' AND CampaignAddressStatusID = 1');
QueryMS.ReadOnly:=False;
QueryMS.Open;
P:=0;
while (Not QueryMS.Eof) And (P1 is changed and this destroys data in the table.
I'm using SDAC ver 4.10.0.9 and Delphi 2007
Hope to get an answer - in the meantime I'm firing 1000+ single SQL-statements because I'm a bit scared to use Queries to edit data directly.
FYI a user named dragan posted a similary post Fri Aug 12, 2005 11:50 am with the subject "What is this????" but I don't think there was an answer to this.
Thanks,
Lasse