Consegui. O código ficou assim.
Try
Dim cmd As SqlCommand = ConectionBD.CreateCommand
Using com As New SqlCommand("UPDATE Cadastro_Modelo_Documento SET" _
& " descricao = @descricao" _
& " WHERE iddocumento = '" & Cadastro_Modelo_Documento.DataGrid_Dados.CurrentRow.Cells(0).Value & "'", ConectionBD)
com.Parameters.AddWithValue("@descricao", Cadastro_Modelo_Documento_Editor.txtdescricao.Rtf)
'ABRE A CONEXÃO COM O BANCO DE DADOS
ConectionBD.Open()
'VALIDA OS CAMPOS E EXECUTA O COMANDO
com.ExecuteNonQuery()
'FECHA A CONEXÃO COM O BANCO
ConectionBD.Close()
End Using
Catch ex As Exception
'EM CASO DE ERRO, RETORNA A MENSAGEM
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "1 - UPDATE_Modelo_Documento_Alterar")
'FECHA A CONEXÃO COM O BANCO
ConectionBD.Close()
End Try
Obrigado a todos.
↧