ADODB连接参数问题

Question

我收到错误

  

预期的参数太少1

在下面的行。请协助

<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/font-awesome/4.4.0/css/font-awesome.min.css">
  <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css" >
  <link rel="stylesheet" href="https://code.jquery.com/ui/1.12.1/themes/base/jquery-ui.css">  
  <link rel="stylesheet" type="text/css" href={% static "getdata/css/custom.css" %} media="all">
  <link rel="stylesheet" type="text/css" href={% static "getdata/css/custom2.css" %} media="all">
  <script src="https://code.jquery.com/jquery-3.3.1.js"></script>
  <script src="https://code.jquery.com/ui/1.12.1/jquery-ui.js"></script>
  <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js" ></script>
  
  
  <table class="col-md-12 table-bordered table-striped table-condensed cf">
          <thead class="cf">
            <tr>
                <th>copy</th>
                <th>copy</th>
                <th>copy</th>
                <th>copy</th>
            </tr>
        </thead>
        <tbody>
  <tr>
  <td>data</td>
  <td><input class="datepicker" id="endDate1" type="text"/></td>
  <td>data</td>
  <td>data</td>
  </tr>
          </tbody>
  </table>

完成编码

mrs.Open sSQLSting, Conn, 3, 1

Answer 1

是的，错误信息不是很直观：（

这是因为当您的SQL查询中的字段名称与表字段名称不匹配时：

  

预期的参数太少1

表示您的SQL语句中使用的1字段名称在您的表中不可用。

所以可能不存在名为Vertical Name的字段！

我还强烈建议使用Option Explicit并正确声明所有变量，以避免在变量名中输入错误：例如。 sSQLSting显然是sSQLString。如果您不使用Option Explicit，很快就会遇到问题。

Answer 2

继我的评论之后，我已经模拟了一些虚拟数据，以下工作

Sub Data_Extract()

Dim c As New ADODB.Connection
Dim r As New ADODB.Recordset
Dim s As String

s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Workspace\Dummy Data\SAMPLE_GENERAL.xlsx;" & _
        "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"

c.Open s

r.Open "Select * from [Sheet1$A1:E5] where [field 1]='b'", c, 3

End Sub