Ir para conteúdo
Fórum Script Brasil
  • 0

Não Estou Conseguindo Solucionar O Erro


PRISCILA STOCHINI

Pergunta

ERRO--

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'AbreConn'

/TESTE_ASP/visualiza_cadastro.asp, line 25

Codigo---

<%

sql = "SELECT empresa, depart, contato, cargo FROM colaborador"

Set rs = bco.Execute(sql)

%>

<%rs.MoveFirst : do while not rs.eof%>

Empresa: <%=rs("empresa")%><br>

Depart: <%=rs("depart")%><br>

Contato: <%=rs("contato")%><br>

Cargo: <%=rs("cargo")%><br>

<%rs.MoveNext : Loop

Call FechaConn()%>

Link para o comentário
Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

  • 0

Esse é um outro problema...mas pelo meu entender é parecido...

Abro a minha conexão com um include...

INCLUDE de CONEXÃO --

<%

Dim bco, sql, rs

Set bco = server.CreateObject("ADODB.connection")

bco.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Bancos\formularios.mdb"))

%>

ENVIA DADOS --

<!--#include file="conexao.asp"-->

<%

Vempresa = Request.Form("empresa")

Vdepartamento = Request.Form("departamento")

Vcontato = Request.Form("contato")

Vcargo = Request.Form("cargo")

Vendereco = Request.Form("endereco")

Vnum = Request.Form("num")

Vcompl = Request.Form("compl")

Vcep = Request.Form("cep")

Vestado = Request.Form("estado")

Vcidade = Request.Form("cidade")

Vddd = Request.Form("ddd")

Vtel = Request.Form("tel")

Vfax = Request.Form("fax")

Vcel = Request.Form("cel")

Vemail = Request.Form("email")

Vhomepage = Request.Form("homepage")

Vatividade = Request.Form("atividade")

sql = "INSERT into colaborador(empresa, departamento, contato, cargo, endereco, num, compl, cep, estado, cidade, ddd, tel, fax, cel, email, homepage, atividade) values ('"&Vempresa&"','"&Vdepartamento&"','"&Vcontato&"','"&Vcargo&"', '"&Vendereco&"', '"&Vnum&"', '"&Vcompl&"', '"&Vcep&"', '"&Vestado&"', '"&Vcidade&"', '"&Vddd&"', '"&Vtel&"', '"&Vfax&"', '"&Vcel&"', '"&Vemail&"', '"&Vhomepage&"', '"&Vatividade&"')"

Set rs = bco.Execute(sql)

Response.Write(sql)

bco.Close

Set bco = Nothing

URL = "cadastrando.asp"

response.redirect(URL)

%>

ERRO --

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/TESTE_ASP/enviando.asp, line 23

Link para o comentário
Compartilhar em outros sites

  • 0

Microsoft JET Database Engine error '80040e14'

Number of query values and destination fields are not the same.

/TESTE_ASP/enviando.asp, line 23

está dando esse erro...

Bom, preciso ao mesmo tempo que enviar dados de formulario preciso "cadastrar" tambem o dia e a hora do servidor no bco...como faço isso...acho que é isso que está fazendo dar esse erro...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...