21 Mei 2011

Back Up SQL Server via VB.NET

First you have to add some namespace in your vb file:
Imports Microsoft.SqlServer.management
Imports Microsoft.SqlServer.Management.NotificationServices
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Smo.Agent
Imports Microsoft.SqlServer.Management.Smo.Broker
Imports Microsoft.SqlServer.Management.Smo.Mail
Imports Microsoft.SqlServer.Management.Smo.RegisteredServers
Imports Microsoft.SqlServer.Management.Smo.Wmi
Imports Microsoft.SqlServer.Management.Trace

'Code for backup database

Public Sub BackupDatabase(databaseName As String, userName As String, password As [String], serverName As [String], destinationPath As [String])
Dim sqlBackup As New Backup()

sqlBackup.Action = BackupActionType.Database
sqlBackup.BackupSetDescription = "ArchiveDataBase:" & DateTime.Now.ToShortDateString()
sqlBackup.BackupSetName = "Archive"

sqlBackup.Database = databaseName

Dim deviceItem As New BackupDeviceItem(destinationPath, DeviceType.File)
Dim connection As New ServerConnection(serverName, userName, password)
Dim sqlServer As New Server(connection)

Dim db As Database = sqlServer.Databases(databaseName)

sqlBackup.Initialize = True
sqlBackup.Checksum = True
sqlBackup.ContinueAfterError = True

sqlBackup.Devices.Add(deviceItem)
sqlBackup.Incremental = False

sqlBackup.ExpirationDate = DateTime.Now.AddDays(3)
sqlBackup.LogTruncation = BackupTruncateLogType.Truncate

sqlBackup.FormatMedia = False

sqlBackup.SqlBackup(sqlServer)
End Sub

'Code for restoration od database:

Public Sub RestoreDatabase(databaseName As [String], filePath As [String], serverName As [String], userName As [String], password As [String], dataFilePath As [String], _
logFilePath As [String])
Dim sqlRestore As New Restore()

Dim deviceItem As New BackupDeviceItem(filePath, DeviceType.File)
sqlRestore.Devices.Add(deviceItem)
sqlRestore.Database = databaseName

Dim connection As New ServerConnection(serverName, userName, password)
Dim sqlServer As New Server(connection)

Dim db As Database = sqlServer.Databases(databaseName)
sqlRestore.Action = RestoreActionType.Database
Dim dataFileLocation As [String] = Convert.ToString(dataFilePath + databaseName) & ".mdf"
Dim logFileLocation As [String] = Convert.ToString(logFilePath + databaseName) & "_Log.ldf"
db = sqlServer.Databases(databaseName)
Dim rf As New RelocateFile(databaseName, dataFileLocation)

sqlRestore.RelocateFiles.Add(New RelocateFile(databaseName, dataFileLocation))
sqlRestore.RelocateFiles.Add(New RelocateFile(Convert.ToString(databaseName) & "_log", logFileLocation))
sqlRestore.ReplaceDatabase = True
sqlRestore.Complete += New ServerMessageEventHandler(sqlRestore_Complete)
sqlRestore.PercentCompleteNotification = 10
sqlRestore.PercentComplete += New PercentCompleteEventHandler(sqlRestore_PercentComplete)

sqlRestore.SqlRestore(sqlServer)

db = sqlServer.Databases(databaseName)

db.SetOnline()

sqlServer.Refresh()
End Sub
Diposting oleh di Tidak ada komentar:
Label:

07 Mei 2011

Membuat PHP Captcha Sendiri

File: php_captcha.php

<?php
session_start();
$RandomStr = md5(microtime());
$ResultStr = substr($RandomStr,0,5);
$NewImage =imagecreatefromjpeg("img.jpg");

$LineColor = imagecolorallocate($NewImage,233,239,239);
$TextColor = imagecolorallocate($NewImage, 255, 255, 255);

imageline($NewImage,1,1,40,40,$LineColor);
imageline($NewImage,1,100,60,0,$LineColor);
imageline($NewImage,5, 1, 200, 50, $LineColor);

