5 replies to this topic

[webber]

Pessoal, será que alguém pode me ajudar? Não consigo enviar os dados do formulário para o BD. O erro que dá é:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/bioetica/enviar.asp, line 48


Sendo que a linha 48 é o

Set strCadInscritos = Conexao.Execute (strQuery)


Segue o script todo:


<%@ Language=VBScript %>

<!--#Include File = "adovbs.inc"-->
<%
'Recebe campos do formulario
Dia = Cstr(Request.Form ("txtDia"))
Nome = Cstr(Request.Form ("txtNome"))
Cracha = Cstr(Request.Form ("txtCracha"))
Endereco = Cstr(Request.Form ("txtEndereco"))
Bairro = Cstr(Request.Form ("txtBairro"))
Prefixo = Cstr(Request.Form ("txtPrefixo"))
Telefone = Cstr(Request.Form ("txtTelefone"))
Email = Cstr(Request.Form ("txtEmail"))
Profissao = Cstr(Request.Form ("txtProfissao"))
Pastoral = Cstr(Request.Form ("txtPastoral"))
Area = Cstr(Request.Form ("txtArea"))


'Conecta com o Banco
Set Conexao = Server.CreateObject ("Adodb.Connection")
strCaminho = "DBQ=e:\home\scorcelli1\dados\dados.mdb"
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & strCaminho

'comando SQL de Inclusao
strQuery = "INSERT INTO tblInscritos"
strQuery = strQuery + " (Dia, Nome, Cracha, Endereco, Bairro, Prefixo, Telefone, Email, Profissao, Pastoral, Area)"
strQuery = strQuery + " VALUES ('"+Dia+"', "
strQuery = strQuery + " '"+Nome+"', "
strQuery = strQuery + " '"+Cracha+"', "
strQuery = strQuery + " '"+Endereco+"', "
strQuery = strQuery + " '"+Bairro+"', "
strQuery = strQuery + " '"+Prefixo+"', "
strQuery = strQuery + " '"+Telefone+"', "
strQuery = strQuery + " '"+Email+"', "
strQuery = strQuery + " '"+Profissao+"', "
strQuery = strQuery + " '"+Pastoral+"', "
strQuery = strQuery + " '"+Area+"' ) "

Set strCadInscritos = Conexao.Execute (strQuery)

'se tudo Ok redireciona
Response.Redirect ("resposta.html")

'fechando conexoes
Set strCadInscritos = Nothing
Conexao.Close
%>

[Renan L. Queiroz]

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/bioetica/enviar.asp, line 48

Caro colega ... veja se todos os parâmetros que estão
sendo enviados ao banco estão chegando à esta página ...
Dê um rensponse.write para os parâmetros e cheque!

[webber]

Olá.

Fiz o teste do response.write. A página está recebendo os dados normalmente. Por que será que ocorre o erro?

[Renan L. Queiroz]

Olá.

Fiz o teste do response.write. A página está recebendo os dados normalmente. Por que será que ocorre o erro?

Esse tipo de erro pelo que me lembro é para quando algo é perdido (parâmetro),
impossibilitando a execução do comando no banco de dados!

Cara estava vendo aqui:

strCadInscritos ... esse seria seu recordSet?

Se vc só quer inserir no banco ... acho que só executando o command resolve!

Set strCadInscritos = Conexao.Execute (strQuery)

Porque:

...
Set strCadInscritos = Conexao.Execute (strQuery)

'se tudo Ok redireciona
Response.Redirect ("resposta.html")

'fechando conexoes
Set strCadInscritos = Nothing
...
%>

Como vc não está utilizando o "strCadInscritos"
acho que não precisa setar algum valor ...

Alem de ter que ficar setando o valor dele igual a "nada"
strCadInscritos = Nothing

Cara não tenho certeza ... faça um teste ai ... espero que ajude!

Edição feita por: Renan L. Queiroz, 31/03/2008, 16:43.

[webber]

Putz! E como é que vou corrigir isso?

Fiz do jeito que você mostrou, mas deu o mesmo erro!

[Renan L. Queiroz]

tirou tudo relacionado ao "strCadInscritos" ... nossa!!

Ficando assim?

...
Conexao.Execute (strQuery)

'se tudo Ok redireciona
Response.Redirect ("resposta.html")

'fechando conexoes
Conexao.Close
%>

Putz vei ... o bicho ta pegando mesmo!!
Vou ver com o pessoal aqui do trampo
o que eles tem à dizer.

Edição feita por: Renan L. Queiroz, 31/03/2008, 17:00.