![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
DataTableの件数を取得したいのですがどのようにすれば取得できますか?
Private Function getDataListCnt() As Long
Dim DBConnection As New SqlConnection(ConfigurationManager.ConnectionStrings("xxx").ConnectionString)
Dim sqlCmd As New SqlCommand
sqlCmd.Connection = DBConnection
Dim lngRet AS Long
Dim dt As DataTable = New DataTable()
dt = GetList()
☆ここで取得したい☆
lngRet=???
Return lngRet
End Function
Private Function GetList()
Dim CmdTxt As StringBuilder = New StringBuilder()
CmdTxt.AppendLine(" SELECT * FROM TBL WHERE CD='001'")
Dim dt = GetDBListData(CmdTxt.ToString())
Return dt
End Function
No.3ベストアンサー
- 回答日時:
lngRet = dt.Rows.Count
でOKかと。
ただ、色々と気になる点がありますね。
まず、
Dim dt As DataTable = New DataTable()
とありますが、Newする意味がないかと思われます。
(dtに対するインスタンスはGetList()によって設定されるから)
あと、GetList()が何の型で返すのかわかんないので、
1.GetDbListDataはDataTable型を返すこと。
2.GetDbListDataはデータ0件のときでもDataTableのインスタンスを返すこと。
(=Nothingを返さないこと)
1.と2.を総合して、GetList()は絶対にDataTableのインスタンスを返すことが
確実であれば、先述の対応でいけるはずです。
No.2
- 回答日時:
全容が見えないので、サンプルです。
参考になれば。'レコードセットオープン
Rst.Open "SELECT * FROM " & %Database% , Con
'件数変数の初期化
lngRet = 0
'レコードセットを空回ししながら件数をカウントアップ
Do While Not Rst.EOF
lngRet = lngRet +1
Rst.MoveNext()
Loop
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- 数学 単振り子とルンゲ・タック法 1 2022/07/15 00:05
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
「指定されたキャストは有効ではありません。」とエラーが出てしまいます。
Microsoft ASP
-
DataGridViewでセルクリックイベントを発生させるには
Visual Basic(VBA)
-
-
4
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
5
VB.NET2003 テキストボックスに半角英数字以外入力させない
Visual Basic(VBA)
-
6
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VB.NET】別Formのボタンが押...
-
DataTableの件数を取得したい
-
CreateDialogについて
-
【FLASH】インスタンス名の一覧...
-
VB6.0のHideのバグ?
-
flashAS3.0でのランダムモーシ...
-
外部テキストから画像やリンク...
-
プログラミング、アーキテクチ...
-
全てのテキストボックスをセル...
-
photoshopで書いた四角の枠の中...
-
テキストボックスの中身をリセ...
-
空白で入力フォームのボタンを...
-
縦横比率のを変えずに画像のサ...
-
別のアプリケーションのテキス...
-
ACCESSフォームで、入力から一...
-
テキストボックスにセルの値を...
-
画面の範囲選択
-
POIでのテキストボックス作成に...
-
【ExcelVBA】ファイル名をセル...
-
アセンブリ言語のcasl2について...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プログラミング、アーキテクチ...
-
【VB.NET】別Formのボタンが押...
-
VB6.0で、フォームから、別のフ...
-
DataTableの件数を取得したい
-
VB6.0のHideのバグ?
-
CreateDialogについて
-
XMLでJPEGスライドを作成_表示...
-
変数の利用方法
-
ウインドウハンドルとインスタ...
-
インスタンスとポインタ
-
フォームの生成と破棄
-
【ActionScript】コンボボック...
-
Flash ステージに初期配置したM...
-
ムービープレビュー時にエラー...
-
背景画像が拡大縮小しつつ、大...
-
IBM Watson Text to Speechを始...
-
flashで音を消す設定について
-
Flashの画面をJPEG画像にしてメ...
-
Python でシャットダウンのコマ...
-
buttonの色を変えたい
おすすめ情報