在EXCEL中使用SQL语句查询集锦-持续更新中，敬请关注

winters0n

道个谢，期待大作

yanbin.1982

opiona 发表于 2013-1-20 21:05
限制查询多少列数据（或者说多少字段数），字段名之间用[,]分割，没有空
你就在SQL写入多少个字段饿名称
...

为啥工资表没有框起来加个美元符号

sairuisi-fzh

学习了，谢楼主分享

ykcbf1100

顶一个，好贴

jjamxin

Sub 查询删除()
Dim mydata As String, mytable As String, SQL As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Integer
    'Worksheets("查询表").Cells.Clear     '清除工作表的全部数据
    mydata = ThisWorkbook.Path & "\jjamxspl.mdb"      '指定数据库
    mytable = "客户信息"       '指定数据表
    '建立与数据库的连接
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password='2012'"
        .Open mydata
    End With
   
   
    SQL = "delete from 客户信息 where 联系人 in(select 联系人 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[Sheet21$E$6])" _
        & " and 客户编号 in(select 客户编号 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[Sheet21$E$20])"

     
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
Set rs = Nothing
zw.Close

End Sub

执行错误求解

RISE_7

Mark学习一下

ndt3

十分感谢！！！正好需要用到！

opiona

jjamxin 发表于 2021-7-22 01:30
Sub 查询删除()
Dim mydata As String, mytable As String, SQL As String
    Dim cnn As ADODB.Connect ...

ADO 不支持Excel内的删除操作

ykcbf1100

好帖，学习一下。

xuqing8331

占位。。 学习。。