dotNETportal.cz

Dobrý den,

pokouším se uložit změnu záznamu (hodnotu pole Stav změnit z 0 na 2) v tabulce, kterou mám nalinkovanou z SQL Serveru. Kód mi bezchybně proběhne, ale na SQL Serveru se v tabulce žádný záznam nezmění. Mohl byste se někdo prosím kouknout, co dělám špatně? Nebo dělám všechno špatně a takto to nelze vůbec použít?

Díky za pomoc Marek H.

            Dim conn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("AgiloSenderWin.My.MySettings.sqlconnstring").ConnectionString)
            conn.Open()
            Dim cmd As New SqlCommand()
            Dim adapter As New SqlDataAdapter
            Dim DSSQL As New DataSet

            cmd.Connection = conn
            cmd.CommandText = String.Format("SELECT Stav, Text FROM tblZpravy WHERE Stav = 0")
            adapter.SelectCommand = cmd
            adapter.Fill(DSSQL, "tblA")
            For Each zaznam As DataRow In DSSQL.Tables("tblA").Rows
                MsgBox(zaznam("Text"))
                'označit zprávu v DB jako přečtenou
                zaznam.BeginEdit()
                zaznam("Stav") = 2
                zaznam.EndEdit()
            Next
            DSSQL.AcceptChanges()
            adapter.Update(DSSQL, "tblA")
            adapter.Dispose()

A proběhne na úrovni SQL vůbec update dotaz? V kódu jej nikde nevidím...

Do tblA se mi nasype sada záznamů, ve smyčce "For Each" ji v pohodě procházím, data se zobrazují. U každého záznamu, který jsem prošel nastavím pole Stav na hodnotu 2, ale finální Update adaptéru nic neprovede. Na SQL zůstanou data nezměněná, přímo na SQL v pohodě měnit jdou. Nevím, jestli mám správně závěr kódu, kde se volá Update, AcceptChanges.....