Membuat Backup dan Restore Mysql dengan Lazarus

Pagi – pagi buat catatan di blog ” Membuat Backup dan Restore database Mysql di lazarus “ Cara ini berlaku juga di delphi. LAngsung saja Buatlah 2 button, Button Backup dan Restore. Pada proses ini kita menggunakan mysqldump yang sudah disediakan oleh mysql. Lokasi mysqldump tergantung dari instalasi mysqlnya. Jika menggunakan Xampp, cari lokasi terlebihdahulu.

Pada Button Backup isi event click berikut ;

procedure TMain.BackupClick(Sender: TObject);
const
READ_BYTES = 2048;

var
command: TProcess;
s: string;
output: TStringList;
BytesRead, n: LongInt;
m: TMemoryStream;

begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
SaveDialog1.Free;
SaveDialog1 := TSaveDialog.Create(Self);
SaveDialog1.InitialDir:= GetUserDir + ‘My Documents\’;
SaveDialog1.Filter:=’Backup Files|*.bfl’;
if SaveDialog1.Execute then begin
s := SaveDialog1.FileName;
if not (copy(s,Length(s)-3,Length(s)-1) = ‘.bfl’) then
s := s + ‘.bfl’;
command := TProcess.Create(Nil);
output := TStringList.Create;
M := TMemoryStream.Create;
BytesRead := 0;
command.CommandLine := ‘c:\mysqldump -u root -p’+ZConnection1.Password+’ -h ‘+ZConnection1.HostName+’ database’;
command.Options := command.Options + [poUsePipes];
command.Execute;
while command.Running do begin
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n)
else
// whitout data, wait 100 ms
Sleep(100);
end;
// we read the last part
repeat
// ensure the space
M.SetSize(BytesRead + READ_BYTES);
// we try to read
n := command.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
if n > 0 then
Inc(BytesRead, n);
until n <= 0;
M.SetSize(BytesRead);
output.LoadFromStream(M);
output.SaveToFile(s);
output.Free;
command.Free;
M.Free;
ShowMessage(‘Backup ready.’)
end else
ShowMessage(‘Backup canceled.’);
end;

 

Dan untuk button Restore isi dengan prosedure berikut