imagestring($NewImage, 5, 15, 5, $ResultStr, $TextColor);

$_SESSION['key'] = $ResultStr;
header("Content-type: image/jpeg");
imagejpeg($NewImage);

?>
File: form.php
<?php
session_start();
?>

<html>
<head>
<title>PHP-CAPTCHA </title>
</head>
<body onload="return focuson();">
<script language="javascript">
function focuson(){
document.form1.number.focus()
}

function check(){
if(document.form1.number.val ue==0){
alert("Please enter your Category Name");
document.form1.number.focus();
return false;
}
}

</script>
<?php
if(isset($_REQUEST['Submit'])){
$key=substr($_SESSION['key'],0,5);
$number = $_REQUEST['number'];
if($number!=$key){
echo ' Validation string not valid! Please try again!';
}else{
echo 'Your string is valid!';
}
}

?>

<form name="form1" method="post" action="form.php" onsubmit="return check();">
<img src="php_captcha.php" /></td>
<input name="number" type="text" id="number" /></td>
<input name="Submit" type="submit" value="Submit" /></td>
</form>
</body>
</html>
Diposting oleh di Tidak ada komentar:
Label:

01 Februari 2011

Di Ubud Band - Bulan Bintang

Tag : Chord Lagu Bali, Kord, Lirik, Lyric, Di Ubud Band, Bulan Bintang
Athor : http://bliyanbelog.blogspot.com/2010/06/lirik-lan-kord-dubud-band-bulan-bintang.html
Intro : G

G D Em
Yen mula saja tusing nu ada tresna
C Am D
Yen mula saja tresna ne suba ilang
Am D
Beli tusing kel sebet, beli tusing kel ngeling
Bm C
Apa buin lakar ngemusuhin adi
Am D
Diolas percaya beli... Diolas percaya beli...


G D Em
Mebotol arak menimpalin beli
C Am D
Masih tusing ngidang mangengsapang adi
Am D
Beli rindu kenyem adi.... rindu gelutan adi
Bm C
Tresna tusing lakar ngidang ngengsapang adi
Am D
Diolas percaya beli... Diolas percaya beli


Reff :
G D Em Bm
Bulan, bintang, di peteng ne jani beli pedidi
C Am D
Ngenehang adi... ne tusing nu ngajak beli
G D Em Bm
Di beten bulan, di beten bintang, di peteng ne jani beli pedidi
C Am D
Ngenehang adi... ne tusing nu ngajak beli

Intro : G D Em Bm C Am D D
Back to Reff
Diposting oleh di 1 komentar:
Label:

22 Januari 2011

Plugin Pidgin Linux

saya menggunakan Pidgin di linux mint 8

sedangkan pidgin saya hanya mempunyai sedikit plugin

maka saya aktifkan plugin package
dengan mengetikan "sudo aptitude install pidgin-plugin-pack" pada terminal

karena saya ingin menjalankan auto reply pada pidgin saya :D

selamat mencoba
Diposting oleh di Tidak ada komentar:
Label:

Geisha - Jangan Pernah Lelah Menunggu

Jangan lelah menunggu cintaku di sana
Di sini ku juga menunggu
Tiada alasan cinta
Jauh kau di sana
Di sini ku juga berharap

#
Mungkin saatnya cinta diuji
Tak lagi di sini
Kini berbeda
Tunggu saatnya
Ku akan kembali

Reff:
Jangan pernah kau lelah
Menungguku di sana
Ku takkan menyerah
S'lamanya..

Jangan lelah menjaga cintaku di sana
Di sini ku juga menjaga
Tiada pengganti cinta
Untukmu di sini
Ku harap kau juga begitu

Back to #, Reff

Jangan pernah kau lelah
Menungguku di sana
Ku takkan menyerah
Menungggumu di sini

Back to Reff

Jangan lelah menunggu
Cintaku di sana
Di sini ku juga menunggu

Download lagu
Diposting oleh di Tidak ada komentar:
Label:
Langganan: Postingan (Atom)