无效的SQL语句；期待'DELETE'、'INSERT'。。。新手求助 - 编程论坛

#2

Artless2012-08-04 00:07

sql = "seclect * from 订单查询 where 订单号= '" & Text1.Text & "'"
重复发帖了

[ 本帖最后由 Artless 于 2012-8-4 00:18 编辑 ]

#3

snow18602012-08-04 10:18

谢谢斑竹大人，改了两个拼错的单词，不过还是不能运行

Private Sub ComFind_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\编程12.7.21\dingdanchaxun.mdb;"
    sql = "select * from 订单查询 where 订单号= ' " & Text1.Text & " ' "
    Set rs = New ADODB.Recordset
        rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic
        Set MSHFlexGridl.Recordset = rs        **********************一点查询按钮就会出现实时错误424，要求对象
        MSHFlexGridl.Refresh
    rs.Close
    cn.Close

  Set rs = Nothing
  Set cn = Nothing
End Sub

#4

snow18602012-08-04 10:19

以下是引用snow1860在2012-8-4 10:18:08的发言：

谢谢斑竹大人，改了两个拼错的单词，不过还是不能运行

Private Sub ComFind_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\编程12.7.21\dingdanchaxun.mdb;"
    sql = "select * from 订单查询 where 订单号= ' " & Text1.Text & " ' "
    Set rs = New ADODB.Recordset
        rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic
        Set MSHFlexGridl.Recordset = rs        **********************一点查询按钮就会出现实时错误424，要求对象
        MSHFlexGridl.Refresh
    rs.Close
    cn.Close

  Set rs = Nothing
  Set cn = Nothing
End Sub

这几行代码是完全按照书上照抄的

#5

Artless2012-08-04 23:36

DataSource