ALTERAR VALOR DO CAMPO DE TABELA
Pessoal, venho mais uma vez recorrer à ajuda de vocês.
Meu problema é o seguinte: Tenho um Banco de dados [Ô]TABELA01.MDB[Ô], neste tenho uma tabela [Ô]DADOS[Ô], tenho um campo [Ô]N2[Ô] o campo preenchido com algumas linhas com valor [Ô]0[Ô], quero alterar estas linhas para valor [Ô]11[Ô], não está funcionando o que estou fazendo, segui os códigos que estou usando:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim con1 = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\TABELA01.MDB[Ô])
Dim AlterarSQL As String = Nothing
con1.Open()
AlterarSQL = ([Ô]UPDATE DADOS SET N2 = [ô]0[ô] WHERE N2 = [ô]11[ô][Ô])
MessageBox.Show([Ô]Registros Alterados com sucesso![Ô])
End Sub
Não informa erros, mas também não altera os registros.
Obrigado a todos!
Meu problema é o seguinte: Tenho um Banco de dados [Ô]TABELA01.MDB[Ô], neste tenho uma tabela [Ô]DADOS[Ô], tenho um campo [Ô]N2[Ô] o campo preenchido com algumas linhas com valor [Ô]0[Ô], quero alterar estas linhas para valor [Ô]11[Ô], não está funcionando o que estou fazendo, segui os códigos que estou usando:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim con1 = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\TABELA01.MDB[Ô])
Dim AlterarSQL As String = Nothing
con1.Open()
AlterarSQL = ([Ô]UPDATE DADOS SET N2 = [ô]0[ô] WHERE N2 = [ô]11[ô][Ô])
MessageBox.Show([Ô]Registros Alterados com sucesso![Ô])
End Sub
Não informa erros, mas também não altera os registros.
Obrigado a todos!
não tinha que ser ao contrario?
em vez de:
([Ô]UPDATE DADOS SET N2 = [ô]0[ô] WHERE N2 = [ô]11[ô][Ô])
assim>
([Ô]UPDATE DADOS SET N2 = [ô]11[ô] WHERE N2 = [ô]0[ô][Ô])
em vez de:
([Ô]UPDATE DADOS SET N2 = [ô]0[ô] WHERE N2 = [ô]11[ô][Ô])
assim>
([Ô]UPDATE DADOS SET N2 = [ô]11[ô] WHERE N2 = [ô]0[ô][Ô])
AlterarSQL = ([Ô]UPDATE DADOS SET N2 = [ô]11[ô] WHERE N2 = [ô]0[ô][Ô])
Quase junto com você NICOLLAS2.
Menos de um minuto.
MARIOBOARI, vá pelo NICOLLAS2.
Menos de um minuto.
MARIOBOARI, vá pelo NICOLLAS2.
Prezados, NICOLLAS e VELDRAME, tentei fazer a alteração mas ainda não funcionou. Nem imagino o que seja, pois não apresenta nenhum erro, mas também não altera os registros.
Obrigado pela ajuda!
Obrigado pela ajuda!
Vamos lá
Caro MARIOBOARI, percebi que esta utilizando o vb.net! Então pra começar ao abrir o tópico direcione sua duvida ao tipo linguagem correta !!
Não quero que me leve a mal, pois esses dias mesmo o tópico era VB.NET e eu respondi em VB6 as vezes as almas caridosa aqui do forum esta com pressa e acaba
não prestando atenção que é raro mais deixar as coisas redondinha não custa!!
Agora vamos ao seu caso!!
No seu código esta faltando fazer a execução do pdate no banco, pois você somente esta atribuindo o SQL a uma variavel e não esta fazendo mais nada com isso
tente dessa forma:
Caro MARIOBOARI, percebi que esta utilizando o vb.net! Então pra começar ao abrir o tópico direcione sua duvida ao tipo linguagem correta !!
Não quero que me leve a mal, pois esses dias mesmo o tópico era VB.NET e eu respondi em VB6 as vezes as almas caridosa aqui do forum esta com pressa e acaba
não prestando atenção que é raro mais deixar as coisas redondinha não custa!!
Agora vamos ao seu caso!!
No seu código esta faltando fazer a execução do pdate no banco, pois você somente esta atribuindo o SQL a uma variavel e não esta fazendo mais nada com isso
tente dessa forma:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim con1 As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\TABELA01.MDB[Ô])
Dim AlterarSQL As String = [Ô]UPDATE DADOS SET N2 = [ô]11[ô] WHERE N2 = [ô]0[ô][Ô]
con1.Open()
Dim cmd As New OleDbCommand(AlterarSQL, con1)
Dim i As Integer = cmd.ExecuteNonQuery()
MessageBox.Show([Ô]Registros Alterados com sucesso![Ô])
Catch ex As Exception
MessageBox.Show([Ô]Erro ao Alterados o registro![Ô])
End Try
End Sub
Prezado FILMAN, o código deu certinho. Obrigado!
Tópico encerrado , respostas não são mais permitidas