UPDATE VB 2008
Boa tarde pessoal
Estou com o seguinte problema no update do meu software
ele esta funcionando corretamente mas tenho que reinicializar o software para ver as alterações que foram feitas
Gostaria de saber se tem como ver essas alterações sem precisar reiniciar o software
abaixo meu codigo usado
strConexao = My.Settings.BDCnx.ToString
Dim cn As SqlCeConnection = New SqlCeConnection(strConexao)
cn.Open()
Dim Campos As String
Campos = [Ô]Modelo=@Modelo, Cor=@Cor, Ano=@Ano, Cliente=@Cliente,[Ô]
Campos += [Ô]Telefone=@Telefone, Telefone1=@Telefone1[Ô]
Try
Dim cSQL As String = ([Ô]UPDATE tblcadastro SET [Ô] & Campos & [Ô] WHERE Placa = [ô][Ô] & c11.Text & [Ô][ô][Ô])
Dim Cmd As New SqlCeCommand(cSQL, cn)
Cmd.Parameters.AddWithValue([Ô]@Modelo[Ô], c2.Text)
Cmd.Parameters.AddWithValue([Ô]@Cor[Ô], c3.Text)
Cmd.Parameters.AddWithValue([Ô]@Ano[Ô], c4.Text)
Cmd.Parameters.AddWithValue([Ô]@Cliente[Ô], c5.Text)
Cmd.Parameters.AddWithValue([Ô]@Telefone[Ô], c6.Text)
Cmd.Parameters.AddWithValue([Ô]@Telefone1[Ô], c7.Text)
Cmd.ExecuteNonQuery()
Update()
Refresh()
MsgBox([Ô]Dados alterados com sucesso[Ô])
cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Estou com o seguinte problema no update do meu software
ele esta funcionando corretamente mas tenho que reinicializar o software para ver as alterações que foram feitas
Gostaria de saber se tem como ver essas alterações sem precisar reiniciar o software
abaixo meu codigo usado
strConexao = My.Settings.BDCnx.ToString
Dim cn As SqlCeConnection = New SqlCeConnection(strConexao)
cn.Open()
Dim Campos As String
Campos = [Ô]Modelo=@Modelo, Cor=@Cor, Ano=@Ano, Cliente=@Cliente,[Ô]
Campos += [Ô]Telefone=@Telefone, Telefone1=@Telefone1[Ô]
Try
Dim cSQL As String = ([Ô]UPDATE tblcadastro SET [Ô] & Campos & [Ô] WHERE Placa = [ô][Ô] & c11.Text & [Ô][ô][Ô])
Dim Cmd As New SqlCeCommand(cSQL, cn)
Cmd.Parameters.AddWithValue([Ô]@Modelo[Ô], c2.Text)
Cmd.Parameters.AddWithValue([Ô]@Cor[Ô], c3.Text)
Cmd.Parameters.AddWithValue([Ô]@Ano[Ô], c4.Text)
Cmd.Parameters.AddWithValue([Ô]@Cliente[Ô], c5.Text)
Cmd.Parameters.AddWithValue([Ô]@Telefone[Ô], c6.Text)
Cmd.Parameters.AddWithValue([Ô]@Telefone1[Ô], c7.Text)
Cmd.ExecuteNonQuery()
Update()
Refresh()
MsgBox([Ô]Dados alterados com sucesso[Ô])
cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Citação:...ele esta funcionando corretamente mas tenho que reinicializar o software para ver as alterações que foram feitas...
Depois do UPDATE, faça um SELECT para obter os dados atualizados da base.
Tópico encerrado , respostas não são mais permitidas