0

私はこのようなVB.netコードビハインドを持っています:

   Protected Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button.Click
        Dim Adapter As New SqlDataAdapter
        Dim sql As String = "select House , OPR_BALANCE from vAgeLast where LEN(HOUSE) = 8 and OPR_BALANCE > 1000000 order by OPR_BALANCE desc"
        SqlConn.Open()
        sqlCmd = New SqlCommand(sql, SqlConn)
        Adapter.SelectCommand = sqlCmd
        Adapter.Fill(ds)
        For i = 0 To ds.Tables(0).Rows.Count - 1
            idCustomer = ds.Tables(0).Rows(i)("House").ToString()
            amt = ds.Tables(0).Rows(i)("OPR_BALANCE").ToString()
            lang = "0"
            aid = "000000"
            Dim result As String = "http://soap.Services.com:2121/WS.aspx/?c=1&id=" + idCustomer + "&lang=" + lang + ""
             Response.Redirect(result)

        Next
        Adapter.Dispose()
        sqlCmd.Dispose()
        SqlConn.Close()
    End Sub

このコードでは、url へのリダイレクトによってのみ取得できるデータセットの結果からすべての値を処理したいのですが、コードを実行すると、一度しか実行されません。

Web サイトにフィードバックを表示せずに URL にリダイレクトすることはできますか?

4

2 に答える 2

0

他のユーザーから入手しました。

ループ内でのリダイレクトは機能しません。別の方法でサービスを呼び出す必要があります。DownloadStringの方法を使ってみてくださいWebClient。これにより抽出result：

Dim client As New WebClient()
Dim result As String = client.DownloadString("http://soap.Services.com:2121/WS.aspx/?c=1&id=" + idCustomer + "&lang=" + lang )
于 2013-05-28T08:07:25.980 に答える
0

「Dim SqlConn As New SQLConnection」を追加してみてください

于 2013-05-28T06:19:12.813 に答える