Inserir data vazia

[Ivan.Teles 23]

Campo do BD.

 

 

 

Lembrando que ja removi o data abreviada

 

 

recurepando do form.

 

var_dnascimento = Request.Form("data_nascimento")

 

iserindo do BD

 

#"& var_dnascimento &"#

 

Meu problema

 

Se o campos estiver vazio da o seguinte erro.

Error Type:

Microsoft JET Database Engine (0x80040E07)

Syntax error in date in query expression '##'.

/visa_novo/solicita.asp, line 256

 

 

Se o campos estiver preenchido funcionando numa boa, porém esse campo não pode ser de preenchimento obrigatório

[Patricia 0]

troca o jogo da velha por aspas simplesve se dá

[Ivan.Teles 23]

troca o jogo da velha por aspas simples

 

ve se dá

Obs

 

Ja tentei trocar

 

# por '

# por "

assim

'#&

"#&

#'&

#"&

 

E nada até agora

[Patricia 0]

manda escrever a instrução sql, ve o que ta sendo montado

[Ivan.Teles 23]

ja fiz isso tb ele não mostra por que ele da erro direto.

 

quando não da erro, ou seja, quando o campo é preenchido ele monta a instrução de boa

[filipecrosk 0]

mas pede para mostrar antes de executar... da um response.write SQL response.endantes de executar no banco..

[Ivan.Teles 23]

INSERT INTO solicita ( nome, mae, alcunha, ano_nascimento, uf_responsavel, rg, uf_rg, inquerito, mandado_de_prisao, processo, delitos, placa, chassis, cpf_proprietario, cnpj_proprietario, numero_registro, numero_registro_pgu, uf, numero_espelho_cnh, numero_renach, cpf_condutor, nome_condutor, nome_mae, [data_nascimento], email, Observacoes, res) VALUES ( '', '', '', '', '', '', '', 0, 0, 0, '', '', '', '', '', '0', '0', '', '0', '0', '', '', '', ##, '', '', 1)

[filipecrosk 0]

agora me mostra o codigo do SQL no asp...

[Ivan.Teles 23]

<%

 

If NOT IsEmpty(Request.Form("submit")) Then

 

var_inquerito = "0"

If (Request.Form("inquerito") <> "") Then

var_ano1 = Trim(Replace(Request.Form("inquerito"),chr(39),"''"))

End If

var_mandadodeprisao = "0"

If (Request.Form("mandado_de_prisao") <> "") Then

var_mandadodeprisao = Trim(Replace(Request.Form("mandado_de_prisao"),chr(39),"''"))

End If

var_processo = "0"

If (Request.Form("processo") <> "") Then

var_processo = Trim(Replace(Request.Form("processo"),chr(39),"''"))

End If

var_numeroregistro = "0"

If (Request.Form("numero_registro") <> "") Then

var_numeroregistro = Trim(Replace(Request.Form("numero_registro"),chr(39),"''"))

End If

var_numeroregistropgu = "0"

If (Request.Form("numero_registro_pgu") <> "") Then

var_numeroregistropgu = Trim(Replace(Request.Form("numero_registro_pgu"),chr(39),"''"))

End If

var_numeroespelhocnh = "0"

If (Request.Form("numero_espelho_cnh") <> "") Then

var_numeroespelhocnh = Trim(Replace(Request.Form("numero_espelho_cnh"),chr(39),"''"))

End If

var_numerorenach = "0"

If (Request.Form("numero_renach") <> "") Then

var_numerorenach = Trim(Replace(Request.Form("numero_renach"),chr(39),"''"))

End If

 

var_nome = Trim(Replace(Request.Form("nome"),chr(39),"''"))

var_mae = Trim(Replace(Request.Form("mae"),chr(39),"''"))

var_alcunha = Trim(Replace(Request.Form("alcunha"),chr(39),"''"))

var_responsavel = Trim(Replace(Request.Form("responsavel"),chr(39),"''"))

var_rg = Trim(Replace(Request.Form("rg"),chr(39),"''"))

var_ufrg = Trim(Replace(Request.Form("uf_rg"),chr(39),"''"))

var_delitos = Trim(Replace(Request.Form("delitos"),chr(39),"''"))

var_placa = Trim(Replace(Request.Form("placa"),chr(39),"''"))

var_chassis = Trim(Replace(Request.Form("chassis"),chr(39),"''"))

var_cpfproprietario = Trim(Replace(Request.Form("cpf_proprietario"),chr(39),"''"))

var_cnpjproprietario = Trim(Replace(Request.Form("cnpj_proprietario"),chr(39),"''"))

var_cpfcondutor = Trim(Replace(Request.Form("cpf_condutor"),chr(39),"''"))

var_nomemae = Trim(Replace(Request.Form("nome_mae"),chr(39),"''"))

var_uf = Trim(Replace(Request.Form("uf"),chr(39),"''"))

var_nomecondutor = Trim(Replace(Request.Form("nome_condutor"),chr(39),"''"))

var_email = Trim(Replace(Request.Form("email"),chr(39),"''"))

var_observacoes = Trim(Replace(Request.Form("observacoes"),chr(39),"''"))

var_anonascimento = Request.Form("ano_nascimento")

var_dnascimento = Request.Form("data_nascimento")

 

ins = "INSERT INTO solicita ( nome, mae, alcunha, ano_nascimento, uf_responsavel, rg, uf_rg, inquerito, mandado_de_prisao, processo, delitos, placa, chassis, cpf_proprietario, cnpj_proprietario, numero_registro, numero_registro_pgu, uf, numero_espelho_cnh, numero_renach, cpf_condutor, nome_condutor, nome_mae, [data_nascimento], email, Observacoes, res) VALUES ( '"& var_nome &"', "&_

" '"& var_mae &"', "&_

" '"& var_alcunha &"', "&_

" '"& var_anonascimento &"', "&_

" '"& var_responsavel &"', "&_

" '"& var_rg &"', "&_

" '"& var_ufrg &"', "&_

" "& var_inquerito &", "&_

" "& var_mandadodeprisao &", "&_

" "& var_processo &", "&_

" '"& var_delitos &"', "&_

" '"& var_placa &"', "&_

" '"& var_chassis &"', "&_

" '"& var_cpfproprietario &"', "&_

" '"& var_cnpjproprietario &"', "&_

" '"& var_numeroregistro &"', "&_

" '"& var_numeroregistropgu &"', "&_

" '"& var_uf &"', "&_

" '"& var_numeroespelhocnh &"', "&_

" '"& var_numerorenach &"', "&_

" '"& var_cpfcondutor &"', "&_

" '"& var_nomecondutor &"', "&_

" '"& var_nomemae &"', "&_

" #"& var_dnascimento &"#, "&_

" '"& var_email &"', "&_

" '"& var_observacoes &"', "&_

" 1)"

response.write ins

conconexaosol.execute(ins)

Response.Write("<script> alert('Dado Inserido com Sucesso!!');</script>")

[ska_ska 0]

velho.. eh tipo assim... qdo você informa pra sua DB o seguinte...

 

INSERT INTO tabela (data) VALUES (##);

pra ele ## não eh nulo e sim uma data inválida... nulo pra ele seria NULL...

 

então pra corrigir seu problema...

var_dnascimento = Request.Form("data_nascimento")if isDate(var_dnascimento) then    var_dnascimento = "#"& var_dnascimento &"#" else   var_nascimento = "NULL"end if'--- e na sua sql, ficaria..." "& var_dnascimento &", "&_" '"& var_email &"', "&_" '"& var_observacoes &"', "&_" 1)"

;)