软件: Excel
版本: 2016
又来寻求一下帮助
目前我的database 如下
ID X Y
A 1 2
B 4 4
C 8 5
D 1 6
D 10 0
E 9 9
E 8 8
我想用SQL Select 将 ID count > 1 者 撷取出来
会变成
ID X Y
D 1 6
D 10 0
E 9 9
E 8 8
SQL Coding 如下:
strCommandText = "SELECT A.ID FROM[sheet1$] as A group by A.ID
having count(A.ID) > 1;"
但这段我只能做到 撷取"ID". X, Y 资讯该怎么一并得到?
有办法从现有Code 作扩增?
※ 引述《stma (BBS)》之铭言：
: 软件: Excel
: 版本: 2016
: 初次尝试ADO SQL,失败收场....
: 目的是想从 Local Excel 抓取数据库的 sheet1
: 出现错误为物件定义错误 (请看贴图说明)
: 请问这该怎么解呢?
: '************贴图说明**************
: https: //ppt.cc/fF8LJx
: ***********************************
: '**********Code 如下***************
: Sub MySQL_1st()
: Const adOpenStatic = 3
: Const adLockOptimistic = 3
: Const adCmdText = &H1
: Set objConnection = CreateObject("ADODB.Connection")
: Set objRecordset = CreateObject("ADODB.Recordset")
: objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
: "Data Source=C:\Users\Acer\Desktop\excel\SQL\raw\raw_data.xls;" & _
: "Extended Properties=""Excel 8.0;HDR=Yes;"";"
: objRecordset.Open "Select * FROM [sheet1$]", _
: objConnection, adOpenStatic, adLockOptimistic, adCmdText
: Do Until objRecordset.EOF
: Wscript.Echo objRecordset.Fields.Item("ID")
: objRecordset.MoveNext
: Loop
: End Sub