Alterar - Access

[ThiagoFabri 0]

Boa tarde Srs.

 

Começo a engatinhar com o V.B. e me deparo com um problema ao tentar ALTERAR uma informação ja gravada no bando de dados. É retornado um "ERRO DE SINTAXE (OPERADOR FALTANDO) NA EXPRESSÃO DA CONSULTA"

 

Dentro do meu Módulo inseri o conteúdo abaixo:

 

'Rotina de Alteração:Public Function Alterar(ByVal intCodigo As Integer, _	strnome As String, _	strend As String, _	strbairro As String, _	strcidade As String, _	struf As String, _	strfone As String, _	strfone1 As String, _	strfax As String, _	strfax1 As String, _	strobs As String, _	stremail As String, _	strcnpj As String, _	strie As String, _	strim As String, _	strcontato As String) As Variant		cn.Execute "update cliente set nome= '" & strnome & "'" _	& "end= '" & strend & "'" _	& "bairro= '" & strbairro & "'" _	& "cidade= '" & strcidade & "'" _	& "uf= '" & struf & "'" _	& "fone= '" & strfone & "'" _	& "fone1= '" & strfone1 & "'" _	& "fax= '" & strfax & "'" _	& "fax1= '" & strfax1 & "'" _	& "obs= '" & strobs & "'" _	& "email= '" & stremail & "'" _	& "cnpj= '" & strcnpj & "'" _	& "ie= '" & strie & "'" _	& "im= '" & strim & "'" _	& "contato= '" & strcontato & "'" _	& "where codigo= '" & intCodigo		Alterar = TrueEnd Function

 

 

E na sub do botao alterar, dentro do form:

 

Private Sub cmdAlterar_Click()Dim atual As Variant	atual = Alterar(codigo.Caption, txtnome.Text, txtend.Text, txtbairro.Text, txtcidade.Text, txtuf.Text, txtfone.Text, txtfone1.Text, txtfax.Text, txtfax1.Text, txtobs.Text, txtemail.Text, txtcnpj.Text, txtie.Text, txtim.Text, txtcontato.Text)	If atual = True Then	Else		MsgBox "Erro na atualização.", vbCritical		Call limpar	End IfEnd Sub

Desde já, agradeço qualquer dica.

Atenciosamente,

Thiago

[Graymalkin 0]

Sim, onde estão as vírgulas separando os campos?

 

cn.Execute "update cliente set nome= '" & strnome & "', " _	& "end= '" & strend & "', " _	& "bairro= '" & strbairro & "', " _	& "cidade= '" & strcidade & "', " _...

É sempre interessante "ver" a instrução SQL através de uma MsgBox ou do Debug.Print a fim de verificar se ela está correta.

 

Abraços,

 

Graymalkin

[ThiagoFabri 0]

Graymalkin Bom dia!!!Cara, passei o final de semana todo estudando e tentando efetuar o processo indicado, mas o problema permanece... alguma outra dica???Agradeço...Thiago