ＭｓｇＢｏｘ。已成功导入。＆ｒｓｔ．ＲｅｃｏｒｄＣｏｕｎｔ＆。条记录！。， ｖｂｌｎｆｏｒｍａｔｉｏｎ，。温馨提示。 ｃｍｄ２．Ｃａｐｔｉｏｎ＝。关闭。 Ｅｌｓｅ ｆａｃｃｅｓｓ．Ｃａｐｔｉｏｎ＝‘数据正在导入，请稍候…．．。 Ｅｎｄ Ｉｆ ＬＯＯＯ Ｅｌｓｅ ＭｓｇＢｏｘ。Ｅｘｃｅｌ表数据字段数大于Ａｃｃｅｓｓ表数据字段数！。， ｖｂＥｘｃｌａｍａｔｉｏｎ，’温馨提示。 Ｅｎｄ Ｉｆ ｒｓ．Ｃｌｏｓｅ ｒｓｔ．Ｃｌｏｓｅ Ｓｅｔ ｒｓ＝Ｎｏｔｈｉｎｇ Ｓｅｔ ｒｓｔ＝Ｎｏｔｈｉｎｇ ｃｍｄｌ．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ Ｅｎｄ Ｓｕｂ
ａｄＯｐｅｎＤｙｎａｍｉｃ，ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ’打开记录集 ｒｓ．ＭｏｖｅＬａｓｔ ｉ＝ｒｓｔ．ＲｅｃｏｒｄＣｏｕｎｔ Ｄｏ Ｗｈｉｌｅ Ｎｏｔ ｒｓｔ．ＥＯＦ Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ ｒｓ．ＡｄｄＮｅｗ Ｆｏｒ ｓ＝０ Ｔｏ ｆｎｌｃｏｕｎｔ一１ ｒｓ．Ｆｉｅｌｄｓ（ｓ）＝ｒｓｔ．Ｆｉｅｌｄｓ（ｓ） ’把ＥｘｃｅＩ的记录写入Ａｃｃｅｓｓ表中 Ｎｅｘｔ ｓ ｒＳ．ＭｏｖｅＮｅｘｔ ｒｓｔ．ＭｏｖｅＮｅｘｔ ｉ＝ｉ一１ Ｉｆ ｉ＝０ Ｔｈｅｎ ｆａｃｃｅｓｓ．Ｃａｐｔｉｏｎ＝。数据导入完毕！。 ｒｓ．Ｕｐｄａｔｅ
ＥｎｄＷｉｔｈ
ｓｒ．Ｃｌｏｓｅ Ｓｅｔ ｓｒ＝Ｎｏｔｈｉｎｇ ｃｍｄｌ．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ Ｅｎｄ Ｓｕｂ
■■＊＊＊＊＊＊量＊■量＊＊＊，Ｗ－＊＊＊＊＊＊■＊＊鲁＊＊＊＊＊■＊＊＊＊＊＊蕾＊＊＊＊＊■●警＊
Ｐｒｉｖａｔｅ Ｓｕｂ ｉｍｇｌ—Ｃｌｉｃｋ（） Ｄｉｍ ｒｓ Ａｓ Ｎｅｗ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ
（２）打开Ａｃｃｅｓｓ文件窗体，如图３所示。
图３
１）该窗体包括的主要控件有：文本控件（ｔｅｘｔｌ）用于显 示所选文件路径；图像控件（ｉｍ９２）用于打开对话框；对话框 控件（ｅｄｌ２）、组合框（ｃｏｒａｌ）用于显示表的名称； 网格控 件（ｍｓ９１）用于显示Ａｃｃｅｓｓ数据库中表的结构信息（字段名 称、字段大小、字段类型）；命令按钮（ｃｍｄｌ）用于执行“导 入”命令。
Ｅｎｄ Ｉｆ ｌｆ ｃｏｎｎ．Ｓｔａｔｅ＝ａｄＳｔａｔｅＯｐｅｎ Ｔｈｅｎ’判断ｃｏｎｎ连接的状态 ｃｏｎｎ．Ｃｌｏｓｅ ｃｏｍｌ．Ｃｌｅａｒ Ｅｎｄ Ｉｆ ＣａｌＩ ｍｄｂｃｏｎ Ｓｅｔ ｒｓ＝ｃｏｎｎ．ＯｐｅｎＳｃｈｅｍａ（ａｄＳｃｈｅｍａＴａｂｌｅｓ）
’把数据库的结构赋给了记录集ｒｓ Ｄｏ Ｕｎｔｉｌ ｒｓ．ＥＯＦ Ｉｆ Ｌｅｆｔ（ｒｓ！ｔａｂｌｅ—ｎａｍｅ，４）＜＞。ＭＳｙｓ。Ｔｈｅｎ ｃｏｒｎｌ．Ａｄｄｌｔｅｍ ｒｓ Ｊ ｔａｂｌｅ—ｎａｍｅ ７给ｃｏｍｂ０１控件赋值 Ｅｎｄ Ｉｆ ｒＳ．ＭｏｖｅＮｅｘｔ
参考文献 【１】肖奕．ＡＳＰ．ＮＥＴ ２．０数据库入门经典．第４版，北京：清华
大学出版社，２００６． 【２】崔良海．ＡＳＰ．ＮＥＴ ２．０实用教程（Ｃ＃版）．北京：人民邮
电出版社．２００８． （收稿日期：２００９－１２－２６）
３９
万方数据
ห้องสมุดไป่ตู้
，。。‘‘。。‘‘。。。。。。。。。‘’。。。。。。。。‘。‘‘’。。。。‘。‘。‘‘’。。。。‘’。。。。。。。’’。。。‘。。‘。。
ＥｎｄＷｉｔｈ
Ｅｎｄ Ｓｕｂ
３ 主窗体
主要包括两个单选按钮（ｏｐｔｉｏｎＩ、ｏｐｔｉｏｎ２）如图１所示。
图１
主要代码如下： Ｐｒｉｖａｔｅ Ｓｕｂ Ｏｐｔｉｏｎｌ一Ｃｌｉｃｋ（） ｆｅｘｃｅｌ．Ｓｈｏｗ７显示导入主窗体 Ｍｅ．Ｈｉｄｅ Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｏｐｔｉｏｎ２一Ｃｌｉｃｋ（） ｏｕｔｆｏｒｍ．Ｓｈｏｗ’显示导出主窗体 Ｍｅ．Ｈｉｄｅ Ｅｎｄ Ｓｕｂ
Ｅｎｄ Ｓｕｂ
＊●＊●＊＊＊＊＊＊＊＊＊＂ＩＰ＂Ｉｆ●＊■＊■●，＊＊＊＊＊＊＊＊●＊＊■＊量量●■●●●＊＊＊＊菁
Ｐｒｉｖａｔｅ Ｓｕｂ ｃｏｒｎｌ＿Ｃｌｉｃｋ（１’组合框的单击事件 Ｄｉｍ Ａｓ Ｉｎｔｅｇｅｒ Ｓｅｔ ｄ９１．ＤａｔａＳｏｕｒｃｅ＝Ｎｏｔｈｉｎｇ ｄ９１．Ｒｅｆｒｅｓｈ Ｌａｂｅｌ３．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ Ｄｉｍ ｏＲＳ Ａｓ Ｎｅｗ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ ｏＲＳ．Ｏｐｅｎ。Ｓｅｌｅｃｔ＋ｆｒｏｍ ｒ＆ｃｏｍｌ．Ｔｅｘｔ＆。】－， ｃｎ，ａｄＯｐｅｎＳｔａｔｉｃ，ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ ’打开组合框所对应表的记录集 ｏＲＳ．Ｕｐｄａｔｅ ｉ＝ｏＲＳ．ＲｅｃｏｒｄＣｏｕｎｔ ｆｎｌｃｏｕｎｔ＝ｏＲＳ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ＝。共有。＆ｉ＆“条记录一显示该表的记录数 Ｌａｂｅｔ４．Ｃａｐｔｉｏｎ＝。共有。＆ｏＲＳ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ＆’个字段。 ’显示该表的字段数 Ｓｅｔ ｄ９１．ＤａｔａＳｏｕｒｃｅ＝ｏＲＳ’给ｄａｔａｇｒｉｄ控件赋值 ｄ９１．Ｒｅｆｒｅｓｈ ｃｍｄｌ，Ｅｎａｂｌｅｄ＝Ｔｒｕｅ Ｅｎｄ Ｓｕｂ
匿蔓圄 ＩＩＩＩ Ｒ·．ＤｍＢ＾ＳＥ…………一………………………………………………………………………………．．…………”－．
ＶＢ＋Ａｃｃｅｓｓ系统中实现Ｅｘｃｅｌ和Ａｃｃｅｓｓ 数据库相 互导入
畅育超
摘 要：以“学籍管理数据库”为例，介绍ＶＢ＋Ａｃｃｅｓｓ系统中利用ＡＤＯ记录集实现Ｅｘｃｅｌ和 Ａｃｃｅｓｓ数据库相互导入的程序设计方法。 关键词：数据库；ＶＢ＋Ａｃｃｅｓｓ；ＡＤＯ；ＶＢ控制Ｅｘｃｅｌ
Ｐｕｂｌｉｃ ｆｎｌｃｏｕｎｔ ＡＳ Ｉｎｔｅｇｅｒ’保存ＥｘｃｅＩ数据库表的字段数
Ｐｕｂｌｉｃ ｃｏｎｎ Ａｓ Ｎｅｗ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ ７声明一个ｍｄｂ数据库的连接 Ｐｕｂｌｉｃ ｃａ Ａｓ Ｎｅｗ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ ’声明一个ｘｌｓ数据库的连接 Ｐｕｂｌｉｃ Ｓｕｂ ｍｄｂｃｏｎ（）’连接Ａｃｃｅｓｓ数据库 ｃｏｎｎ．０ｐｅｎ。Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．０： Ｄａｔａ Ｓｏｕｒｃｅ＝。＆ｆｎ＆。；Ｐｅｒｓｉｓｔ Ｓｅｃｕｒｉｔｙ ｌｎｆｏ＝Ｆａｌｓｅ。 ｃｏｎｎ．ＣｕｒｓｏｒＬｏｃａｔｉｏｎ＝ａｄＵｓｅＣｌｉｅｎｔ７声明游标类型 Ｅｎｄ Ｓｕｂ Ｐｕｂｌｉｃ Ｓｕｂ ｘｌｓｃｏｎ（）７连接Ｅｘｃｅｌ Ｓｅｔ ｃｎ＝Ｎｅｗ ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ
实用第一．／智慧密集
．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．—，
４导入窗体
（１）打开Ｅｘｃｅｌ文件窗体，如图２所示。
图２
１）该窗体包括的主要控件有：文本控件（ｔｅｘｔｌ）用于显 示所选文件路径；图像控件（ｉｍ９２）用于打开对话框；对话框 控件（ｃｄｌ２）、组合框（ｃｏｍｌ）用于显示表的名称；网格控件 （ｄ９１）用于显示Ｅｘｃｅｌ表中的记录；命令按钮（ｃｍｄｌ）用于调 用下一个窗体。
·Ｓ￡·ＳＥ·Ｓ芒·Ｓ芒．ｓ芒心￡·Ｓ芒·蛊毫－Ｓ￡ｄ芒－ＳＥ·昱曼－Ｓ！·毒￡·Ｓ￡·Ｓ蔓·Ｓ￡·Ｓ芒ｄＥ·毫￡ｄ要●Ｓ￡砖￡ｄ￡·童芒．毫芒·皇芒．ｓ芒ｄ曼－蛊Ｅ·Ｓ芒．毫￡．ｓ！·毒要．｛【芒．ｓ曼砖芒一￡心芒．！！Ｅ心￡－．ｓ纵Ｅ．毫￡础芒ｄ芒
现远程存取Ａｃｃｅｓｓ数据库的功能．对程序设计能起到积极的 作用。
．Ｒｏｗｓ＝ｓｒ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ＋１ Ｆｏｒ Ｐ＝１ Ｔｏ ｓｒ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ
．ＴｅｘｔＭａｔｒｉｘ（ｐ．０）＝Ｐ ．ＴｅｘｔＭａｔｒｉｘ（ｐ，１）＝ｓｒ．Ｆｉｅｌｄｓ（ｐ一１）．Ｎａｍｅ ．ＴｅｘｔＭａｔｒｉｘ（ｐ，２）＝ｓｒ．Ｆｉｅｌｄｓ（ｐ一１）．Ｔｙｐｅ ．ＴｅｘｔＭａｔｒｉｘ（ｐ。３）＝ｓｒ．Ｆｉｅｌｄｓ（ｐ一１）．ＤｅｆｉｎｅｄＳｉｚｅ Ｎｅｘｔ Ｐ
４０
万方数据
’匿蔓围
－－－···．ＤＪ帆ＢＡＳＥ－－··－···－－－－·－··－－－··－·－－·一·－－－··－···－···－···－－－·－－－····－－··－－－·一－一－－－－－·一·－－··－·－－－－·－－·－一－－－－－··－－－·－··－－···－·－－－－－－－··
Ｗｉｔｈ ｍｓｇｌ’给ｍｓｇｌ控件赋值
２公共变量及模块
首先要引用“Ｍｉｃｒｏｓｏｆｔ ＡｃｔｉｖｅＸ Ｄａｔａ Ｏｂｊｅｃｔｓ２．６ Ｌｉｂｒａｒｙ”和 “Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ ｌ １．Ｏ ０ｂｊｅｃｔｓ
Ｌｉｂｒａｒｙ ７系统库 Ｐｕｂｌｉｃ ｆｎ Ａｓ Ｓｔｒｉｎｇ’保存Ａｃｃｅｓｓ文件名 Ｐｕｂｌｉｃ ｆｎ ｌ Ａｓ Ｓｔｒｉｎｇ’保存Ｅｘｃｅｌ文件名 Ｐｕｂｌｉｃ ｆｎｃｏｕｎｔ Ａｓ Ｊｎｔｅｇｅｒ’保存Ａｃｃｅｓｓ数据库表的字段教
Ｌｏｏｐ ｒｓ．Ｃｌｏｓｅ Ｓｅｔ ｒｓ＝Ｎｏｔｈｉｎｇ Ｅｎｄ Ｓｕｂ
●＊＊＊●■■＊并量■＊●●＊＊＊＊■●●●＊＊＊＊＊■＊●＊■●■■＊＊■蕾●鲁善善＊｝＊瞢量
Ｐｒｉｖａｔｅ Ｓｕｂ ｃｍｄｌ—Ｃｌｉｃｋ（）’导人数据 Ｄｉｍ Ａｓ Ｉｎｔｅｇｅｒ Ｄｉｍ ｓ Ａｓ Ｉｎｔｅｇｅｒ Ｄｉｍ ｒｓｔ Ａｓ Ｎｅｗ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ Ｄｉｍ ｒｓ Ａｓ Ｎｅｗ ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ Ｉｆ ｆｎｌ ｃｏｕｎｔ＜＝ｆｎｃｏｕｎｔ Ｔｈｅｎ’判断两表的字段数 ｒｓｔ．Ｏｐｅｎ。Ｓｅｌｅｃｔ’ｆｒｏｍ【－＆ｆｅｘｃｅｌ．ｃｏｍｌ．Ｔｅｘｔ＆’１Ｉ，ｃｎ， ａｄＯｐｅｎＤｙｎａｍｉｃ’打开记录集 ｒｓ．Ｏｐｅｎ。ｓｅｌｅｃｔ’ｆｒｏｍ。＆ｃｏｍｌ．Ｔｅｘｔ＆一，ｃｏｎｎ，
２）主要代码 Ｐｒｉｖａｔｅ Ｓｕｂ ｃｏｍｌ—Ｃｌｉｃｋ（） Ｄｉｍ ＰＡｓ Ｉｎｔｅｇｅｒ ＳＦ．Ｏｐｅｎ ｃｏｒｎ １．Ｔｅｘｔ，ｃｏｏｎ，ａｄＯｐｅｎＫｅｙｓｅｔ，ａｄＬｏｃｋＯｐｔｉｍｉｓｔｉｃ Ｌａｂｅｌ３．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ＝‘共有。＆ｓｒ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ＆‘个字段。 ｆｎｃｏｕｎｔ＝ｓｒ．Ｆｉｅｌｄｓ．Ｃｏｕｎｔ
２）主要代码： Ｐｒｉｖａｔｅ Ｓｕｂ ｉｍ９２一Ｃｌｉｃｋ（Ｊ Ｌａｂｅｌ３．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ ｃｏｒｎ １．Ｃｌｅａｒ Ｄｉｍ ｒｓｘｌｓ Ａｓ Ｎｅｗ ＡＤＯＤＢ，Ｒｅｃｏｒｄｓｅｔ ｃｄｌ ２．Ｆｉｌｔｅｒ＝。Ｅｘｃｅｌ文件（＊．ｘｌｓ）ｌ’．ｘｌｓｌ所有文件《。．’）Ｉ＊．”