下のようなSQLで重複したレコードを削除することができることがわかりました。
テーブル名：TEST
DELETE * FROM TEST AS T1
WHERE ID <> (Select Min(ID) From TEST As T2
WHERE T2.受付日 = T1.受付日
And T2.シリアルNO = T1.シリアルNO);
しかしIDのように一意のフィールドがないテーブルで重複を消し一意にする方法はありますか。
Distinctを応用するとできるのですが、削除クエリで一発する方法はありませんか。
お願いします。
Sub Sample()
Dim myFile As String
myFile = "C:\Program Files (x86)\"
Shell "C:\Windows\Explorer.exe " & myFile, vbNormalFocus
End Sub
これでフォルダを起動させているのですが
開いたときの位置を指定する事は可能ですか？
TOP=0
など、IE操作の様に画面に対する位置を指定したいのですが
どうすればいいでしょうか？
下のようなSQLで重複したレコードを削除することができることがわかりました。
テーブル名：TEST
DELETE * FROM TEST AS T1
WHERE ID <> (Select Min(ID) From TEST As T2
WHERE T2.受付日 = T1.受付日
And T2.シリアルNO = T1.シリアルNO);
しかしIDのように一意のフィールドがないテーブルで重複を消し一意にする方法はありますか。
Distinctを応用するとできるのですが、削除クエリで一発する方法はありませんか。
お願いします。
下のようなSQLで重複したレコードを削除することができることがわかりました。
テーブル名：TEST
DELETE * FROM TEST AS T1
WHERE ID <> (Select Min(ID) From TEST As T2
WHERE T2.受付日 = T1.受付日
And T2.シリアルNO = T1.シリアルNO);
しかしIDのように一意のフィールドがないテーブルで重複を消し一意にする方法はありますか。
Distinctを応用するとできるのですが、削除クエリで一発する方法はありませんか。
お願いします。
下のようなSQLで重複したレコードを削除することができることがわかりました。
テーブル名：TEST
DELETE * FROM TEST AS T1
WHERE ID <> (Select Min(ID) From TEST As T2
WHERE T2.受付日 = T1.受付日
And T2.シリアルNO = T1.シリアルNO);
しかしIDのように一意のフィールドがないテーブルで重複を消し一意にする方法はありますか。
Distinctを応用するとできるのですが、削除クエリで一発する方法はありませんか。
お願いします。
とあるQ&Aサイトで以下のSQLを見つけました。機能は「複数条件の重複データを削除する方法」です。自分なりにステートメントを解釈してみましたのでおかしいところがあれば指摘いただけないでしょうか。
＜SQL＞
テーブル名：TEST
DELETE * FROM TEST AS T1
WHERE ID <> (Select Min(ID) From TEST As T2
WHERE T2.受付日 = T1.受付日
And T2.シリアルNO = T1.シリアルNO);
＜私の解釈＞
テーブル「TEST」をT1、T2と名づけ、T1とT2の受付日とシリアルNoが同じものの中で、T2中のIDが最小のものと一致しない（つまり最大のもの）IDを削除する。
エクセルのマクロでCSVファイルを読み込み、その行の得意先サブコードをキー項目として別のCSVファイルを検索し電話番号とFAX番号を取得するという作業を下記のようなコードで作成しました。
Dim Obj As Object
Dim Path As String
Dim FName As String
Dim i As Long
Dim buf As String
Dim tmp As Variant
Dim WSH As Variant
Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
'自分のPCのデスクトップをPathとして設定します。
Set WSH = CreateObject("Wscript.Shell")
Path = WSH.SpecialFolders("Desktop") & "\"
'得意先マスタ.csvをOPENする際の準備処理
'3行目のPropertiesがCSVファイルの定義(excelをOPENする時とは異なります)
Set CN = New ADODB.Connection
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.Properties("Extended Properties") = "Text;HDR=YES;FMT=Delimited"
CN.Open Path
'得意先サブマスタ.CSVを開きます。
Open Path & "得意先サブマスタ.csv" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, buf
tmp = Split(buf, ",")
If i = 1 Then
Else
Cells(j, 1).Value = Left(tmp(3), 4) '会社コード
Cells(j, 2).Value = Right(tmp(3), 4) '店舗コード
Cells(j, 3).Value = tmp(3) '会社＠店舗
Cells(j, 4).Value = tmp(4) '得意先コード
Cells(j, 5).Value = tmp(5) '店舗名
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM 得意先マスタ.csv WHERE 得意先コード = " & tmp(4) & " ", CN
If RS.EOF Then
Cells(j, 6).Value = "???"
Cells(j, 7).Value = "???"
Else
Cells(j, 6) = RS.Fields("電話番号")
Cells(j, 7) = RS.Fields("FAX番号")
End If
End If
i = i + 1
Loop
このコードで動作確認すると途中で動作が止まってしまい応答なし状態になってしまいます。どこで止まるかは一定ではありません。CSVファイルの内容も確認したのですが、特におかしいような箇所はありませんでした。
OSはWINDOWS７、EXCELは2016です。
コード自体に修正した方がいいような箇所があればアドバイスいただきたいと思っております。宜しくお願い致します。
