→ stma: 成功了! S大真是猛 06/09 19:02
軟體: 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
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.168.88.191
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1528537014.A.110.html