UPDATE UTILIZANDO BANCO DE DADOS ACCESS 2010

LOPESKUTI 05/04/2012 15:40:29
#399235
Olá.. Esse é meu primeiro tópico. Acabei de começar a programar e fiz alguns cursos online de VB.NET.
Isso me ajudou muito e estou com algumas dúvidas, a maioria procuro em outros tópicos e acho, mas essa tá difícil

é o seguinte: Estou fazendo um programa pra credenciamento de cliente... Consegui fazer a parte pra incluir os dados no banco de dados, tá funcionando perfeitamente...
Porém gostaria de saber como fazer para atualizar algum dado que possa ter sido inserido incorretamente...
Esse é o código que eu tenho e eu já fiz inúmeras alterações nele...


Private Sub alterarUsuario()
Dim oc As New OleDbConnection()
Dim provedor As String
Dim banco As String
provedor = [Ô]Provider=Microsoft.ACE.OLEDB.12.0[Ô]
banco = [Ô]Data Source=C:\Users\USER\Documents\Projetos\Nova pasta\Banco\Credenciados.accdb;Persist Security Info=False[Ô]
oc.ConnectionString = provedor & [Ô];[Ô] & banco
oc.Open()

Dim Codigo As String = txtCod.Text
Dim Nome As String = txtNome.Text
Dim Empresa As String = txtEmpresa.Text
Dim Cargo As String = txtCargo.Text
Dim RG As String = txtRG.Text
Dim CPF As String = txtCPF.Text


Dim query As String = [Ô][Ô]
query &= [Ô] Update DB [Ô]
query &= [Ô] Set Nome = [ô][Ô] & Nome & [Ô][ô],[Ô]
query &= [Ô] Set Empresa = [ô][Ô] & Empresa & [Ô][ô],[Ô]
query &= [Ô] Set Cargo = [ô][Ô] & Cargo & [Ô][ô],[Ô]
query &= [Ô] Set RG = [ô][Ô] & RG & [Ô][ô],[Ô]
query &= [Ô] Set CPF = [ô][Ô] & CPF & [Ô][ô],[Ô]
query &= [Ô] Where Codigo = [Ô] & Codigo & [Ô][ô],[Ô]


Dim cd As New OleDbCommand(query, oc)
cd.CommandType = CommandType.Text

Try
If isCPF(CPF) = True Then
cd.ExecuteNonQuery()
MsgBox([Ô]O usuario foi alterado[Ô])
Else
MsgBox([Ô]CPF é inválido![Ô], vbCritical)
End If

Catch ex As Exception
MsgBox([Ô]O usuário não foi alterado, verifique os campos[Ô])
oc.Close()
End Try
End Sub



Se alguém puder me ajudar agradeço muito.
TECLA 05/04/2012 16:43:38
#399239
O problema eh referente a palavra chave Set que foi repetida varias vezes, sendo que o correto eh ela aparecer somente uma vez.
Exemplo:
Update TAB Set Campo1=1, Campo2=2 Where Campo3=3
ROBIU 05/04/2012 16:48:59
#399241 Resposta escolhida 
 Dim query As String = [Ô][Ô]
        query &= [Ô] Update DB [Ô]
        query &= [Ô] Set Nome = [ô][Ô] & Nome & [Ô][ô],[Ô]
        query &= [Ô] Empresa = [ô][Ô] & Empresa & [Ô][ô],[Ô]
        query &= [Ô] Cargo = [ô][Ô] & Cargo & [Ô][ô],[Ô]
        query &= [Ô] RG = [ô][Ô] & RG & [Ô][ô],[Ô]
        query &= [Ô] CPF = [ô][Ô] & CPF & [Ô][ô][Ô]
        query &= [Ô] Where Codigo = [ô][Ô] & Codigo & [Ô][ô];[Ô]


OBS: Se o Campo código for numérico, troque a ultima linha por esta:
query &= [Ô] Where Codigo = [Ô] & Codigo & [Ô];[Ô]
LOPESKUTI 06/04/2012 10:14:18
#399262
Obrigado TECLA e ROBIU.
Consegui fazer ele atualizar.

Valeu
Tópico encerrado , respostas não são mais permitidas
Voltar