PROBLEMAS AO SALVAR NO BANCO DE DADOS

DBRANDAO 28/08/2007 12:19:39
#233064
Ola pessoal.

Estou tendo um problema ao salvar os dados de um txt usando o ADO.
Tenho três txt Cliente, End. Tel.

Às vezes quando estou salvando os dados no banco de dados, da um erro que o campo não pode ser nulo, mas às vezes ele tem que ficar sem dados.

Ex:
Private Sub GravarDados()
rs.AddNew
rs!CLIENTE = txtCliente.Text
rs!End = txtEnd.Text
rs!FONE = txtFone.Text
rs.update
End Sub


Como são muitos txt eu tentei usar ( on error resume next ), mas com isso não salva no banco de dados.

Peso uma ajuda com isso.

Obrigado
SILVERDRAGON 28/08/2007 12:33:17
#233066
Qual banco de dados tu ta usando???
Vai no Campo do seu banco de dados q supostamente nao aceite nulo e mudo o valor dele para nulo..


T+

Senao da um if antes..

if tal campo = null then
   insere nesse campo o valor 0
else
   rs.AddNew
   rs!CLIENTE = txtCliente.Text
   rs!End = txtEnd.Text
   rs!FONE = txtFone.Text
   rs.update
end if


T+
RODRIGOGBGOMES 28/08/2007 12:41:27
#233071 Resposta escolhida
verdade cara, se o campo da tabela nao aceita "Nulo" c tem q colocar alguma coisa mesmo.

Private Sub GravarDados()
rs.AddNew
rs!CLIENTE = "" &  txtCliente.Text
rs!End = "" & txtEnd.Text
rs!FONE = "" & txtFone.Text
rs.update
End Sub


nao testei e nunca usei assim, mas deve funcionar... tenta ai
USUARIO.EXCLUIDOS 28/08/2007 12:49:16
#233074
se o banco for access, colocar o valor padrão como null ou "" ou 0 e requerido como falso, aqui no meu caso so colocando requerido funciona, porem somente qdo na tabela ainda não existe dados se o campo é alterado qdo já existe não funciona.
DBRANDAO 28/08/2007 12:49:37
#233075
Access2000
SILVERDRAGON 28/08/2007 12:52:52
#233076
Ai Deus o q nossos amigos falaram é a msm coisa q falei...valemeDeus...


Entaum é só vc colocar o Campo na tabela(modo estrutura) para receber nulo..

ou fazer aquele if q t passei...

Private Sub GravarDados()
if tal campo = null then
   insere nesse campo o valor 0
else
   rs.AddNew
   rs!CLIENTE = txtCliente.Text
   rs!End = txtEnd.Text
   rs!FONE = txtFone.Text
   rs.update
end if
end sub



T+
SILVERDRAGON 28/08/2007 12:56:49
#233078
ou no mesmo modo estrutura na Propriedade( Valor Padrao ) deixa o numero 0



T+
DBRANDAO 28/08/2007 13:13:18
#233086
huhuhuuh....
valeu.... Galera..

Agora esta funfando normal.
SILVERDRAGON 28/08/2007 13:15:34
#233087
Nao tem de q amigo estou ai para isso msm...

AJUDAR


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