Kalo dirun dari client bagaimana ? kayaknya ini harus jalan di lokasi yang sama dengan DBSM ybt.
salam, ----- Original Message ----- From: Toni Rahayu To: [email protected] Sent: Wednesday, December 12, 2007 12:29 PM Subject: Re: Re[2]: [Programmer-VB] Shell for execute mysqldump [solved] 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! ------------------------------------------------------------------------------ Toni Rahayu PT. Omedata Electronics IT Department Hunting : (62-22) 6030805 Ext 121 Faxs : (62-22) 6030896 Homepage : http://www.toni-rahayu.co.cc ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.17.4/1188 - Release Date: 12/17/2007 2:13 PM
