[Resolvido] Erro na escrita

[marvazoler 0]

Galera bzl?Olha quando eu faço um select * está dando esse erro, mas se dou F5 mostra os dados que digitei, o pode ser? ADODB.Field erro '80020009' BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /Intranet/nf_confirma_cliente.asp, line 0 Desde já agradeço

[CaBo GeL 0]

poste a linha do seu Sql...você colocou a função de qndo a consulta n for encontrada?Ate +

[marvazoler 0]

Olá camarada beleza?Bom que faço primeiro é um insert na tabela e aproveito para fazer um select * no que foi inseridono banco isso na mesma página .asp onde está o insert eu uso o select tambem pois as variáveisque uso para o insert eu simplismenti renomeio e uso para select *pois no momento que do um insert eu tambem em um outra escrita de conexão renomeada usopara um select *Qual a sua opinião?

[Ted k' 126]

coloque essa linha de select ai que você fala só para eu ver o comando principal!!

[marvazoler 0]

Value pela atenção agora vai, rsrs

Olha isso:

 

ASP

<%

Dim oConn

Dim oRs

Dim filePath

Dim varrazao

Dim varcnpj_cpf

Dim varnome

Dim var_tipocliente

Dim var_insc_social

Dim var_insc_municipal

Dim varendereco

Dim varbairro

Dim varcidade

Dim varuf

Dim varddd

Dim vartel

Dim varfax

Dim varcontato

Dim varcep

Dim varobs

filePath = Server.MapPath("/banco/teste.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = Server.CreateObject("ADODB.Recordset")

varrazao = request.Form("txt_razao")

varcnpj_cpf = request.Form("txt_cnpj_cpf")

varnome = request.Form("txt_nome")

var_tipocliente = request.Form("txt_tipo_cliente")

var_insc_social = request.Form("txt_insc_social")

var_insc_municipal = request.Form("txt_insc_municipal")

varendereco = request.Form("txt_endereco")

varbairro = request.Form("txt_bairro")

varcidade = request.Form("txt_cidade")

varuf = request.Form("txt_uf")

varddd = request.Form("txt_ddd")

vartel = request.Form("txt_tel")

varfax = request.Form("txt_fax")

varcontato = request.Form("txt_contato")

varcep = request.Form("txt_cep")

varobs = request.Form("txt_obs")

Set oRs = oConn.Execute("insert into cliente(Razao,Cnpj_cpf,Nome,Tipo_cliente,Insc_social,Insc_municipal,Endereco,Bai

ro,Cidade,Uf,DDD,Tel,Fax,Contato,Cep,Obs)values('"&varrazao&"',"&varcnpj_cpf&",'"&varnome&"','"&var_tipocliente&"','"&var_insc_social&"','"&var_insc_municipal&"','"&varendereco&"','"&varbairro&"','"&varcidade&"','"&varuf&"','"&varddd&"','"&vartel&"','"&varfax&"','"&varcontato&"','"&varcep&"','"&varobs&"')")

 

%>

 

 

 

 

<%

Dim oConn2

Dim oRs2

Dim filePath2

Dim varcnpj_cpf2

filePath2 = Server.MapPath("/banco/teste.mdb")

Set oConn2 = Server.CreateObject("ADODB.Connection")

oConn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath2

Set oRs2 = Server.CreateObject("ADODB.Recordset")

varcnpj_cpf2 = request.Form("txt_cnpj_cpf")

Set oRs2 = oConn2.Execute("select * from cliente where Cnpj_cpf = "&varcnpj_cpf2&"")

if oRs2.EOF then

        response.write "<script>history.back(1);alert('Registro não cadastrado.')</script>"

end if

 

%>

 

Qual o problema?

[Ted k' 126]

subtitua essa:

ASP

<%

Dim oConn2

Dim oRs2

Dim filePath2

Dim varcnpj_cpf2

filePath2 = Server.MapPath("/banco/teste.mdb")

Set oConn2 = Server.CreateObject("ADODB.Connection")

oConn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath2

Set oRs2 = Server.CreateObject("ADODB.Recordset")

varcnpj_cpf2 = request.Form("txt_cnpj_cpf")

Set oRs2 = oConn2.Execute("select * from cliente where Cnpj_cpf = "&varcnpj_cpf2&"")

if oRs2.EOF then

        response.write "<script>history.back(1);alert('Registro não cadastrado.')</script>"

end if

 

%>

 

por essa

ASP

<%

varcnpj_cpf2 = request.Form("txt_cnpj_cpf")

 

If varcnpj_cpf2 = "" Then

response.write("")

else

Dim oConn2

Dim oRs2

Dim filePath2

Dim varcnpj_cpf2

filePath2 = Server.MapPath("/banco/teste.mdb")

Set oConn2 = Server.CreateObject("ADODB.Connection")

oConn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath2

Set oRs2 = Server.CreateObject("ADODB.Recordset")

Set oRs2 = oConn2.Execute("select * from cliente where Cnpj_cpf = "&varcnpj_cpf2&"")

 

if oRs2.EOF then

        response.write "<script>history.back(1);alert('Registro não cadastrado.')</script>"

end if

End If

%>

[marvazoler 0]

Olá camarada beleza?cara está como registro não cadastradoas variáveis estão certas, eu vejo no banco o cadastro, mas não sei por que não faza o selecto que você acha

[Ted k' 126]

Vamos trabalhar com POG:

 

Veja ai se roda

 

ASP

<%

Dim oConn

Dim oRs

Dim filePath

Dim varrazao

Dim varcnpj_cpf

Dim varnome

Dim var_tipocliente

Dim var_insc_social

Dim var_insc_municipal

Dim varendereco

Dim varbairro

Dim varcidade

Dim varuf

Dim varddd

Dim vartel

Dim varfax

Dim varcontato

Dim varcep

Dim varobs

 

filePath = Server.MapPath("/banco/teste.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = Server.CreateObject("ADODB.Recordset")

 

varrazao = request.Form("txt_razao")

varcnpj_cpf = request.Form("txt_cnpj_cpf")

varnome = request.Form("txt_nome")

var_tipocliente = request.Form("txt_tipo_cliente")

var_insc_social = request.Form("txt_insc_social")

var_insc_municipal = request.Form("txt_insc_municipal")

varendereco = request.Form("txt_endereco")

varbairro = request.Form("txt_bairro")

varcidade = request.Form("txt_cidade")

varuf = request.Form("txt_uf")

varddd = request.Form("txt_ddd")

vartel = request.Form("txt_tel")

varfax = request.Form("txt_fax")

varcontato = request.Form("txt_contato")

varcep = request.Form("txt_cep")

varobs = request.Form("txt_obs")

 

oConn.Execute("insert into cliente(Razao, Cnpj_cpf, Nome, Tipo_cliente, Insc_social, Insc_municipal, Endereco, Bairro, Cidade, Uf, DDD, Tel, Fax, Contato, Cep, Obs)values('"&varrazao&"', '"&varcnpj_cpf&"', '"&varnome&"', '"&var_tipocliente&"', '"&var_insc_social&"', '"&var_insc_municipal&"', '"&varendereco&"', '"&varbairro&"', '"&varcidade&"', '"&varuf&"', '"&varddd&"', '"&vartel&"', '"&varfax&"', '"&varcontato&"', '"&varcep&"', '"&varobs&"')")

 

Response.Redirect("Pagina.asp?CPF="&varcnpj_cpf&"&Mostrar=Valor")

 

If Request.QueryString("Mostrar") = "Valor" Then

 

dim CPF : CPF = Request.QueryString("CPF")

If CPF = "" Then

response.write("")

else

Set oRs2 = oConn.Execute("select * from cliente where Cnpj_cpf = '"&CPF&"'")

        if oRs2.EOF then

        response.write "<script>history.back(1);alert('Registro não cadastrado.')</script>"

        else

                Response.Write("CPF Encontrado")

        end if

End If

 

End if

%>

 

Só há uma observação:

nessa linha

Response.Redirect("Pagina.asp?CPF="&varcnpj_cpf&"&Mostrar=Valor")

Troque o nome da página "Pagina.asp" pelo nome da sua página atual!

[marvazoler 0]

Brigaço garoto valeu mesmo Funfo legal

[Ted k' 126]

Show man, qualquer coisa é só postar!!!!