PROBLEMA PARA ALTERAR DADOS DA TABELA

RICARDOCIRO 31/07/2009 11:09:05
#318440

Não sei o que acontece, criei uma sistema para cadastro de contratos, ate ai tudo bem.

Ele faz inclusão e exclusão normalmente, mas nao consigo alterar os dados da tabela

Estou usando vb.net 2005 pro e banco de dados sql

alguem pode me dar um help

Segue o codigo abaixo

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim sql As String = [Ô][Ô]
Dim strconn As String = My.Settings.SigiurbConnectionString.ToString()

sql = [Ô]update Contratos set Contrato=[ô][Ô] + txtcontrato.Text _
+ [Ô][ô],contratante = [ô][Ô] + txtcontratante.Text _
+ [Ô][ô],Contratada =[ô][Ô] + txtcontratada.Text _
+ [Ô][ô],Unidade =[ô][Ô] + txtunidade.Text _
+ [Ô][ô],N_Processo =[ô][Ô] + txtprocesso.Text _
+ [Ô][ô],N_Empenho =[ô][Ô] + txtempenho.Text _
+ [Ô][ô],Objeto =[ô][Ô] + txtobjeto.Text _
+ [Ô][ô],status =[ô][Ô] + cbxstatus.Text _
+ [Ô][ô],Data_assinatura =[ô][Ô] + data.Text _
+ [Ô][ô],inicio =[ô][Ô] + datainicio.Text _
+ [Ô][ô],termino =[ô][Ô] + datatermino.Text _
+ [Ô][ô],valor_inicial =[ô][Ô] + Inicial.Text _
+ [Ô][ô],Auto_servico =[ô][Ô] + autorizacaodata.Text _
+ [Ô][ô],coordenador=[ô][Ô] + txtcoordenador.Text _
+ [Ô][ô],fiscal1 =[ô][Ô] + txtcoordenador.Text _
+ [Ô][ô],fiscal2 =[ô][Ô] + txtfiscal2.Text _
+ [Ô][ô],gerente = [ô][Ô] + txtgerente.Text _
+ [Ô][ô],responsavel = [ô][Ô] = txtresponsavel.Text _
+ [Ô][ô],crea=[ô][Ô] + txtcrea.Text + [Ô][ô][Ô] _
+ [Ô] where Cod_Contrato=[Ô] + ListBox1.SelectedValue.ToString

[ô]definindo objeto connection e command
Dim con As New SqlConnection(strconn)
Dim cmd As New SqlCommand(sql, con)
Try
con.Open()
cmd.ExecuteNonQuery()
MsgBox([Ô]Contrato alterado com sucesso.[Ô])
Catch ex As Exception
MsgBox(ex.Message)
End Try
Else
MsgBox([Ô]Dados incompletos[Ô])
End If
Else
MsgBox([Ô]Selecione um contrato para alterar.[Ô])
End If
End Sub

Quando executo o codigo, e clico no botao de alteração, ele ja me da a mensagem dados incompletos.

Abraço