Ir para conteúdo

POWERED BY:

Arquivado

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

reinaldo polato

[Resolvido] Erro Operação cancelada.

Por , em ASP Clássico

Recommended Posts

reinaldo polato    1

reinaldo polato
Postado

e ai galera beleza

 

<%

CodCliente=Request.Form("CodCliente")
RazaoSocial=Request.Form("RazaoSocial")
Fantasia=Request.Form("Fantasia")
CNPJ=Request.Form("CNPJ")
IE=Request.Form("IE")
Tipo=Request.Form("Tipo")
Potencial=Request.Form("Potencial")
Endereco=Request.Form("Endereco")
Complemento=Request.Form("Complemento")
Bairro=Request.Form("Bairro")
Municipio=Request.Form("Municipio")
Cep=Request.Form("Cep")
Estado=Request.Form("Estado")
Telefone=Request.Form("Telefone")
Celular=Request.Form("Celular")
HomePage=Request.Form("HomePage")
Cobranca=Request.Form("Cobranca")
Correio=Request.Form("Correio")
Anotacoes=Request.Form("Anotacoes")

dim conexao
dim strdriver
dim objconexao
dim objrecordset

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

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

objconexao.Open srtconexao & ";" & strdriver 

objrecordset.Open "Consulta", objconexao1,2,3
objrecordset.AddNew
objrecordset.Fields("RazaoSocial")=Request("RazaoSocial")
objrecordset.Fields("Fantasia")=Request("Fantasia")
objrecordset.Fields("CNPJ")=Request("CNPJ")
objrecordset.Fields("IE")=Request("IE")
objrecordset.Fields("Tipo")=Request("Tipo")
objrecordset.Fields("Potencial")=Request("Potencial")
objrecordset.Fields("Endereco")=Request("Endereco")
objrecordset.Fields("Complemento")=Request("Complemento")
objrecordset.Fields("Bairro")=Request("Bairro")
objrecordset.Fields("Municipio")=Request("Municipio")
objrecordset.Fields("Cep")=Request("Cep")
objrecordset.Fields("Estado")=Request("Estado")
objrecordset.Fields("Telelefone")=Request("Telefone")
objrecordset.Fields("Celular")=Request("Celular")
objrecordset.Fields("HomePage")=Request("HomePage")
objrecordset.Fields("Cobranca")=Request("Cobranca")
objrecordset.Fields("Correio")=Request("Correio")
objrecordset.Fields("Anotacoes")=Request("Anotacoes")
objrecordset.Update
Response.Write "Cadastro Incluido com Sucesso. Codigo nr. " & CodCliente 

objconexao.Close
set objconexao=nothing
set objrecorset=nothing

%>
<form name="frm" Method="Post" action="confirmar_cadastro_vendedor.asp">
<script type="text/vbscript">
Function myPopup_OnClick()
	MsgBox "Receber Cadastro Vendedor!", 1, "Vendedor"
End Function
</script>
<form id=form1 name=form1>
<input type="Submit" value="Receber Cadastro Vendedor!" name="myPopup" />	
<table align="left" width="33%">
</tr>
<tr>
	<td bgcolor="White"><font color="black">CodCliente</td>
	<td bgcolor="White"><%Response.Write(CodCliente)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">RazaoSocial</td>
	<td bgcolor="White"><%Response.Write(RazaoSocial)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Fantasia</td>
	<td bgcolor="White"><%Response.Write(Fantasia)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">CNPJ</td>
	<td bgcolor="White"><%Response.Write(CNPJ)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">IE</td>
	<td bgcolor="White"><%Response.Write(IE)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Tipo</td>
	<td bgcolor="White"><%Response.Write(Tipo)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Potencial</td>
	<td bgcolor="White"><%Response.Write(Potencial)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Endereco</td>
	<td bgcolor="White"><%Response.Write(Endereco)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Complemento</td>
	<td bgcolor="White"><%Response.Write(Complemento)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Bairro</td>
	<td bgcolor="White"><%Response.Write(Bairro)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Municipio</td>
	<td bgcolor="White"><%Response.Write(Municipio)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Cep</td>
	<td bgcolor="White"><%Response.Write(Cep)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Estado</td>
	<td bgcolor="White"><%Response.Write(Estado)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Telefone</td>
	<td bgcolor="White"><%Response.Write(Telefone)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Celular</td>
	<td bgcolor="White"><%Response.Write(Celular)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">HomePage</td>
	<td bgcolor="White"><%Response.Write(HomePage)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Cobranca</td>
	<td bgcolor="White"><%Response.Write(Cobranca)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">CodCliente</td>
	<td bgcolor="White"><%Response.Write(CodCliente)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Correio</td>
	<td bgcolor="White"><%Response.Write(Correio)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Anotacoes</td>
	<td bgcolor="White"><%Response.Write(Anotacoes)%></td>
</tr>
<tr>

esse é o meu sistema em asp

 

o erro é o seguinte

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E4E)

Operação cancelada.

/sistema/confirmar_cadastro_vendedor.asp, line 34

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Poste qual é a linha 34.

 

Seria essa?

objconexao.Open srtconexao & ";" & strdriver

 

ou essa?

objrecordset.Open "Consulta", objconexao1,2,3

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Algumas soluções possíveis, ao conectar ao Access, use uma seqüência de conexão JET, em vez do controlador de acesso genérico, se você tiver instalado o JET - e quer que você faça, evite usar uma DSN, Se você absolutamente deve usar um DSN, tente evitar o uso de um sublinhado no nome

