削除

解決

---

OS:win2k VB6.0 sp5
なおと申します。
早速ですが、ADOにてアクションクエリーとしてDELETE処理した
件数を取得したいのですがどのようにすればよいでしょうか？

Private cnn As New ADODB.Connection


lstrPath = hozonsaki & "\maildm1.mdb"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & lstrPath & ";"
mysql = "DELETE 送受信情報T.抜出アドレス FROM 送受信情報T " _
    & "WHERE (((送受信情報T.抜出アドレス) In (select 抜出アドレス from 送受信情報不要抜出T;)));"
cnn.Execute mysql

msgbox "削除件数=" & ?

ご教授の程よろしくお願いします。

編集 削除

---

名前付き引数RecordsAffectedにて調べられます。
ADOのヘルプで、「Executeメソッド」について調べてみてください。

編集 削除

---

Selectでもとめて、数をかぞえながらDeleteしていくとか？

編集 削除

---

魔界の仮面弁士様ありがとうございました。
RecordsAffectedの利用で解決しました。

Private cnn As New ADODB.Connection
Dim cnt As Integer

lstrPath = hozonsaki & "\maildm1.mdb"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & lstrPath & ";"
mysql = "DELETE 送受信情報T.抜出アドレス FROM 送受信情報T " _
    & "WHERE (((送受信情報T.抜出アドレス) In (select 抜出アドレス from 送受信情報不要抜出T;)));"
cnn.Execute mysql,cnt
msgbox "削除件数=" & cnt

OK!でした。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。