الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجو تصليح كود عمل valtiation

بدأه eng_khaled في 24 مايو 2011 · 2 رد · 797 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع 
IBValidationService1.Detach();
    with IBValidationService1 do
    begin
      ServerName := 'InterBase';
      LoginPrompt := False;
      Params.Add('user_name=sysdba');
      Params.Add('password=masterkey');
      Active := True;
      try
        DatabaseName := (edit1.Text);
        Options := [IgnoreChecksum];

        IBValidationService1.Attach();
        ServiceStart;


        while not Eof do
          Memo1.Lines.Add(GetNextLine);

      finally
        Active := False;
      end;
    end;
       // IBValidationService1.BackupFile.Clear;
  end;
//end;

تم تعديل هذه المشاركة بواسطة prof_1982 في 27 يونيو 2011 في 14:25

#2

انا عدلت الكود و ايضا لا يعطى ناتج

procedure TForm1.Button2Click(Sender: TObject);
begin
  if IBValidationService1.Active then
    IBValidationService1.Detach();
  with IBValidationService1 do
  begin
    ServerName := edit2.Text;
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      DatabaseName := (edit1.Text);
      Options := [IgnoreChecksum];
      ServiceStart;
     Memo1.Lines.Add('Database - ' + edit1.Text);
      while not IBValidationService1.Eof do
        Memo1.Lines.Add(Trim(IBValidationService1.GetNextLine));
      Application.ProcessMessages;
    finally

    end;
  end;

تم تعديل هذه المشاركة بواسطة prof_1982 في 27 يونيو 2011 في 14:26

#3

with IBValidationService1 do

begin

ServerName := 'InterBase';

LoginPrompt := False;

Params.Add('user_name=sysdba');

Params.Add('password=masterkey');

Active := True;

try

DatabaseName:=(edit1.Text);

Options:= [ignoreChecksum] ;

// IBValidationService1.Options :=true;

// IBValidationService1.Options [ignoreChecksums]:=true;

// Verbose := True;

// Options := [ignoreChecksums];

// PageBuffers := 3000;

// PageSize := c:\B4ustore.gbk;

// DatabaseName:=(edit1.Text);

// IBBackupService1.

// BackupFile.Add(edit2.Text);

ServiceStart;

// MediaPlayer1.Play;

While not Eof do

Memo1.Lines.Add(GetNextLine);

finally

Active := False;

end;

end;

مواضيع مشابهة