select count(*)で得られたレコード総数を取得し変数に格納するには？？

解決

coffee 2003-05-03 01:17:42 No: 77850

いつもお世話になってます。
データベース内のレコード数を表示させたいのですが、
select count(*)で得られたレコード総数を変数に格納するにはどうしたらいいのでしょうか？
気分よくGWに入りたいので、よろしくお願いします。

とろ 2003-05-03 01:40:34 No: 77851

なにが分からないのかアレですが。

データベースは何ですか？（ Access, SQL Server, Text, Excel ???）
DAO や ADO, RDO のいずれかの使い方はご存知ですか？

seraph 2003-05-03 03:40:11 No: 77852

気分よくＧＷに突入していただきましょう
＃大サービスです

例1)Fields()メソッドを使う(ADODBでの例)
Dim rs As ADODB.Recordset 'レコードセットオブジェクト
Dim sSql$, nRecCnt&

  sSql$ = "SELECT COUNT(*) FROM table"     '*1
  rs.Open sSql$, connection
  nRecCnt& = rs.Fields(0)
             ^^^^^^^^^^^^
例2)SQLでフィールド名をつけておく
    例1の*1を以下のようにする

  sSql$ = "SELECT COUNT(*) AS REC_CNT FROM table"
                           ^^^^^^^^^^
  こうすれば
  nRecCnt& = rs!REC_CNT
  のように出来ます (多分(^^;)。

coffee 2003-05-06 23:42:47 No: 77853

＞とろさん
データベースはOracleです。

遅くなりましたが、
SQL = "select count(*) from table"
Set oraDs = oraDB.CreateDynaset(strSQL, 0)
変数 = oraDs.Fields("count(*)")
で解決できました。
とろさん、seraphさん、ありがとうございます。
GW、満喫できました♪