Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

reinaldo polato

[Resolvido] Pagina Asp

Por , em ASP Clássico

Recommended Posts

reinaldo polato    1

reinaldo polato
Postado

Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/asp/Cadastra.asp, line 54

 

 

 

<%

CodProduto=Request.Form("CodProduto")
RazaoSocial=Request.Form("RazaoSocial")
Endereco=Request.Form("Endereco")
Bairro=Request.Form("Bairro")
CEP=Request.Form("CEP")
DescricaoProduto=Request.Form("DescricaoProduto")
Cidade=Request.Form("Cidade")
CNPJ=Request.Form("CNPJ")
Tipo=Request.Form("Tipo")
IE=Request.Form("IE")
CondPagamento=Request.Form("CondPagamento")
Vendedor=Request.Form("Vendedor")
Ds_Data=Request.Form("Ds_Data")
Tp_Estado=Request.Form("Tp_Estado")
Tel=Request.Form("Tel")
Frete=Request.Form("Frete")
Embalagem=Request.Form("Embalagem")
Qtde=Request.Form("Qtde")
PrecoUnit=Request.Form("PrecoUnit")
PrecoTotal=Request.Form("PrecoTotal")
Celular=Request.Form("Celular")
Email=Request.Form("Email")
Contato=Request.Form("Contato")

dim conexao
dim strdriver
dim objconexao
dim objrecordset


strconexao="DBQ=c:\asp\Cadastro.mdb"
strdriver="Driver={Microsoft Access Driver (*.mdb)}"

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2
objrecordset.AddNew 
objrecordset.Fields("RazaoSocial")=RazaoSocial
objrecordset.Fields("Endereco")=Endereco
objrecordset.Fields("Bairro")=Bairro
objrecordset.Fields("CEP")=CEP
objrecordset.Fields("DescricaoProduto")=DescricaoProduto
objrecordset.Fields("Cidade")=Cidade
objrecordset.Fields("CNPJ")=CNPJ
objrecordset.Fields("Tipo")=Tipo
objrecordset.Fields("IE")=IE
objrecordset.Fields("CondPagamento")=CondPagamento
objrecordset.Fields("Vendedor")=Vendedor
objrecordset.Fields("Ds_Data")=Ds_Data
objrecordset.Fields("Tp_estado")=Tp_estado
objrecordset.Fields("Tel")=Tel
objrecordset.Fields("Frete")=Frete
objrecordset.Fields("Embalagem")=Embalagem
objrecordset.Fields("Qtde")=Qtde
objrecordset.Fields("PrecoUnit")=PrecoUnit
objrecordset.Fields("PrecoTotal")=PrecoTotal
objrecordset.Fields("Celular")=Celular
objrecordset.Fields("Email")=Email
objrecordset.Fields("Contato")=Contato
CodProduto=objrecordset("CodProduto")
objrecordset.Update 
Response.Write "cadastro incluido com sucesso. Codigo nr. " & CodProduto

objconexao.Close
set objconexao=nothing
set objrecordset=nothing
%>

<table align="left" width="35">
</tr>
<tr>
	<td bgcolor="Green"><font color="white">CodProduto</td>
	<td bgcolor="white"><%Response.Write(CodProduto)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">RazaoSocial</td>
	<td bgcolor="white"><%Response.Write(RazaoSocial)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Endereco</td>
	<td bgcolor="white"><%Response.Write(Endereco)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Bairro</td>
	<td bgcolor="white"><%Response.Write(Bairro)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">CEP</td>
	<td bgcolor="white"><%Response.Write(CEP)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">DescricaoProduto</td>
	<td bgcolor="white"><%Response.Write(DescricaoProduto)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">CNPJ</td>
	<td bgcolor="white"><%Response.Write(CNPJ)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Tipo</td>
	<td bgcolor="white"><%Response.Write(Tipo)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">IE</td>
	<td bgcolor="white"><%Response.Write(IE)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">CondPagamento</td>
	<td bgcolor="white"><%Response.Write(CondPagamento)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Vendedor</td>
	<td bgcolor="white"><%Response.Write(Vendedor)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Ds_Data</td>
	<td bgcolor="white"><%Response.Write(Ds_Data)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Tp_Estado</td>
	<td bgcolor="white"><%Response.Write(Tp_Estado)%></td>
