削除
解決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!でした。
| ツイート |  |