Luiz
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 02/02/2006 08:44 hs
Uso o codigo abaixo para gravar em uma tabela ACESS e funciona corretamente se o usuario preencher o txtDATA (que vai gravar em um campo do tipo date - NASC). Mas se o usuario não preenche esse campo (que é opcional) dá um erro na hora de gravar. Como evitar esse erro? Obrigado.
SQL = "insert into ENDERECOS (CODIGO, NOME, ENDERECO, NASC) values (" & txtCOD.Text & ",'" & txtNOME.Text & "','" & txtEND.Text & "','" & txtDATA.Text & "') "
db.Execute (SQL)
|
|
|
|
|
|
Luiz
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/02/2006 09:18 hs
Valeu pessoal. Eu já resolvi o problema.
data1 = Format(txtDATA.Text, "dd/mm/yyyy")
SQL = "insert into ENDERECOS (CODIGO, NOME, ENDERECO, NASC) values (" & txtCOD.Text & ",'" & txtNOME.Text & "','" & txtEND.Text & "','" & data1 & "') "
db.Execute (SQL) |
|
|
|
|
|
Postada em 02/02/2006 16:38 hs
Tambem tem esse: SQL = "insert into ENDERECOS (CODIGO, NOME, ENDERECO, NASC) values (" & txtCOD.Text & ",'" & txtNOME.Text & "','" & txtEND.Text & "'," & iif(txtdata="","Null","'" & txtdata & "'") & ") "
db.Execute (SQL) Obs: Não ha aspas aqui=> txtEND.Text & "'," experimenta!!!
"IF FUNCIONOU = TRUE THEN  BLOQUEIE O POST ELSE  POST NOVAMENTE INFORMANDO O QUE ACONTECEU ENDIF 
|
|
|
|
|
