vb6将excel数据导入mysql_VB6.0如何实现将excel数据导入mssql数据库中

我在VB6.0中的模块中加入了连接sql的语句，连接已经没有问题了，做登录系统和将sql的数据导入到excel中也没有问题，但就是不知如何实现将excel数据导入mssql数据库中，批量的导入，请...

我在VB6.0中的模块中加入了连接sql的语句，连接已经没有问题了，做登录系统和将sql的数据导入到excel中也没有问题，但就是不知如何实现将excel数据导入mssql数据库中，批量的导入，请高手指教下，谢谢了先！

Public SQL As String

Public rs As ADODB.Recordset

Public ConnStr As String

Public Conn As ADODB.Connection

Public Function Selectsql(SQL As String) As ADODB.Recordset

'Dim ConnStr As String '已公共申明

'Dim Conn As ADODB.Connection

'Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Set Conn = New ADODB.Connection

On Error GoTo MyErr:

ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=******;Initial Catalog=wzglxt;Data Source=127.0.0.1" '这是连接SQL数据库的语句

Conn.Open ConnStr

rs.CursorLocation = adUseClient

rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic

Set Selectsql = rs

Exit Function

MyErr:

Set rs = Nothing

Set Conn = Nothing

MsgBox "系统出错，请联系开发人员怀哥，E-mail：slyjpsh@qq.com", vbInformation, "系统提示"

End Function

执行

Dim strSQL As String

CommonDialog1.Filter = "电子表格文件(.xls)|*.xls"

CommonDialog1.DialogTitle = "请选择要导入的文件"

CommonDialog1.ShowOpen

SQL = "INSERT INTO Family SELECT * FROM OpenRowSet('microsoft.jet.oledb.4.0','Excel 14.0;HDR=Yes;database=" & CommonDialog1.FileName & " ;','select * from [Sheet1$] ')"

Set rs = Selectsql(SQL)

Conn.Execute SQL, , adExecuteNoRecords

Conn.Close

Set Conn = Nothing

MsgBox "导入成功", vbExclamation + vbOKOnly

Exit Sub

展开

vb6将excel数据导入mysql_VB6.0如何实现将excel数据导入mssql数据库中相关推荐

solr mysql 导入命令_（solr系列:四）将mysql数据库中的数据导入到solr中及删除solr中导入的数据...
在前面的博文中,已完成了在tomcat中对solr的部署,为solr添加了一个自定义的core,并且引入了ik分词器. 那么该如何将本地的mysql的数据导入到solr中呢? 准备工作: 1.mysq ...
MSSQL数据库中发现D99_Tmp数据表的处理办法
来源于网络,经过整理 D99_tmp(subdirectory,depth,file三个字段,里面的数据都是网站文件和目录) MSSQL数据库存在几个危险的扩展存储过程,默认Public组可执行权限, ...
mybatis insert 插入数据，显示执行成功，但未真正插入到数据库中
(1)通过mybatis插入数据库,插入数据,显示插入成功,查询数据库,发现并未插入成功.通过日志可看到原因为:插入的语句回滚连接数据库了,导致插入失败. (2)应加入commit语句,手动执行提交事 ...
【转载】如何把Mysql5.5数据库的数据导入到MSSql 数据库中【mysql-connector-odbc-3.51.28-win32】...
原文地址:http://www.start4e.cn/tabid/62/forumid/-1/postid/57/scope/posts/Default.aspx 1.安装mysql数据库的ODBC驱 ...
wps怎么导入access_mysql数据库中的表格数据如何导入wps中的excel，请问该怎么去做 | excel连接access数据库...
怎么把excel文件里的数据导入SQL数据库? 导据不一定要用OPENSET函数以用更简单的方法,步骤如下: 1.双击打sqlserver,右击需要导入数据的数据库,如图所示. 2.点击任务,再点击任 ...
mysql 导入tsv文件_HBase数据迁移（2）- 使用bulk load 工具从TSV文件中导入数据
英文原文摘自:<HBase Administration Cookbook>??编译:ImportNew?-?陈晨本篇文章是对数据合并的系列文章之二(共三篇),针对的情景模式就是将现有的 ...
Isilon三款新品构建数据湖2.0策略
公司的边缘数据一直是被忽略的存在,据ESG的报告显示,将近70%的公司存在边缘办公室,并且边缘数据达到了10PB.如何将这些边缘数据管理起来成为一个挑战,因为边缘数据在存储上存在一定的技术壁垒,Isi ...
如何把MySql数据库中的数据导入到MyCat集群中_---Linux运维工作笔记050
我这里,单个MySql数据表的大小已经超过20GB了,单表8000多万条数据,马上上亿了,这个时候我,搭建了一个MyCat集群解决的,一个写库,11个读库这样来做的. 提高查询效率.但是搭建完以后, ...
导出Windows服务器下的Oracle数据库并导入到Linux服务器下的Oracle数据库中
2019独角兽企业重金招聘Python工程师标准>>> 说明: 1.Windows Oracle数据库操作系统:Windows Server 2008 R2 IP地址:192.16 ...

vb6将excel数据导入mysql_VB6.0如何实现将excel数据导入mssql数据库中

vb6将excel数据导入mysql_VB6.0如何实现将excel数据导入mssql数据库中相关推荐

最新文章

热门文章