VBS将本地的Excel数据导入到SQL Server中
VBS将本地的Excel数据导入到SQL Server中
最近有个测试,需要将本地的Excel数据导入到SQL Server中,所以就写了一个这个脚本,供有需要的同学进行参考。因为在此演示测试,所以准备的数据都比较简单。
我们准备将本地的Excel的A列插入到数据库中的Username列
首先准备本地的Excel数据
然后准备数据库及表结构
开始上脚本
Dim DB,objRecordSet Dim Excel 'SQL Server服务器地址 Dim SQLserver 'SQL Server 数据库 Dim Database 'SQL Server登录名 Dim uid 'SQL Server登陆密码 Dim pwd 'SQL Server 数据库表名 Dim Tablename 'SQL Server数据库表列字段 Dim Column 'Excel表路劲 Dim XLSPath SQLserver = "192.168.7.170" Database = "PasswordInfo" uid = "sa" pwd = "Password" tablename = "UserServerInfo" column = "Username" XLSPath = "d:\users.xlsx" Set DB = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.RECORDSET") Set Excel = CreateObject("Excel.Application") DB.Open "Driver=SQL Server;server="&SQLserver&";Database="&Database&";uid="&uid&";pwd="&pwd&";" Excel.DisplayAlerts=FALSE Excel.visible=FALSE Excel.workbooks.open(XLSPath) line = 1 value = Excel.ActiveSheet.Cells(line,1).Value Do While value <> "" line = line + 1 insertDB(value) value = Excel.ActiveSheet.Cells(line,1).Value Loop msgbox "Finish" Function insertDB(value) sql = "insert into "&Tablename &"("& Column &") VALUES ("&"'"&value&"'"&")" msgbox sql DB.Execute(sql) End Function
我们开始开执行,开始插入第一条数据
执行完成
我们查看数据库表
因为vbs脚本里面有连接数据库的账户及密码,比较敏感,所以我们为了安全,我们需要将vbs转化成exe,但是这样的话,文件路劲是写死的,不方便,所以我们需要将源文件的路劲更改成浏览框。
更换前: 'XLSPath = "d:\users.xlsx" 更换后: msgbox "请选择源文件" XLSPath = CreateObject("WScript.Shell").Exec("mshta vbscript:""<input type=file id=f><script>f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value)[close()];</script>""").StdOut.ReadAll
修改后的整体代码
Dim DB,objRecordSet Dim Excel 'SQL Server服务器地址 Dim SQLserver 'SQL Server 数据库 Dim Database 'SQL Server登录名 Dim uid 'SQL Server登陆密码 Dim pwd 'SQL Server 数据库表名 Dim Tablename 'SQL Server数据库表列字段 Dim Column 'Excel表路劲 Dim XLSPath SQLserver = "192.168.7.170" Database = "PasswordInfo" uid = "sa" pwd = "Password" tablename = "UserServerInfo" column = "Username" 'XLSPath = "d:\users.xlsx" msgbox "请选择源文件" XLSPath = CreateObject("WScript.Shell").Exec("mshta vbscript:""<input type=file id=f><script>f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value)[close()];</script>""").StdOut.ReadAll Set DB = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.RECORDSET") Set Excel = CreateObject("Excel.Application") DB.Open "Driver=SQL Server;server="&SQLserver&";Database="&Database&";uid="&uid&";pwd="&pwd&";" Excel.DisplayAlerts=FALSE Excel.visible=FALSE Excel.workbooks.open(XLSPath) line = 1 value = Excel.ActiveSheet.Cells(line,1).Value Do While value <> "" line = line + 1 insertDB(value) value = Excel.ActiveSheet.Cells(line,1).Value Loop msgbox "Finish" Function insertDB(value) sql = "insert into "&Tablename &"("& Column &") VALUES ("&"'"&value&"'"&")" 'msgbox sql DB.Execute(sql) End Function
执行结果:
我们将提示插入的数据的msgbox注释,然后执行尝试
执行后,会提示完成
我们再次查看数据库结果
![](/img/my/wx.png)
低调大师中文资讯倾力打造互联网数据资讯、行业资源、电子商务、移动互联网、网络营销平台。
持续更新报道IT业界、互联网、市场资讯、驱动更新,是最及时权威的产业资讯及硬件资讯报道平台。
转载内容版权归作者及来源网站所有,本站原创内容转载请注明来源。
- 上一篇
图文超详解zabbix的安装以及设置邮件报警
博主QQ:819594300 博客地址:http://zpf666.blog.51cto.com/ 有什么疑问的朋友可以联系博主,博主会帮你们解答,谢谢支持! 一、 zabbix简介 zabbix是完全开源的工具,整合了cacti和nagios等特性 附:SNMP(udp 161 udp 162) 众多网络工具都支持此协议,比如常见路由交换,常见OS 其既可以做管理端也可以做被管理端 snmp协议大致有3个版本分别是v1 v2 v3 无论是v1 和 v2 的安全性是比较差的,因为传输是明文的, V3的认证密码用MD5/SHA摘要算法加密。 很多工具支持网络管理的功能,而对于非网络设备(操作系统),可以完全抛开snmp这种不安全的架构来实现监控的。所以很多工具都是控制端和agent架构,他们有专属的agent Zabbix的主要功能: ①具备常见的商业监控软件所具备的功能(主机的性能监控、网络设备性能监控、数据库、FTP 等通用协议监控、多种告警方式、详细的报表图表绘制)。 ②支持自动发现网络设备和服务器(可以通过配置自动发现服务器规则来实现)。 ③支持分布式,能集中展示、管理分布式的监...
- 下一篇
基于cookie在nginx实现业务灰度发布
基于cookie在nginx实现业务灰度发布 背景 灰度发布是指在黑与白之间,能够平滑过渡的一种发布方式。 灰度发布可以保证整体系统的稳定, 在初始灰度的时候就可以发现、调整问题,以保证其影响度。 业务存在灰度发布的需求, 可以通过nginx+lua形式实现业务的灰度发布, 目前这一形式已在广平互动广告相关业务已经实现。 流程 用户使用帐号登录后,判断用户帐号是否在灰度发布的名单中,如果再则给用户的cookie中增加灰度发布标识,然后刷新页面。 当用户访问页面时,业务接入层的nginx方向代理会根据用户cookie是否带着灰度标识而对用户的请求进行选择,是转发到所有后端机器还是指定的灰度发布机器。 方案 业务维护一个用户帐号的灰度名单,在程序里面实现灰度帐号登录时cookie里面种相应的标识。 用户请求发起时,nginx反向代理接入层通过获取请求中带的cookie的相关变量来判断当前请求是发往全量的服务器,还是发往灰度的服务器。 灰度处理逻辑 nginx接入层 配置实例 nginx配置静态页面的灰度规则 server { listen 80; server_name test.quny...
相关文章
文章评论
共有0条评论来说两句吧...
文章二维码
点击排行
推荐阅读
最新文章
- SpringBoot2编写第一个Controller,响应你的http请求并返回结果
- Windows10,CentOS7,CentOS8安装Nodejs环境
- 设置Eclipse缩进为4个空格,增强代码规范
- Windows10,CentOS7,CentOS8安装MongoDB4.0.16
- CentOS7,CentOS8安装Elasticsearch6.8.6
- Docker使用Oracle官方镜像安装(12C,18C,19C)
- Linux系统CentOS6、CentOS7手动修改IP地址
- CentOS7安装Docker,走上虚拟化容器引擎之路
- CentOS7编译安装Cmake3.16.3,解决mysql等软件编译问题
- Red5直播服务器,属于Java语言的直播服务器