Nao consigo gravar campo qdo esta em branco

[HighBass 0]

Como eu faço para poder gravar ou atualizar um campo no BD mesmo qdo ele esta em branco???

 

Tentei esse codigo abaixo, porem nao é sempre que o campo observacao tem dados no registro.

 

E agora???

 

Segue o codigo...

 

dim strSQL as string	strSQL = "UPDATE clientes set " _	& " cod_logradouro = " & codigo_logradouro _	& " , cod_vendedor = " & txtCodVendedor.Text _	& " , cod_forma_pagto = " & txtCodFormaPagto.Text _	& " , observacoes = '" & txtObservaçoes.Text _	& "' , cod_convenio = " & txtCodConvenio.Text _	& " WHERE cod_cliente = " & codigo_cliente	call Abre_Conexao 'conecta com o BD	cnn.Execute strSQL

.

[HighBass 0]

http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif resolvido

 

Abri o mdb e alterei a propriedade "Permitir comprimento zero" do campo e funcionou http://forum.imasters.com.br/public/style_emoticons/default/cry.gif :D http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

[Phalkão 0]

Caro HighBass!

 

Além de habilitar na sa tabela o comprimento zero nos campos, adicione

"" & antes de cada campo, mudei o código pra você, está abaixo...

 

Abraços.

 

Dim strSQL As String

 

strSQL = "UPDATE clientes set " _

& " cod_logradouro = " & "" & codigo_logradouro _

& " , cod_vendedor = " & "" & txtCodVendedor.Text _

& " , cod_forma_pagto = " & "" & txtCodFormaPagto.Text _

& " , observacoes = '" & "" & txtObservaçoes.Text _

& "' , cod_convenio = " & "" & txtCodConvenio.Text _

& " WHERE cod_cliente = " & codigo_cliente

 

Call Abre_Conexao 'conecta com o BD

cnn.Execute strSQL

[Luizgrs 0]

Phalkao, qual o motivo desses "vazios" ("") na SQL. Isso não altera em nada.