| |
▼レモン さん：
>▼かめ さん：
>>▼Gin_II さん：
>>>>ＶＢＡのＤＡＯで集合ＳＱＬの値を取得する書き方を教えてください。
>>>
>>>集合SQLの値とは？
>>>OpenRecordset ではないということでしょうか？
>>
>>ＶＢＡで"select count(*) from t"の値を変数に格納したいのですが。
>>書き方がよくわかりません。
>>OpenRecordsetだと思うのですが。
>>
>>超初心者なのでよろしくお願いします。
>
>
>Dim db As DAO.Database
>Dim rs As DAO.Recordset
>Set db = CurrentDb()
>
>strSQL1 = ""
>strSQL1 = "" & "SELECT COUNT(*) as Kbn_Count FROM (SELECT FIELD2,FIELD3 FROM TBL_科目別 GROUP BY Field2,Field3) AS A"
>strSQL1 = strSQL1 & " LEFT JOIN (SELECT CaseCode,CaseCode2 FROM TBL_区分マスタ) AS B"
>strSQL1 = strSQL1 & " ON b.CaseCode=A.Field2 and B.CaseCode2=A.Field3"
>strSQL1 = strSQL1 & " WHERE B.CaseCode IS NULL or B.CaseCode2 IS NULL"
>
> Set rs = db.OpenRecordset(strSQL1, dbOpenDynaset)
>
> If rs!Kbn_Count <> 0 Then
> rs.Close: Set rs = Nothing
> db.Close: Set db = Nothing
>
> Exit Function
> End If
>
>はしょっただけですのですが・・・
>ですがカウントだけならDcount関数というのも在るのでそちらでもいいかと
レモンさんありがとうございます。
もう少し簡単な例でご説明願いないでしょうか
たとえば、テーブルｔのレコード数をメッセージ表示するような場合で
ＶＢＡの中でcountの集合ＳＱＬを直接書く場合・・・
ＤＡＯを利用してＶＢＡでＳＱＬを書きそこで取得したテーブルｔのレコード数を変数ｈに格納しmsgbox(h)として表示させたいのですが。
よろしくお願いします。
|
|
かめ
- 06/7/15(土) 1:33 -
