0

リーダーのループからデータベースを照会するのに問題があります:

    Using cn As NpgsqlConnection = getConnection()
        Using t As NpgsqlTransaction = cn.BeginTransaction()
           Using cmd As New NpgsqlCommand("SELECT tab_id, i1, d1, rez1, b FROM " & myfirstTable & " WHERE bdoc='" & bdoc.ToString & "' ORDER BY b", cn)
                Using reader1 As NpgsqlDataReader = cmd.ExecuteReader()

    --------------> ''GOES HERE
    |               While (reader1.Read())
    |                   Dim sifra As Integer = CInt(reader1("sifra"))
    | 
    |                       Using icmd As New NpgsqlCommand("SELECT dtbl_id FROM " & mysecondTable & " WHERE dtbl_id>" & firstfree.ToString & " AND kni::int=0 ORDER BY dtbl_id LIMIT 1", cn)
    |               
    --------------------------- ''FROM HERE
                                firstfree = CInt(icmd.ExecuteScalar())
                            End Using ''cmd

                    End While
                End Using ''reader
            End Using ''cmd
            t.Commit()
        End Using
    End Using

reader's.read ループ中に、新しいクエリからデータベースへの整数を最初に解放する必要があります。
私のコマンドはpgAdminでテストすることでうまく機能します。
しかし、示されたプログラムではそうではありません。
firstfree = CInt(icmd.ExecuteScalar()) が実行されるとき ''FROM HERE プログラムは新しいループ ステップにジャンプします ''GOES HERE

ここで明らかに間違っていることと、それを機能させる方法はありますか?

これが getConnection 関数です。

Public Function getConnection() As NpgsqlConnection

    Dim chkCon As New NpgsqlConnection(String.Format( _
                      "Server={0};Port={1};User Id={2};Password={3};Database={4};Preload Reader = true;", _
                      dbServer, dbPort, dbUser, dbPass, mydatabase))
    Try
        chkCon.Open()
    Catch ex As Exception
        Return Nothing
    End Try

    Return chkCon
End Function
4

1 に答える 1