Arsip: Backup SQL Server 2000 lwt Delphi

 
user image
more 15 years ago

ahmeed

Para Mentor/Master yang terhormat, Ane Mo Mnt tulung Lagi dong???? Gimana Caranya Backup Database SQL Server 200 Lewat Delphi?? Thanks A lot For the replys
user image
more 15 years ago

mambamaestro

back up apanya neh? he he he... btw, ane gak begitu paham, kenapa harus report-report (gara2 quickreport :mrgreen:) backup data dari ms sql. kan cukup ngopi file .mdf dan .ldf nya. hohohoho. logicnya dari delphi: find aja letak file .mdf dan .ldf nya, copy ke lokasi tujuan.. beres kan ? hohohoho :mrgreen: mmmm.. mungkin maksut ente, gimana backupnya kalo perintah backup nya dari komputer client? gitu ya? kalo begitu, logic programnya kira-kira begini: 1. cari informasi file dan lokasinya dari db yang mau dibackup, dimana lokasinya, lewat perintah sql 2. matiin service MSSQL server di komp server, supaya file .mdf dan .ldf nya bisa dicopy (soale kalo ga gitu gak mau dikopi) 3. copy file .mdf dan .ldf nya ke lokasi tujuan 4. hidupin lagi MSSQL service di komp server nah.. kalo gitu yang ente maksut.. snippet ini sedikit bantu (ini kasusnya untuk 2 db sekaligus, silahkan modif): / written by abdellah / function LookUpVal(tblname,keyfield: string; keyvalue: variant; ResultField: string): variant; var Q: TADOQuery; begin Q:= TADOQuery.Create(nil); Q.Connection:= dm.DBConn; Q.SQL.Text:= 'SELECT ' + ResultField + ' FROM ' + tblname + ' WHERE ' + keyfield + ' = :keyvalue'; Q.Parameters[0].Value:= keyvalue; Q.Open; Result:= Q.Fields[0].Value; FreeAndNil(Q); end; procedure BackUpDB; var hService: SC_HANDLE; ServiceStatus: SERVICE_STATUS; hSCManager: SC_HANDLE; Success, c1,c2,c3,c4: BOOL; ServiceArgVectors: PChar; tmp, folder: string; fkc, fkc_log, cmn, cmn_log: string; begin SetCursor(WaitCursor); fkc:= LookUpVal('FKC.dbo.sysfiles','name','FKC','filename'); //menggunakan tabel system sysfiles fkc_log:= LookUpVal('FKC.dbo.sysfiles','name','FKC_Log','filename'); cmn:= LookUpVal('CMN.dbo.sysfiles','name','CMN','filename'); cmn_log:= LookUpVal('CMN.dbo.sysfiles','name','CMN_Log','filename'); folder:= FormatDateTime('dd_mm_yyyy HH_MM',GetTimeServer); hSCManager:= OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS); hService:= OpenService(hSCManager,pchar('MSSQLServer'),SERVICE_ALL_ACCESS); Success:= ControlService(hService,SERVICE_CONTROL_STOP,ServiceStatus); repeat Sleep(200); Success:= ControlService(hService,SERVICE_CONTROL_INTERROGATE,ServiceStatus); until ServiceStatus.dwCurrentState = SERVICE_STOPPED; folder:= 'c:\BackUp'+ folder ; if not DirectoryExists(folder) then ForceDirectories(folder); folder:= folder + ''; repeat c1:= CopyFile(pchar(trim(fkc)), pchar( folder + 'FKC.mdf' ), False); if not c1 then Sleep(300); until c1; repeat c2:= CopyFile(pchar(trim(fkc_log)), pchar( folder + 'FKC_log.LDF' ), False); if not c2 then Sleep(300); until c2; repeat c3:= CopyFile(pchar(trim(cmn)), pchar( folder + 'CMN.mdf' ), False); if not c3 then Sleep(300); until c3; repeat c4:= CopyFile(pchar(trim(cmn_log)), pchar( folder + 'CMN_log.LDF' ), False); if not c4 then Sleep(300); until c4; Success:= StartService(hService,0,ServiceArgVectors); CloseServiceHandle(hService); CloseServiceHandle(hSCManager); SetCursor(crDefault); ShowMessage('Backup Complete.'); end;
user image
more 15 years ago