não passar informações de usuário e senha para uma seqüência de conexão de acesso a menos que sejam necessários, e tente adicionar DriverId = 25; à seqüência de conexão (remota) uso do Server.MapPath() se você não tiver certeza absoluta do local do seu arquivo MDB, Se você estiver usando LDAP, consulte, Se tudo isso falhar, verifique se o servidor está atualizado com todos os patches e correções de segurança, olha este exemplo de conexão:

 

constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai galera beleza

agora o erro é esse

 

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/sistema/confirmar_cadastro_vendedor.asp, line 36

 

objrecordset.Open "Vendedor", objconexao1,3,2

<%

CodCliente=Request.Form("CodCliente")
RazaoSocial=Request.Form("RazaoSocial")
Fantasia=Request.Form("Fantasia")
CNPJ=Request.Form("CNPJ")
IE=Request.Form("IE")
Tipo=Request.Form("Tipo")
Potencial=Request.Form("Potencial")
Endereco=Request.Form("Endereco")
Complemento=Request.Form("Complemento")
Bairro=Request.Form("Bairro")
Municipio=Request.Form("Municipio")
Cep=Request.Form("Cep")
Estado=Request.Form("Estado")
Telefone=Request.Form("Telefone")
Celular=Request.Form("Celular")
HomePage=Request.Form("HomePage")
Cobranca=Request.Form("Cobranca")
Correio=Request.Form("Correio")
Anotacoes=Request.Form("Anotacoes")

dim conexao
dim strdriver
dim objconexao
dim objrecordset

strconexao="DBQ=c:\sistema\db_vendedor.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 "Vendedor", objconexao1,3,2
objrecordset.AddNew
objrecordset.Fields("RazaoSocial")=Request("RazaoSocial")
objrecordset.Fields("Fantasia")=Request("Fantasia")
objrecordset.Fields("CNPJ")=Request("CNPJ")
objrecordset.Fields("IE")=Request("IE")
objrecordset.Fields("Tipo")=Request("Tipo")
objrecordset.Fields("Potencial")=Request("Potencial")
objrecordset.Fields("Endereco")=Request("Endereco")
objrecordset.Fields("Complemento")=Request("Complemento")
objrecordset.Fields("Bairro")=Request("Bairro")
objrecordset.Fields("Municipio")=Request("Municipio")
objrecordset.Fields("Cep")=Request("Cep")
objrecordset.Fields("Estado")=Request("Estado")
objrecordset.Fields("Telelefone")=Request("Telefone")
objrecordset.Fields("Celular")=Request("Celular")
objrecordset.Fields("HomePage")=Request("HomePage")
objrecordset.Fields("Cobranca")=Request("Cobranca")
objrecordset.Fields("Correio")=Request("Correio")
objrecordset.Fields("Anotacoes")=Request("Anotacoes")
objrecordset.Update
Response.Write "Cadastro Incluido com Sucesso. Codigo nr. " & CodCliente 

objconexao.Close
set objconexao=nothing
set objrecorset=nothing

%>
<form name="frm" Method="Post" action="confirmar_cadastro_vendedor.asp">
<script type="text/vbscript">
Function myPopup_OnClick()
	MsgBox "Receber Cadastro Vendedor!", 1, "Vendedor"
End Function
</script>
<form id=form1 name=form1>
<input type="Submit" value="Receber Cadastro Vendedor!" name="myPopup" />	
<table align="left" width="33%">
</tr>
<tr>
	<td bgcolor="White"><font color="black">CodCliente</td>
	<td bgcolor="White"><%Response.Write(CodCliente)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">RazaoSocial</td>
	<td bgcolor="White"><%Response.Write(RazaoSocial)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Fantasia</td>
	<td bgcolor="White"><%Response.Write(Fantasia)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">CNPJ</td>
	<td bgcolor="White"><%Response.Write(CNPJ)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">IE</td>
	<td bgcolor="White"><%Response.Write(IE)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Tipo</td>
	<td bgcolor="White"><%Response.Write(Tipo)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Potencial</td>
	<td bgcolor="White"><%Response.Write(Potencial)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Endereco</td>
	<td bgcolor="White"><%Response.Write(Endereco)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Complemento</td>
	<td bgcolor="White"><%Response.Write(Complemento)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Bairro</td>
	<td bgcolor="White"><%Response.Write(Bairro)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Municipio</td>
	<td bgcolor="White"><%Response.Write(Municipio)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Cep</td>
	<td bgcolor="White"><%Response.Write(Cep)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Estado</td>
	<td bgcolor="White"><%Response.Write(Estado)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Telefone</td>
	<td bgcolor="White"><%Response.Write(Telefone)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Celular</td>
	<td bgcolor="White"><%Response.Write(Celular)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">HomePage</td>
	<td bgcolor="White"><%Response.Write(HomePage)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Cobranca</td>
	<td bgcolor="White"><%Response.Write(Cobranca)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">CodCliente</td>
	<td bgcolor="White"><%Response.Write(CodCliente)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Correio</td>
	<td bgcolor="White"><%Response.Write(Correio)%></td>
</tr>
<tr>
	<td bgcolor="White"><font color="black">Anotacoes</td>
	<td bgcolor="White"><%Response.Write(Anotacoes)%></td>
</tr>
<tr>

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