我的语句形如:(实际比较长)
while not ClientDM.table1.Eofdo
begin
Application.ProcessMessages;
ClientDM.ClientDataSetClient.CommandText :=
'INSERT INTO detailqq ' +
'( DEPARTID, DAYS, TIMES, MILLITM, MARKER ) ' +
'VALUES ( ' +
'''' + MyClass.GetCode + '''' + ',' +
'''' + ClientDM.table1.FieldByName('Date').AsString + ''', ' +
'''' + ClientDM.table1.FieldByName('Time').AsString + ''',
...);
try
ClientDM.ClientDataSetClient.Execute;
// insert a record
except
...
break;
end;
ClientDM.table1.Next;
end;
//while