西安曲江鲜花店:VBA连接数据库1

来源：百度文库编辑：九乡新闻网时间：2024/04/29 13:31:05

VBA连接数据库 Dim i As Long, j As Long
    Dim sSql As String, sht As Worksheet, sht2 As Worksheet
    Dim rs As New ADODB.Recordset
    Dim oConn As New ADODB.Connection
    Dim strConn As String '连接串
    Dim id As String

    'MsgBox "ddd"

    '-连接数据库-
    strConn = "DRIVER=SQL Server;UID=Anonymous;Trusted_Connection=Yes;DATABASE=FLF;WSID=VMW;APP=Microsoft Data Access Components;SERVER=w-shpd-dev;"
    '连接串
    oConn.Open (strConn)

    '取得工作sheet
    Set sht = Workbooks(1).Worksheets(1)
    Set sht2 = Workbooks(1).Worksheets(2)



    For j = 0 To 50000
    id = sht.Cells(j + 1, 3)
    sSql = "select * from sheet1$ where [Inquiry Nbr]=" & id & " 'sql语句"
    rs.Open sSql, oConn '打开数据集

    i = 1

    If rs.EOF Then
    'MsgBox "null"

    Else
    Do While Not rs.EOF
      sht2.Cells(i, 1) = rs("Activity Id")
      sht2.Cells(i, 2) = rs("First Name")
      sht2.Cells(i, 3) = rs("Inquiry Nbr")
      rs.MoveNext
      i = i + 1
    Loop
    End If
    Next
    '关闭连接释放数据
    rs.Close
    oConn.Close

原文地址 http://ken_kang.blog.bitscn.com/archives/2007/16634.html

VBA连接数据库1 VBA连接数据库 - ExcelVBA - 凡心 net 连接Access数据库 Oracle连接远程数据库 JAVA如何连接数据库 ASP连接SQL数据库 Java连接Oracle数据库 JAVA连接各种数据库 JDBC连接各种数据库方法转载：ADO连接SQL数据库 Oracle sqlplus远程连接数据库 JDBC连接各种数据库方法连接各种数据库方式速查表 ADO Connection对象连接数据库连接池数据库密码加密利用ASP连接各种数据库 VBA系列讲座(1):VBA是什么?1 Java程序连接各种数据库的方法常用的ASP连接数据库的函数连接缓冲池提高数据库性能 CONNECT / AS SYSDBA 可以任何人连接数据库？ SQL server2005 无法连接到数据库 IDL 连接sql server 2005 数据库心得 VB利用ADO控件连接access数据库