MySQL Command line on VB6

yang pertama kita akan membuat file bacth yang nantinya akan kita jalankan dengan perintah shell,yang tepenting disini adalah command line dari MySQL sendiri..

Private Sub Command9_Click()
Open App.Path & "\test.bat" For Output As #1
Dim sh As String
sh = "mysql -h localhost --user=xxxxadmin --password=xxxxxxxxxxx -t DBxxxxx <" & App.Path & "\test.sql"
Print #1, sh
Close 1
ProcId = Shell("C:\test.bat", vbHide)
End Sub

semoga bermanfaat....