أسئلة هامة تحتاج لرد و مناقشة

وعليكم السلام

اخي الكريم

هل بحث في المنتدى قبل طرح السؤال؟

يوجد كتير عن هذا الموضوع

في Oracle قسم قواعد البيانات أوراكل ;)

/index.ph...5&hl=export

/index.ph...c=26422&hl=

ولك هذ اخي الكيم عن طريق الدلفي B)

procedure TForm1.Button1Click(Sender: TObject);
	 Const FullPath  = '.Dmp ';
Var	filename,path,Par,par1,str :String;

begin
 path:='c:\';
Gauge1.Progress:=Gauge1.Progress+20;

try
  With Query1 Do
  Begin
   Close;
   SQL . Clear;
   SQL . Add('Select SubStr(To_Char(SysDate,''Day''),1,2)||To_Char(Sysdate,''DD'')||To_Char(Sysdate,''MM'')||To_Char(Sysdate,''YY'') From Dual');
   Open;
   filename:=Fields[0] . asstring;
Gauge1.Progress:=Gauge1.Progress+20;

   If Not SetCurrentDir(Trim(path)+'BackUp') Then
   CreateDir(Trim(path)+'BackUp');
   If Not SetCurrentDir('c:\BackUp') Then
   CreateDir('c:\BackUp');

Gauge1.Progress:=Gauge1.Progress+20;

   If FileExists(Trim(path)+'BackUp\'+ Fields[0] . asstring  +'.Dmp') Then
	DeleteFile(Trim(path)+'BackUp\'+Fields[0].asstring+'.Dmp');
	 Par:=' scott/tiger File='+Trim(path)+'BackUp\'+Fields[0].AsString+FullPath;
Gauge1.Progress:=Gauge1.Progress+20;
   par1:='Exp.exe ';
   str:=Par1+par;
   WinExec(pchar(str),SW_NORMAL);
   Close;

Gauge1.Progress:=Gauge1.Progress+20;

 End;
finally

   ShowMessage('ÊÜÜÜÜÜã ÇáäÓÜÜÜÜÜÜÜÜÜÜÜÜÜÎ');
end;


end;

end.

عملية Export

كل الشكر للأخوة الأكارم :rolleyes:

سأقرأ الوصلة و الكود ثم نرى