Setelah habis berbatang-batang roko akhirnya ketemu juga, sharing nih buat yang mungkin saja perlu, tak lupa thanks buat Mas Rizky,
Private Sub Command1_Click()
Dim sScript As String
Dim d As Double
sScript = "c:" & vbCrLf & "cd \Program Files\MYSQL\MySql Server 5.0\bin" &
vbCrLf & "mysqldump -u root suryakencana > C:\backup\Test.sql"
Kill "backup.bat"
Open "backup.bat" For Binary As #1
Put #1, 1, sScript
Close #1
d = Shell("backup.bat", vbNormalFocus)
End Sub
yudhamanik ycid <[EMAIL PROTECTED]> on 12/12/2007 07:22:33 PM
Please respond to [email protected]
To: Rizky Prihanto <[email protected]>
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: Re[2]: [Programmer-VB] Shell for execute mysqldump
wah, ini dia yg ditunggu...
tapi kok hasil file Test.sql nya 0 byte ya.... ???
(saya jalanin langsung dari command prompt)
RP> dim
sQueryString as string
RP>
RP> sQueryString = "C:\Program Files\MYSQL\MySQL Server 5.0\bin\mysqldump.exe "
_
RP> "--user=MyUser -R --triggers
RP> --add-drop-table --verbose " _
RP> "MyDatabase > D:\backup\Test.sql"
RP>
RP> Kill "backup.bat"
RP> Open "backup.bat" For Binary As #1
RP> Put #1, 1, sQueryString
RP> Close #1
RP> d = shell("backup.bat", vbNormalFocus)
RP>
RP> DONE!
|
wah, ini dia yg ditunggu... |
att2.eml
Description: Binary data
Toni Rahayu PT. Omedata Electronics IT Department Hunting : (62-22) 6030805 Ext 121 Faxs : (62-22) 6030896 Homepage : http://www.toni-rahayu.co.cc
