VBA的SQL命令如何删除SQL数据库的数据

1588078/37

Option Explicit

Public ConnDB As New ADODB.Connection
Public DBRst As ADODB.Recordset
Public ConnStr As String
Public SQLRst As String
Public irow As Integer, icol As Integer
Public OraOpen As Boolean
Public Sub OpenErp() '连接数据库
Set ConnDB = New ADODB.Connection
Set DBRst = New ADODB.Recordset
    OraOpen = False
    ConnStr = "Provider=SQLOLEDB;Initial Catalog=****;User ID=sa;Password=****;Data Source=192.168.0.156\STL"
    ConnDB.CursorLocation = adUseServer
ConnDB.Open ConnStr
OraOpen = True
DBRst.ActiveConnection = ConnDB
DBRst.CursorLocation = adUseServer
DBRst.LockType = adLockBatchOptimistic
  Application.ScreenUpdating = False '关闭屏幕刷新
Exit Sub
ONEXIT:
MsgBox "无法联接数据库", 16, "操作中止"
End Sub
连接数据库的命令
Call OpenErp
Sql = "select * from FORECAST"
DBRst.Open Sql, ConnDB, adOpenKeyset, adLockOptimistic
执行查询的命令



Call OpenErp
Sql = "delect from FORECAST where CDATE=  '" & rq & "'"
ConnDB.Execute Sql


ConnDB.Execute Sql提示这个错误,不知道错在哪,该如何修改

向東

在VBE中，在 DBRst.Open Sql, ConnDB, adOpenKeyset, adLockOptimistic，这句右边设置断点（按F9），然运行程序，到了断点，在立即窗口中输入 ?SQL 把得到的文本，粘贴到SQL新建查询里，测试一下到底这条SQL能不能用？

1588078/37

已解决 delete 写错了.

minren118

我已经开发了插件的形式来操作Sqlserver数据库，可以调用任意的Sql语句，不止是删除，可以关注下是否符合你的需求，插件名【Excel催化剂】