إقتباس :أعرض هذه النتائج مثلا على ملف EXL ؟يمكنك استخدام ADO
ADOTable1.DeleteRecords();
إقتباس :Note adAffectAll and adAffectAllChapters are not valid arguments to Delete.وهما غير مقبولتان للإجراء Delete
http://msdn.microsoft.com/en-us/library/ms808654uses
OleDB, ADOInt;
...
type
TAffectRecords = (arCurrent, arFiltered, arAll, arAllChapters);
THackADODataSet = class(TCustomADODataSet);
...
procedure DoRecordsetDelete(DataSet: TCustomADODataSet; AffectRecords: TAffectRecords);
const
AffectRecordsValues: array[TAffectRecords] of TOleEnum =
(adAffectCurrent, adAffectGroup, adAffectAll, adAffectAllChapters);
begin
with DataSet do
try
THackADODataSet(DataSet).CheckActive;
UpdateCursorPos;
CursorPosChanged;
with Recordset do
try
if AffectRecords in [arAll, arAllChapters] then begin
MoveFirst;
while (RecordCount > 0) do begin
Delete(adAffectCurrent);
DataSet.Resync([]);
end;
end
else
Delete(AffectRecordsValues[AffectRecords]);
{ When CacheSize > 1, Recordset allows fetching of deleted records.
Calling MovePrevious seems to work around it }
if (CacheSize > 1) and (PRecInfo(ActiveBuffer).RecordNumber <> 1) then begin
MovePrevious;
MoveNext;
end;
// MoveNext;
except
on E: Exception do
begin
CancelUpdate;
DatabaseError(E.Message);
end;
end;
finally
Resync([]);
end;
end;
if ADOTable1.Supports([coDelete]) then
DoRecordsetDelete(ADOTable1, arAll);إقتباس :واجهة أخرى كملف excel ؟أو بعبارة أخرى Export To Excel
cntADOExcel.Execute('SELECT * INTO [NewSheet] FROM [Sheet1$]');ADOConnection1.Execute('SELECT * ' +
'+ExtractFilePath(Application.ExeName )+'Export\myFile.xls" "Excel 8.0;" FROM Table1');ADOConnection1.Execute('SELECT * INTO mySheet ' +
'IN "'+ExtractFilePath(Application.ExeName )+'myFile.xls" "Excel 8.0;" FROM Table1');ADOConnection1.Execute('SELECT count(*) as[color=Red] DOM [/color]INTO mySheet ' +
'IN "'+ExtractFilePath(Application.ExeName )+'myFile.xls" "Excel 8.0;" FROM Table1 where CHEURE BETWEEN #00:00:01# AND #01:24:01#');إقتباس :كيف أتحكم في وضع نتيجة الإستعلام في خانة من خاناةلا أظن أن SQL غير مناسبة لمثل هذه الأعمال