zoukankan      html  css  js  c++  java
  • VB控制EXCEL并使用SQL语句


    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    Dim x, l As Long
    Dim sql As String

    x = 2
    With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & wkname & ";" & _
    "Extended Properties=Excel 8.0;"
    .Open
    End With
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.ActiveConnection = cn

    If tablename1.Text <> "" Then


                rs.Open "select * from " & "[" & tablename1.Text & "$]", cn, 1, 3 

  • 相关阅读:
    windows7触屏编程
    改变窗口大小,恢复以前的大小
    insert()
    index()
    help()
    id()
    extend()
    count()
    cmp()
    append()
  • 原文地址:https://www.cnblogs.com/chenzhao/p/2082050.html
Copyright © 2011-2022 走看看