当前位置:七道奇文章资讯数据防范MySQL防范
日期:2011-05-02 15:44:00  来源:本站整理

若何将Access和Excel导入到Mysql中之三[MySQL防范]

赞助商链接



  本文“若何将Access和Excel导入到Mysql中之三[MySQL防范]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:
二.导库的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


www.iTbulo.comARTVw

  以上是“若何将Access和Excel导入到Mysql中之三[MySQL防范]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • 若何将Access和Excel导入到Mysql中之一
  • 若何将Access和Excel导入到Mysql中之二
  • 若何将Access和Excel导入到Mysql中之三
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .