Arsip: Backup SQL Server 2000 lwt Delphi

more 17 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 17 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 17 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 17 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 17 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 17 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 17 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 17 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 17 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
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- INSERT n UPDATE pada ADO ???
by coacoac in Tip n Trik Pemrograman more 17 years ago - Delphi Future...
by jetz in Hal umum tentang Pascal Indonesia more 19 years ago - Program Akses Flash Disk
by delphi1st in Tip n Trik Pemrograman more 19 years ago - Aplikasi Pocket PC dengan Delphi 2005
by ImanD in Delphi.NET more 19 years ago - Cara mengatasi masalah yg seperti ini
by idhiel in Tip n Trik Pemrograman more 13 years ago - tanya checkbox di delphi
by Rogeb_Shewrite in Hal umum tentang Pascal Indonesia more 18 years ago - Membuka Project di komputer lain
by bad2001 in Tip n Trik Pemrograman more 18 years ago - Report menyamping
by mambamaestro in Hal umum tentang Pascal Indonesia more 15 years ago - program absensi
by shila in Tip n Trik Pemrograman more 18 years ago - Jacket Delphi
by misdie in Hal umum tentang Pascal Indonesia more 14 years ago