Arsip: Backup SQL Server 2000 lwt Delphi

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

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;

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.

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:

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:
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 :)

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:

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... :)

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
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Tolong aku dibantuin dong....
by Zulkarnain in Games more 16 years ago - Maaf ya...
by yuan_carlos in OOT more 16 years ago - TOxygen
by pemburu_delphi in Tip n Trik Pemrograman more 15 years ago - String Truncation Interbase..
by boy_borland in FireBird more 16 years ago - MENENTUKAN HARGA PROYEK
by eksant in Tutorial & Community Project more 14 years ago - Perhitungan Count
by belajaraja in Hal umum tentang Pascal Indonesia more 15 years ago - cara memanggil ms word
by dauf in Tip n Trik Pemrograman more 16 years ago - set image ke wallpaper format selain bmp
by benyy in Multimedia & Graphic Enhancement more 16 years ago - BANYOLAN ALA PROGRAMMER
by MrMixer in Tip n Trik Pemrograman more 16 years ago - menyimpan file gambar jpeg
by erwinkiting in Paradox more 18 years ago