C# と VB.NET の質問掲示板

■No43349 (がながな さん) に返信
> テーブル内の金額フィールドを全て更新したいのですが、アクションクエリを使用する以外に方法ってありますか？

アクションクエリってなんですか？


> ADOですと、
> *********************************************************************************
> do until rs商品マスタ.eof
>     rs商品マスタ!金額=0
>     rs商品マスタ.update
>     rs商品マスタ.movenext
> loop
> *********************************************************************************
> 
> と言う構文をADO.NETで実現したいのですが、

DataReaderをつかって

Do While dr.Read
'ここでUPDATE文を作ってExecuteNonQuery
Loop

SQL文一発で、金額フィールドをゼロ化したい・・・と言うだけですよネ？

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim bRet As Boolean

        Using SqlDB As SqlConnection = New SqlConnection(GetDBConnectString())
            Try
                SqlDB.Open()
                bRet = True
            Catch ex As Exception
                bRet = False
            End Try

            If bRet Then
                Dim sb As StringBuilder
                Dim iRet As Integer

                sb = New StringBuilder

                With sb
                    .Length = 0
                    .Append("update ")
                    .Append("T0000_商品マスタ ")
                    .Append("set ")
                    .Append("金額=0")
                End With

                Using SqlCMD As SqlCommand = SqlDB.CreateCommand
                    With SqlCMD
                        .CommandType = CommandType.Text
                        .CommandTimeout = SqlDB.ConnectionTimeout
                        .CommandText = sb.ToString
                    End With

                    iRet = SqlCMD.ExecuteNonQuery

                End Using

                SqlDB.Close()
            End If
        End Using

    End Sub

    Private Function GetDBConnectString() As String

        Dim sb As SqlConnectionStringBuilder

        sb = New SqlConnectionStringBuilder

        With sb
            .DataSource = "LocalHost"
            .InitialCatalog = "TEST"
            .IntegratedSecurity = False
            .UserID = "hoge"
            .Password = "hogehoge"
            .ConnectTimeout = 10
        End With

        Return sb.ToString

    End Function

※　動作未確認ですが、こういうことじゃ〜ないのかな・・・

以上。参考まで