procedure TFMain.restoreClick(Sender: TObject);
var
s: string;
tfFile: TextFile;
begin
if not (ZConnection1.User = ‘root’) then begin
ShowMessage(‘Only root could access.’);
Exit
end;
OpenDialog1.Free;
OpenDialog1 := tOpenDialog.Create(Self);
OpenDialog1.InitialDir:=GetUserDir+’My Documents\’;
OpenDialog1.Filter:=’Backup Files|*.bfl’;
if OpenDialog1.Execute then begin
AssignFile(tfFile, OpenDialog1.FileName);
if not FileExists(OpenDialog1.FileName) then
exit;
reset(tfFile);
ZQuery1.SQL.Clear;
readln(tfFile,s);
While not eof(tfFile) do begin
Readln(tfFile,s);
if length(s) > 0 then begin
s := StringReplace(s, #10, ”, [rfReplaceAll]);
s := StringReplace(s, #13, ”, [rfReplaceAll]);
s := StringReplace(s, #9, ‘ ‘, [rfReplaceAll]);
if not ((s[1]+s[2]) = ‘–‘) then begin
ZQuery1.SQL.Add(s);
if s[length(s)] = ‘;’ then begin
ZQuery1.ExecSQL;
ZQuery1.SQL.Clear
end
end
end
end;
CloseFile(tfFile);
ShowMessage(‘Restauration done.’);
end else
ShowMessage(‘Restauration canceled.’);
end;

 

Semoga bermanfaat

Koneksi ODBC SQL Server di Lazarus

Bagaimana koneksi database SQL Server di Lazarus dengan ODBC.

1. Buka Control Panel -> Administrasi Tool -> ODBC

odbc

2. Klik ADD untuk membuat User DSN Baru

odbc1

3. Masukkan nama USer DSNnya, disini saya berinama DbCon dan serngver saya isikan database yang ada di laptop saya

odbc2

4. MAsukkan User dan Password dari sql servernya

odbc3

5. Pilih database yang diinginkan

odbc4

6. Jika berhasil nanti akan muncul DbCon Di User DSN

odbc6

7. Selanjutnya buka LAzarunya, buat form dan cari komponent ODBC, dan drag ke form yang kita buat

sqldb1

 

8. Isi propertis dari komponen ODBC yang ada di lazarus, setelah diisi seperti dibawah ini, pilih True pada Connected, jika berhasil maka akan muncul True pada properti Connected

sqldb2

 

Semoga bermanfaat

 

 

 

 

Perintah SQL ( Select, Order by dan Like )

Berikut soal latihan SQL

Contoh Tabel Penjualan
SQL1

Kerjakan Soal berikut
SQLJawaban

Posted in MYSQL, Sql. Tags: , . Leave a Comment »

Import Database SQL Dengan SQL Server Management Studio

Berikut saya sampaikan bagaimana mengimpor database SQL dengan SQL Management Studio. Pertama kita harus punya file backup dari database yang pingin kita Import. Disini saya menggunakan file backup bukan file MDF, file backup database SQL berextensi BAK.

 

1. Buka SQL Server Management Studio dan login ke SQL server, gunakan Windows Authentication.
sshot-22. Buat database dengan nama yang sama. Selanjutnya klik kanan database yang tadi di buat, Pilih Tasks -> Restort -> Database

sshot-33. Pilih From Device, dan kemudian cari file backup server yang akan kita import. Setelah ketemu silahkan klik oke.

sshot-4

sshot-5

sshot-6

sshot-74. Ceklist data yang sudah kita masukkan tadi.

sshot-85. Buka menu Option, tampilan pertama sebagai berikut. Kemudian buat folder dimana tempat file database akan disimpan, lebih baik simpan di drive D, menghindari dari kerusakan system, so database kita aman. Disana saya buat di drive D:\DBASE

sshot-96. Rubah alamat mengarah ke folder yang anda buat, lihat perubahan yang saya sesuaikan dengan letak folder saya.

sshot-17. Klik oke, kalau tidak ada kesalahan, proses akan berjalan dan tunggu sampai 100%

sshot-11Demikian tutorial Import database SQL Server, Semoga bermanfaat.

Menambah, mengurangi dan merubah tabel databse sql

Sering kita membuat databse namun belum lengkap atau pada saat membuat belum kepikiran tabel apa saja yang nanti dibutuhkan. Berikut saya sampaikan bagaimana merubah tabel di Mysql yang sudah kita buat.

 

Sebagai contoh :

CREATE TABLE barang_dagang

2.(
3.id varchar(8),
4.nama_barang varchar(30),
5.harga_barang varchar(10)
6.)
Kemudian kita ingin menambah tabel jumlah_jual dengan type integer(10)di bawah harga_barang :
ALTER TABLE barang_dagang ADD jumlah_jual INTEGER(10);
Ingin menempatkan tabel jumlah_jual paling atas :
ALTER TABLE barang_dagang ADD jumlah_jual INTEGER(10) first;
Menempatkan setelah nama_barang :
ALTER TABLE barang_dagang ADD jumlah_jual INTEGER(10)AFTER nama_barang;
Merubah type data :
ALTER TABLE barang_dagang CHANGE harga_barang harga_barang INTEGER;
Membuat no Primary Key :
ALTER TABLE barang_dagang ADD PRIMARY KEY (no);
Menambah banyak field sebagai primay key :
ALTER TABLE namatabel ADD PRIMARY KEY (field1, field2;

Fungsi WHERE pada Syntax SQL

Pelan-pelan Memahami…
Where
Digunakan untuk memfilter data pada perintah Select Syntax dasar:
SELECT column name(s)
FROM table_name
WHERE column_name operator value
Contoh:
SELECT * FROM bukutamu

WHERE kota=’KARANGANYAR”

 

Bahwa dalam kasus itu Filter/pengambilan data dipilih hanya kota KARANGANYAR.