[color=Red][Settled][/color]VB 6.0 怎样export database 的资料？

sawyih1

我要怎样用VB export database（MYSQL） 里的 data，
然后当这exported file 搬去另一架电脑时，要如何写一个程序来读回这些data 进那架电脑的database.
thank

I use other method to solve,thank everyone!

[ Last edited by sawyih1 on 4-1-2005 at 10:27 PM ]

goatstudio

不难, 和你读取普通的资料库一样.
可以 export 去 csv 格式, 然后根据你的所设定的 deliminator 来读取就可以了.

sawyih1

可以详细点吗？怎样export 呢？
我是想用VB coding 去export MYSQL database 里的资料，而不用进入MYSQL 界面里manually export.
谢谢!

[ Last edited by sawyih1 on 2-1-2005 at 07:35 PM ]

goatstudio

对, 就是用 vb coding.
和你平时用 vb 读取资料库一样, 把 loop 出来的 data 存放在一个 string, 运用特定的格式把资料分开, 然后 save 成一个 file. 当你要再读取这 file 的时候, 只要跟着你所之前所设下的文件格式就可以了.

例如, 用 vb 把资料库的资料存成以下的格式

1,ABC,1/1/2005
2,DEF,1/2/2005
3,GHI,1/3/2005

然后再根据以上的这个格式, 来读取每一个 column 的资料. 在这例子中, 把资料分开的就是 ","

sawyih1

谢谢，不过还想问，save file 如何做到？
我是用data environment 及data report 来 save file,有何高见？

megablue

BACKUP DATABASE
NOTE: casms 是database 的名字

1. 
   
2. Private Sub cmdDBbackup_Click()
   
3.     On Error GoTo exitsub
   
4.     CommonDialog.CancelError = True
   
5.     CommonDialog.DialogTitle = "Save Backup As"
   
6.     CommonDialog.DefaultExt = ".sql"
   
7.     CommonDialog.Filter = "MySQL Queries Set (*.sql)|*.sql|"
   
8.     CommonDialog.FileName = "casms_db_backup.sql"
   
9.     CommonDialog.ShowSave
   
10.     Shell "cmd /c mysqldump --opt casms > " & CommonDialog.FileName, vbHide
    
11.     MsgBox "Backup Completed", vbInformation, "Info"
    
12. 
    
13.    
    
14. exitsub:
    
15.     'user clicked cancel no action to execute
    
16. End Sub
    

复制代码

Restore Database

1. 
   
2. Private Sub cmdDBrestore_Click()
   
3.     On Error GoTo exitsub
   
4.     CommonDialog.CancelError = True
   
5.     CommonDialog.DialogTitle = "Restore Database From"
   
6.     CommonDialog.DefaultExt = ".sql"
   
7.     CommonDialog.Filter = "MySQL Queries Set (*.sql)|*.sql|"
   
8.     CommonDialog.FileName = ""
   
9.     CommonDialog.ShowOpen
   
10.     Shell "cmd /c mysql casms < " & CommonDialog.FileName, vbHide
    
11.     MsgBox "Database Restored, Please restart the program", vbInformation, "Info"
    
12.    
    
13. exitsub:
    
14.     'user clicked cancel no action to execute
    
15. End Sub
    

复制代码

[ Last edited by megablue on 2-1-2005 at 09:53 PM ]

sawyih1

谢谢你，请问cmd /c mysqldump --opt casms 这句是什么意思？
我backup出来的file是空白的，不知是什么问题？谢谢.

goatstudio

sawyih1 于 4-1-2005 03:08 AM  说 :
谢谢你，请问cmd /c mysqldump --opt casms 这句是什么意思？
我backup出来的file是空白的，不知是什么问题？谢谢.

那是在执行 mysql 的 dump backup, 原理一样, 只是因为直接呼叫 mysql 自己 backup/restore, 简单的多.

sawyih1

如果我没说错的话，mysqldump 是可以在cmd 里执行的，方法就是
c:\mysqldump --opt casms
对吧？
不过，在我这里是不能执行，会出现unregonized "mysaldump" error.
我的mysql server 是不用安装的，而是直接extract 的，不知是否有影响？谢谢！