0

ここにスタックがありますが、データベースに接続するループがありますが、最後の 2 日間は行番号のカウントに問題があります。そして、解決策を見つけることができません

    Dim row as Integer
    For i = 100 To 120
        Dim DBconn As MySql.Data.MySqlClient.MySqlConnection = New MySql.Data.MySqlClient.MySqlConnection(My.Settings.DBConnStr)
        Dim da As MySql.Data.MySqlClient.MySqlDataAdapter
        Dim dt As New DataTable
        Dim sqlcmd As New MySql.Data.MySqlClient.MySqlCommand
        sql = "SELECT Sum(D), Sum(P) FROM fin  WHERE K like '" & i.ToString & "%' "
        DBconn.Open()
        da = New MySql.Data.MySqlClient.MySqlDataAdapter(sql, DBconn)
        da.Fill(dt)
        DBconn.Close()
        row = dt.Rows.Count
        MsgBox("i=" & i & "    rows=" & row)
        dt.Clear()
    Next

MSG Box は常に、RowCount が 1 であることを教えてくれます。手動で MYSQL にクエリを実行すると、異なる行が返されます。

4

1 に答える 1

0

dataadapter でデータテーブルを埋めることができた方法は確かです。データセットを埋める必要があります。そのはず

   DIM ds as New Dataset()
   da = New MySql.Data.MySqlClient.MySqlDataAdapter(sql, DBconn) 
   da.Fill(ds)
   DIM rowCount = ds.Table(0).Rows.Count

これを試して

   DIM rowCount = ds.Tables(0).Select().Count
于 2013-10-19T23:31:21.533 に答える