</tr>
<tr>
	<td bgcolor="green"><font color="white">Tel</td>
	<td bgcolor="white"><%Response.Write(Tel)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Frete</td>
	<td bgcolor="white"><%Response.Write(Frete)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Embalagem</td>
	<td bgcolor="white"><%Response.Write(Embalagem)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Qtde</td>
	<td bgcolor="white"><%Response.Write(Qtde)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">PrecoUnit</td>
	<td bgcolor="white"><%Response.Write(PrecoUnit)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">PrecoTotal</td>
	<td bgcolor="white"><%Response.Write(PrecoTotal)%></td>
</tr>
<tr>	
	<td bgcolor="Green"><font color="white">Celular</td>
	<td bgcolor="white"><%Response.Write(Celular)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Email</td>
	<td bgcolor="white"><%Response.Write(Email)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Contato</td>
	<td bgcolor="white"><%Response.Write(Contato)%></td>
</tr>
<tr>
</table>
<form type="text" name="btn1" method="Post" action="consulta.asp">
<input type="Submit" name="frm4" value="Consulta >>>">

objrecordset.Fields("Ds_Data")=Ds_Data

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

qual é a linha do erro? marque ela...

 

e diga a propriedade da coluna na tabela!

 

e ai Ted k' beleza

 

a linha é a 54

<td bgcolor="Green"><font color="white">Ds_Data</td> <td bgcolor="white"><%Response.Write(Ds_Data)%></td>

a tabela eu fiz ela no access e ela ta como texto

se eu tirar essa linha <td bgcolor="Green"><font color="white">Ds_Data</td> <td bgcolor="white"><%Response.Write(Ds_Data)%></td>

ela ai funciona

esse é o nome do erro

Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/asp/Cadastra.asp, line 54

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai Ted k' beleza

é assim essa pagina em asp está com erro no campo ds_data eu tinha colocado como Data hora/ e no formato data abreviada ai quando eu deixo no formato hora/data ele da o erro Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/asp/Cadastra.asp, line 54

e quando eu coloco como texto

ele aparece os campos e do lado enves de aparecer as coisas que eu digitei no cadastro da pagina anterios ele aparece os mesmo nome tipo CodProduto, endereco

bairro CEP e data aparece assim

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode usar uma funcaun para Formatar datas para salvar no banco ou apresentar na tela

da´uma olhda aki

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai xanburzum beleza

então a minha pagina que faz o cadastro com o banco de dados está assim

cadastro incluido com sucesso. Codigo nr. Codigo

RazaoSocial RazaoSocial

Endereco Endereco

Bairro Bairro

CEP CEP

DescricaoProduto DescricaoProduto

CNPJ CNPJ

Tipo Tipo

IE IE

CondPagamento CondPagamento

Vendedor Vendedor

Tp_Estado Tp_Estado

Tel Tel

Frete Frete

Embalagem Embalagem

Qtde Qtde

PrecoUnit PrecoUnit

PrecoTotal PrecoTotal

Celular Celular

Email email

Contato Contato

 

ela deveria aparecer os nomes tipo Codigo Razao Social e do lado aparecer o formulario que eu escrevi nos campos tipo RazaoSocial ai aparecer o nome Tipo reinaldo

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai gente beleza

é assim a minha pagina cadastra.asp ela não está conectando com o banco de dados

 

<%

'Recebendo Parametros

Codigo=Request.Form("Codigo")
RazaoSocial=Request.Form("RazaoSocial")
Endereco=Request.Form("Endereco")
Bairro=Request.Form("Bairro")
CEP=Request.Form("CEP")
DescricaoProduto=Request.Form("DescricaoProduto")
Cidade=Request.Form("Cidade")
CNPJ=Request.Form("CNPJ")
Tipo=Request.Form("Tipo")
IE=Request.Form("IE")
CondPagamento=Request.Form("CondPagamento")
Vendedor=Request.Form("Vendedor")
Tp_Estado=Request.Form("Tp_Estado")
Tel=Request.Form("Tel")
Frete=Request.Form("Frete")
Embalagem=Request.Form("Embalagem")
Qtde=Request.Form("Qtde")
PrecoUnit=Request.Form("PrecoUnit")
PrecoTotal=Request.Form("PrecoTotal")
Celular=Request.Form("Celular")
Email=Request.Form("Email")
Contato=Request.Form("Contato")

dim  conexao
dim  strDriver
dim  objconexao
dim	 objrecordset

