|
|
Postada em 24/04/2008 15:33 hs
Tenho o segundo código em um form:
Private Sub Command2_Click()
If txt_nome.Text = "" Or txt_rua.Text = "" Or txt_num.Text = "" Or txt_cid.Text = "" Or txt_bai.Text = "" Or txt_nasc.Text = "" Then
MsgBox "Nenhum registro a ser alterado."
Else
Dim ComandoSQL2 As String
If MsgBox("Deseja alterar o registro atual?", _
48 + vbYesNo, "Alterar?") = vbYes Then
ComandoSQL2 = "update clientes set (Nome, Rua, Número, Complemento, Bairro, Cidade, Nascimento, A, B, C, D, SIM, NAO) values('" & txt_nome.Text & "' , '" & txt_rua & "' , '" & txt_num.Text & "' ,'" & txt_comp.Text & "', '" & txt_bai.Text & "' , '" & txt_cid.Text & "' , '" & txt_nasc.Text & "', '" & op_a.Value & "', '" & op_b.Value & "', '" & op_c.Value & "', '" & op_d.Value & "', '" & op_sim.Value & "', '" & op_nao.Value & "' )"
cnnBase.Execute ComandoSQL2
MsgBox "Registro Alterado"
txt_nome.SetFocus
Else
MsgBox "Operação Cancelada"
End If
End If
End Sub
Onde está o erro??
obs: os op_a, etc são option buttons
|
|
|
|
|
|
|
|
Postada em 24/04/2008 15:44 hs
Olá, Paola, qual é a descrição do erro que ocorre? Reporte-a pois assim fica mais fácil de sabermos como ajudar. E à propósito, registre-se no Forum. É simples, gratuito e esse é o melhor Forum de VB do Brasil. Eu garanto. Até mais. |
|
|
|
poulain
|
SANTO ANDRÉ
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/04/2008 13:18 hs
me cadastrei =)
enão, dá erro na sintaxe update, ai fica selecionado esta linha:
cnnBase.Execute ComandoSQL2
poulain
|
|
|
|
|
|
Postada em 25/04/2008 14:05 hs
Assim fica difícil sem vc colocar a decrição do erro. Todos os campos são do tipo texto? |
|
|
|
poulain
|
SANTO ANDRÉ
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/04/2008 15:22 hs
Vou explicar bem detalhado, então:Tenho um Banco de Dados ACCESS, que se chama cadastro, e nele contem a tabela clientes.No Visual Basic tenho o Form1, que tem as opções de inserir, procurar,alterar, etc.Só esta dando erro no alterar,E o Form1 tem os campos, nome, endereço, numero, etc, que são TEXTS.e tem tbm op_a, op_b, op_c, op_d, op_sim e op_nao que sao OPTIONS BUTTONS.e o codigo que esta no botao é o acima, e mostra erro na linha:cnnBase.Execute ComandoSQL2dizendo: Erro na sintaxe update.
|
|
|
|
Macaubal
|
MACAUBAL
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/04/2008 15:26 hs
Paola pela sintexa que voce postou, voce esta utilizando o esquema para inserir registro no banco, para atualizar o registro tente utilizar o update dessa maneira SQL = "update NomeTabela set Campo1 = '" & ValorCampo1 & "', Campo1 = '" & ValorCampo1 & "', CampoN = '" & ValorCampoN & "' where Cod_Registro = " & CodigoRegistro Tente depois nos avise se deu certo Att |
|
TÓPICO EDITADO
|
|
|
|
|
