VB如何连接SQL SERVER数据库、导入数据到EXCEL表中

1、先打开控制面板-管理工具-打开数据源-系统DSN-添加驱动程序

2、这里要输入你想要连接的哪个服务器上的数据库

3、这里要输入数据库的帐户跟密码

4、然后一直点下一步，到这一步可以先测试能不能连到连据库

5、连接成功后、接下来就是用VB连接SQL SERVER、导入数据到EXCEL表格中

6、先打开EXCEL表-开发工具-点击命令按扭-在表格中随便拉开

7、先点开发工具里的--设计模式--然后双击按扭

8、打开按扭是这样的、如果按扭是英文名、可以在左边的地方设置中文，然后把下面的代码复制到中间这里

9、只要改这2行里的就行了、strcn='数据源；服务器地址；数据库名称；帐户；密码'

10、第2行就是改SQL语句了

11、修改EXCEL单元表格开始列、还有右边的修改数据库表里的字段名称

Private Sub CommandButton1_Click()
Dim cn As Object    '定义数据链接对象 ，保存连接数据库信息Dim rs As Object    '定义记录集对象，保存数据表Set cn = CreateObject("ADODB.Connection")  '创建数据链接对象Set rs = CreateObject("ADODB.RecordSet")  '创建记录集对象，用于接收数据查询获得的结果集Dim strCn As String, strSQL As String '字符串变量strCn = "Provider=SQLOLEDB;Server=192.168.5.131;Database=GDERP;Uid=sa;Pwd=663344abc..;"    '定义数据库链接字符串strSQL = "select * from inv"    '设置SQL语句cn.Open strCn '打开连接rs.Open strSQL, cn '读取数据库中的数据Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表Set sht = ThisWorkbook.Worksheets("sheet1")'循环读取数据并将数据显示到excel中Do While Not rs.EOF     '当数据指针未移到记录集末尾时，循环下列操作sht.Cells(i + 2, 1) = rs("invno") '把当前记录的字段1的值保存到sheet1工作表的第i行第1列sht.Cells(i + 2, 2) = rs("whid")  '把当前字段2的值保存到sheet1工作表的第i行第2列sht.Cells(i + 2, 3) = rs("whid2")  '把当前字段2的值保存到sheet1工作表的第i行第2列rs.MoveNext                      '把指针移向下一条记录i = i + 1                          'i加1，准备把下一记录相关字段的值保存到工作表的下一行Loop                                 '循环rs.Close   '关闭记录集，至此，程序将把某数据表的字段1和字段2保存在excel工作表sheet1的第1、2列，行数等于数据表的记录数End Sub

11、保存、然后返回EXCEL表格、点击查询、就可以了

VB如何连接SQL SERVER数据库、导入数据到EXCEL表中相关推荐

VB.NET连接SQL server数据库解决方案(转载+亲自实践)
原文来自:http://hi.baidu.com/mwd_3330410/blog/item/ba0ccd240a0902184c088d83.html Microsoft Visual Basic. ...
delphi连接SQL Server数据库
delphi连接SQL Server数据库 delphi版本:Delphi XE10.3.1 SQL Server版本:2014 建立连接: 然后双击 FDConnection组件打开 FireDA ...
条码打印软件如何连接SQL Server数据库制作条形码
有的小伙伴用条码打印软件制作条形码时,条形码数据没有保存在TXT或者Excel表中,而是保存在数据库中,那就无法选择TXT或者Excel数据源导入条形码数据了,这样的话,在条码打印软件可以选择连接相应 ...
标签打印软件如何连接SQL Server数据库打印产品标签
这两天小编遇到有人咨询说自己的产品信息在数据库中,怎么把产品数据导入到标签打印软件中制作成产品标签.其实,实现这个功能是非常简单的,我们可以在标签打印软件中直接连接相关数据库,调用数据库中的产品信息即 ...
【ASP.NET】VS2015连接SQL Server数据库，实现登录、注册
文章目录 1. 实验目标 2. 难点 3. 问题 3.1 SQL Server 3.2 Demo练习 3.3 编写页面时的错误 4. 总结 5. 页面 6. 主要代码 [ASP.NET]VS2015连 ...
python 使用pymssql连接sql server数据库
Python连接SQL Server数据库 - pymssql使用基础 ----原文地址:http://www.cnblogs.com/baiyangcao/p/pymssql_basic.html ...
如何通过代码连接SQL Server数据库
我们曾经为南方电网做过几个有关架空线路的科技项目,要趁着假期有整段的空闲时间,把这些代码整理一下,放入团队刚刚重构的代码库中. 由于这些项目使用的数据库为 SQL Server,所以在整理代码之前需要 ...
JDBC连接sql server数据库及其它
JDBC连接sql server数据库的步骤如下: 1.加载JDBC驱动程序: 在连接数据库之前,首先要加载想要连接的数据库的驱动到JVM(Java虚拟机), 这通过java.lang.Class类的 ...
ADO.NET连接SQL Server数据库
在.NET应用程序中,创建数据连接分为三步: 一.定义连接字符串不同的数据库连接字符串的格式不同,一般都包括要连接的数据库提供都名称.登陆信息以及要使用的数据库名称. 注意:在定义连接字符串之前,一 ...
python连接sql数据库_python连接sql server数据库实现增删改查
简述 python连接微软的sql server数据库用的第三方模块叫做pymssql(document:http://www.pymssql.org/en/stable/index.html).在官 ...

VB如何连接SQL SERVER数据库、导入数据到EXCEL表中

VB如何连接SQL SERVER数据库、导入数据到EXCEL表中相关推荐

最新文章

热门文章