DataTableの件数を取得したい

質問

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

gongon8 · ベストアンサー

lngRet = dt.Rows.Count

でOKかと。

ただ、色々と気になる点がありますね。

まず、
Dim dt As DataTable = New DataTable()
とありますが、Newする意味がないかと思われます。
（dtに対するインスタンスはGetList()によって設定されるから）

あと、GetList()が何の型で返すのかわかんないので、
１．GetDbListDataはDataTable型を返すこと。
２．GetDbListDataはデータ0件のときでもDataTableのインスタンスを返すこと。
　　（＝Nothingを返さないこと）

１．と２．を総合して、GetList()は絶対にDataTableのインスタンスを返すことが
確実であれば、先述の対応でいけるはずです。

お礼

お礼がおそくなりましたがありがとうございまし。
gongon8のご指摘どおりプログラムを修正いたしました。

回答No.2

Viartril-S

全容が見えないので、サンプルです。参考になれば。

'レコードセットオープン
Rst.Open "SELECT * FROM " & %Database% , Con

'件数変数の初期化
lngRet = 0

'レコードセットを空回ししながら件数をカウントアップ
Do While Not Rst.EOF
lngRet = lngRet +1
Rst.MoveNext()
Loop

お礼

お礼がおそくなりましたがありがとうございます。
Rows.Count()
で解決しました。

回答No.1

onos

GetDBListDataの中身がわからないのでちゃんとDataTableにデータが入っているのかどうかわかりませんが。。。
DataTableにデータが入っているとすれば、DataTable.Rows.Count()でとれるかな。

お礼

ありがとうございます。
お礼がおそくなりましたが解決しました。