削除 (ID:79845)

名前

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

本文 魔界の仮面弁士様ありがとうございました。 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!でした。