二。导库的VB程序

　　这个工程要使用一些对象库，在数据库访问方面，决定使用ADO（ActiveX;Data;Objects），对于使用过ASP的人，这个名字应该非常熟悉了，实际上，它在VB中的应用也是几乎一样的，由于要操作Excel，还要引用一个扩展的对象库。点菜单中的“工程”---“引用”，选择“Microsoft;ActiveX;Data;Objects;2.6;Library”和“Microsoft;Excel;9.0;Object;Library”，在引用列表中，可引用对象库的版本或许有所不同，选择类似的最新版本就可以了。要使用对话框和进度条，还要引用一些部件，点菜单中的“工程”--“部件”，选择“Microsoft;Common;Dialog;Control;6.0（SP3）”和“Microsoft;Windows;Common;Controls;6.0（SP3）”。;

界面如图一所示

图中各数字表示的控件分别是：;

1-3：3个均为TextBox控件，名字分别为mdbfilename，mdbpassword，xlsfilename，mdbfilename用来指示导入Access文件的路径和文件名，mdbpassword用来输入Access文件的密码，xlsfilename用来指示导入Excel文件的路径和文件名；;

4：名称为select_mdbfile，CommandButton控件，用来选择要导入的Access文件；;

5：名称为importMDB，CommandButton控件，选择好文件后，用该按钮导入MDB文件;

6:名称为CommonDialog1，CommonDialog控件;

7:名称为select_xlsfile，CommandButton控件，用来选择要导入的Excel文件；;

8:名称为importXLS，CommandButton控件，选择好文件后，用该按钮导入XLS文件；;

9:名称为CommonDialog2，CommonDialog控件;

10:名称为prgBar1，进度条（ProgressBar），当要导入很多记录时，使用进度条可以指示当前的导入进度;

11:名称为StatusBar1，状态条（StatusBar），指示导入的进展状态，包括“正在导入”，“导入完成”等。;

要将Style设置为“1-sbrSimple”;


在程序的头部作以下声明;

Option;Explicit;

Dim;Cn;As;New;ADODB.Connection;

Dim;Cnmysql;As;New;ADODB.Connection;

Dim;Rs;As;New;ADODB.Recordset;

Dim;Rsmysql;As;New;ADODB.Recordset;


Function;replace_str(srcstr;As;String);

srcstr;=;Replace(srcstr,;"",;"");

replace_str;=;Replace(srcstr,;"'",;"'");

End;Function;



双击form，在装载form时输入以下的代码;

Private;Sub;Form_Load();

'将进度条设置为不可见;

prgBar1.Visible;=;False;

'连接mysql数据库,pwd为数据库的密码，uid为用户名，dsn为数据源的名称;

Cnmysql.ConnectionString;=;"uid=root;pwd=;dsn=build";

Cnmysql.Open;

End;Sub;