Trim mas Warsa,
Bisa kasi tahu bentuk Formnya gimana ?
Aku belum kerja ni masih kuliah.
Kadek
warsa kumara <[EMAIL PROTECTED]> wrote:
coba aja yang ini dek...
Dim conbck As String
Private Sub cmdbackup_Click()
On Error GoTo keluar
Dim sql As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
sql = "BACKUP DATABASE " & g_dbase & " TO DISK = '" &
Trim(lbbackup.Caption) & "' WITH format, NAME = '" &
Trim(txtbackup.Text) & "'"
rs.Open sql, conbck, adOpenDynamic, adLockOptimistic
Screen.MousePointer = 0
MsgBox "Proses Backup Selesai"
Set rs = Nothing
Exit Sub
keluar:
If Err.Number <> 0 Then MsgBox Err.Number & " -- "
& Err.Description
Set rs = Nothing
End Sub
g_dbase adalah variable yang berisi nama database yang
akan dibackup
Trim(lbbackup.Caption) adalah lokasi penyimpanan
database
Trim(txtbackup.Text)adalah nama file backup
coba aja... saya selalu pakai source itu kok.
saking napi dek? ring dija mekarya?
--- Kadek Pong <[EMAIL PROTECTED]> wrote:
> Teman2 minta tolong, ada yang punya Script
> Program/Coding untuk membuat Backup Database SQL
> Server 2000.
>
> Terima kasih bantuannya.
>
> Thx
> Kadek
>
>
> ---------------------------------
> Stay in the know. Pulse on the new Yahoo.com. Check
> it out.
>
> [Non-text portions of this message have been
> removed]
>
>
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
---------------------------------
Want to be your own boss? Learn how on Yahoo! Small Business.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