mambamaestro

e salah, maaf, apabila program backup di letakkan juga di komp server, untuk dari client tinggal kreativitas aja. inti dari kode di atas, matikan service ms sql, cari info lokasi .ldf dan .mdf dari sql nya, kopi, hidupkan service lagi. maaf, terlanjur ke posting.
user image
more 15 years ago

ahmeed

Backup databasenya nantinya ane buat fake suatu form dan hasilnya bertipe .bak ataupun .file klo .mdf dan .ldfnya kan tinggal ngopi doank, Ente punya masukkan ap ngga??btw sukron yeeeeee :lol:
user image
more 15 years ago

reminder2k1

Setahu ane sih klo MSSQL, proses backupnya bisa di buat lewat syntax SQL. Nah contoh penggunaannya di Delphi ya spt ini bro:

SQL:='BACKUP DATABASE '+NamaDB+' TO DISK = '+QuotedStr(DestPath+''+DestNFile);
ADOCommand.CommandText:=SQL;
ADOCommand.Execute;
Extention file hasil backup di buat sembarang terserah keinginan Anda... Selamat mencoba... :mrgreen:
user image
more 15 years ago

ahmeed

Gni bang @reminder,ane kan mo ngebackup database,yang ane pake: 1. TSaveDialog; 2. AdoCommand; 3. Edit Text; 4. Bitbtn; Nah Masalahnya : 1. ane sudah dapat nampilin path di edittext dimana ane mo nyimpen databse tersebut, tapi ane g bisa nentuin save typenya dicomponent TSaveDialog = Bak File,Klo boleh tau gmn ya cr nya??? 2. Waktu ane mo ngebackup nekan tombol Backup terjadi kesalahan,katanya gni neh: 'Parameter Object is Improperly Defined.Inconsistent or incompleteinformation provided' 3.Script yang aq pake kyk gni neh: var Result:boolean; begin Result := False; { adoAdm = TADOCommand } with DM.ADOCommand_Backup do try commandText := 'BACKUP DATABASE akun'+#10#13+ 'TO DISK = '+ Edit1.Text +#10#13+ 'WITH FORMAT, NAME = "akun backup'',' +#10#13+ 'DESCRIPTION = ''Full Backup of akun'''; Prepared := True; Execute; Result := True; except on E: Exception do begin MessageBeep(0); MessageDlg(E.Message, mtError, [mbOk], 0); end; end; Trima kasi atas Reply nya :)
user image
more 15 years ago

ahmeed

Maaf Untuk semuanya, post yang paling akhir ngga jadi dech????Udah bisa.Tapi Mo tnya lg neeh Gimana Caranya Nyambungin component TProgress Bar dengan sql Backup database (With Stats = 1)biar kita Tau proses backup tersebut dah selese ap blm??tolongin yaaaa,coz ane dideadline sm wadek+kaprodi ane, plizzzzz :cry:
user image
more 15 years ago

reminder2k1

bro @ahmeed... sory baru reply... Untuk sintak SQL di atas itu hanya bisa di proses & menghasilkan file backup jika di akses di server... Tapi sebenarnya bisa juga dilakukan di client.. asalkan drive & nama folder simpannya harus sama dengan drive & nama folder di Server... Nah klo untuk murni di backup di client, ane masih angkat tangan... :mrgreen: Mgkn teman2 yg lain bisa bantu... :)
user image
more 15 years ago

ahmeed

Alow para master kayaknya ngga bisa dehh, nyambungin time proses backup database sql server dengan progress bar, palingan progress bar cm bisa jalan sama timer,klo ad yg bisa bantuin trima kasi buanyak yaaaaaaaa :(
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com