strconexao="DBQ=c:\asp\Cep.mdb"
strdriver="Driver={Microsoft Access Driver (*.mdb)}"

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open  strconexao & ";" & strdriver

objrecordset.Open  "Consulta",objconexao,1,3,2
objrecordset.AddNew  
objrecordset.Fields("RazaoSocial")= Request("RazaoSocial")
objrecordset.Fields("Endereco")= Request("Endereco")
objrecordset.Fields("Bairro")= Request("Bairro")
objrecordset.Fields("Cep")= Request("Cep")
objrecordset.Fields("DescricaoProduto")=Request("DescricaoProduto")
objrecordset.Fields("CNPJ")= Request("CNPJ")
objrecordset.Fields("Tipo")= Request("Tipo")
objrecordset.Fields("IE")= Request("IE")
objrecordset.Fields("CondPagamento")= Request("CondPagamento")
objrecordset.Fields("Vendedor")= Request("Vendedor")
objrecordset.Fields("Tp_estado")= Request("Tp_estado")
objrecordset.Fields("Tel")= Request("Tel")
objrecordset.Fields("Frete")= Request("Frete")
objrecordset.Fields("Embalagem")= Request("Embalagem")
objrecordset.Fields("Qtde")= Request("Qtde")
objrecordset.Fields("PrecoUnit")= Request("PrecoUnit")
objrecordset.Fields("PrecoTotal")= Request("PrecoTotal")
objrecordset.Fields("Celular")= Request("Celular")
objrecordset.Fields("Email")= Request("Email")
objrecordset.Fields("Contato")= Request("Contato")
Codigo=objrecordset.Fields("Codigo")
objrecordset.Update  
Response.Write "cadastro incluido com sucesso. Codigo nr. " & Codigo

objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>

<table width="100">
<tr>
	<td bgcolor="green"><font color="white">Codigo</td>
	<td bgcolor="white"><%Response.Write(Codigo)%></td>
</tr>
<tr>
	<td bgcolor="green"><font color="white">RazaoSocial</td>
	<td bgcolor="white"><%Response.Write(RazaoSocial)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Endereco</td>
	<td bgcolor="white"><%Response.Write(Endereco)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Bairro</td>
	<td bgcolor="white"><%Response.Write(Bairro)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">CEP</td>
	<td bgcolor="white"><%Response.Write(CEP)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">DescricaoProduto</td>
	<td bgcolor="white"><%Response.Write(DescricaoProduto)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">CNPJ</td>
	<td bgcolor="white"><%Response.Write(CNPJ)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Tipo</td>
	<td bgcolor="white"><%Response.Write(Tipo)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">IE</td>
	<td bgcolor="white"><%Response.Write(IE)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">CondPagamento</td>
	<td bgcolor="white"><%Response.Write(CondPagamento)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Vendedor</td>
	<td bgcolor="white"><%Response.Write(Vendedor)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Tp_Estado</td>
	<td bgcolor="white"><%Response.Write(Tp_Estado)%></td>
</tr>
<tr>
	<td bgcolor="green"><font color="white">Tel</td>
	<td bgcolor="white"><%Response.Write(Tel)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Frete</td>
	<td bgcolor="white"><%Response.Write(Frete)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Embalagem</td>
	<td bgcolor="white"><%Response.Write(Embalagem)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Qtde</td>
	<td bgcolor="white"><%Response.Write(Qtde)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">PrecoUnit</td>
	<td bgcolor="white"><%Response.Write(PrecoUnit)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">PrecoTotal</td>
	<td bgcolor="white"><%Response.Write(PrecoTotal)%></td>
</tr>
<tr>	
	<td bgcolor="Green"><font color="white">Celular</td>
	<td bgcolor="white"><%Response.Write(Celular)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Email</td>
	<td bgcolor="white"><%Response.Write(Email)%></td>
</tr>
<tr>
	<td bgcolor="Green"><font color="white">Contato</td>
	<td bgcolor="white"><%Response.Write(Contato)%></td>
</tr>
<tr>
</table>
<form type="text" name="btn1" method="Post" action="consulta.asp">
<input type="Submit" name="frm4" value="Consulta >>>">

 

aparece assim a pagina tipo Codigo, Razao Social ai ao enves de aparecer as coisas que eu digitei das paginas anteriores aparece assim Codigo RazaoSocial, Endereco

ai no banco aparece Codigo, Razaosocial. Endereco e não o que foi digitado nas paginas anteriores

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito