VBA连接SQL数据库的方法

原创 2018年04月16日 09:18:38
Dim cnn As Object
Dim rs As Object
Set rs = CreateObject("ADODB.RecordSet")
Set cnn = CreateObject("ADODB.Connection")
Dim strSQL As String
Dim cnnStr As String
'  Set cnn = New ADODB.Connection ﹚Microsoft activeX data object 2.1
  
   cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=**;Password=**;Initial Catalog=**;Data Source=**;Connect Timeout=5;"
   strSQL = "select top 10 * from code_map"
   cnn.Open cnn.ConnectionString
   rs.Open strSQL, cnn




Set sht = ThisWorkbook.Worksheets("sheet3")
Do While Not rs.EOF
    i = i + 1
    sht.Cells(i, 1) = rs(1)
    sht.Cells(i, 2) = rs(3)
    sht.Cells(i, 3) = rs(5)
    sht.Cells(i, 4) = rs(6)
    rs.MoveNext
  
Loop
rs.Close

VBA连接SQL SERVER数据库操作Excel

VBA连接SQL SERVER数据库操作Excel。 Sub 按钮1_Click()     Dim i As Integer, j As Integer, sht As Worksheet 'i,...
  • waterxcfg304
  • waterxcfg304
  • 2014-12-25 14:52:19
  • 18728

vba连接数据 代码 (excel/access/sqlserver)

Sub 创建access连接并查询()     Dim AdoConn As New ADODB.Connection     Dim strConn As String     Dim strSQL...
  • kilolo_w
  • kilolo_w
  • 2016-12-02 11:18:09
  • 880

用Excel VBA连接SQL Server数据库并将表中的数据显示到Excel中

本实例使用VB语言和OLEDB类连接SQL Server 2005数据库。 在sheet1上右键→查看代码,加入如下代码: Sub admin() Dim conn, xRs S...
  • lucky51222
  • lucky51222
  • 2016-04-06 17:10:17
  • 3210

VBA中用ADO访问SQL SERVER数据库:数据查询

 本程序的作用是:使用数据对象ADO访问SQL数据库,从而进行数据查询,并将查询的数据返回到EXCEL中,由于此程序需用到SQL数据库,所以只供大家参考,不便运行,但大家可以看出其精华!    Pri...
  • songkexin
  • songkexin
  • 2008-02-18 07:10:00
  • 4621

word vba 如何连接sql数据库

  • 2012年07月06日 15:36
  • 36KB
  • 下载

用VBA刷新ODBC连接表,也就是SQL SERVER表

Public Function flashTbl() Dim db As DAO.Database Dim tbl As TableDef Dim a As String ...
  • zeephom
  • zeephom
  • 2017-10-26 11:05:22
  • 621

excel vba+sql多表连接代码 (full left right join)

Sub excel连接数据库()     Dim Con As New ADODB.Connection     Dim strCon As String     Dim rs As ADODB....
  • kilolo_w
  • kilolo_w
  • 2016-12-13 16:13:16
  • 1665

vba连接各种数据库字符串

  • 2011年05月12日 16:31
  • 32KB
  • 下载

vba如何连接db2数据库

http://jingyan.baidu.com/article/22a299b5185fd29e19376af2.html
  • pgbiao
  • pgbiao
  • 2015-07-30 15:56:21
  • 1101

Excel使用ADO调用SQL Server存储过程

前期使用Excel做一个现场投票的小软件,问题出在查看投票按钮上,起初只是使用SELECT语句查询,一切正常;后期对于投票结果需要进行一些权重的计算,过程比较复杂,便想到把计算过程放在SQL Serv...
  • zhanghongju
  • zhanghongju
  • 2015-03-25 20:32:30
  • 4057
收藏助手
不良信息举报
您举报文章:VBA连接SQL数据库的方法
举报原因:
原因补充:

(最多只允许输入30个字)