Hallo Denpasar, Betul.. saya bikin program ini buat local desktop, tapi kalo buat client-server mungkin cara ini ini bisa dicoba: Sharing folder bin di Mysql Server ke client, kemudian ubah path directori di sScript sesuai dengan nama sharing tadi.
Ini cuma perkiraan, belum dicoba, dan kalo ada yang mau coba kasih feed back yah
hasilnya.
Rgds
"Nyom2-Denpasar" <[EMAIL PROTECTED]> on 12/19/2007 01:36:25 AM
Please respond to [email protected]
To: [email protected]
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: Re: Re[2]: [Programmer-VB] Shell for execute mysqldump [solved]
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
|
Kalo dirun dari client bagaimana ? kayaknya ini
harus jalan di lokasi yang sama dengan DBSM ybt.
salam,
|
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
