Select

[ATS# 0]

Ola comunidade....

 

Preciso de uma ajuda com relacao a um select de 2 tabelas

tblRegistrosVendasCaixaClientes

tblRegistrosVendasCaixaPedidos

 

Este select abaixo faz uma pesquisa entre datas ai acha o codigo_pedido

<%D1Dia = Request.Form("dia_inicial")D1Mes = Request.Form("mes_inicial")D1Ano = Request.Form("ano_inicial")D2Dia = Request.Form("dia_final")D2Mes = Request.Form("mes_final")D2Ano = Request.Form("ano_final")Data1 = D1Mes & "/" & D1Dia & "/" & D1AnoData2 = D2Mes & "/" & D2Dia & "/" & D2AnostrSQL = "SELECT tblRegistrosVendasCaixaPedidos.codigo_pedido FROM tblRegistrosVendasCaixaPedidos WHERE [data_pedido] >= " & "#" & Data1 & "#"strSQL = strSQL & " and [data_pedido] <= " & "#" & Data2 & "#" & "  AND cancelamento = 0 ORDER BY data_pedido"Dim objRSSet objRS = Server.CreateObject("ADODB.Recordset")objRS.Open strSQL, objConn%>

Achando o codigo pedido do select acima, quero que visualize e de um loop sendo que o codigo_vendedor seja igual a session ("codigo_vendedor") .

E ai da um loop..

<%Session("codigo_vendedor")%><%While Not objRS.EOF %><%Dim strSQL5strSQL5 = "SELECT tblRegistrosVendasCaixaClientes.codigo_pedido, tblRegistrosVendasCaixaClientes.codigo_vendedor FROM tblRegistrosVendasCaixaClientes WHERE tblRegistrosVendasCaixaClientes.codigo_vendedor = "& Session("codigo_vendedor") &"  AND tblRegistrosVendasCaixaClientes.codigo_pedido = "& objRS("codigo_pedido")Dim objRS5Set objRS5 = Server.CreateObject("ADODB.Recordset")objRS5.Open strSQL5, objConn%>

<% objRS5("codigo_vendedor") %>

<%objRS.MoveNextWend%>

Resumindo preciso que aparecam somentes os com codigo_vendedor iqual ao session("codigo_vendedor") isso usando o 1º select que busca entre datas...

Mais em negrito esta algo errado....da uma força ai....valeu

 

Um abraço...

 

ATS

[FabricioGomes 0]

o que acontece, ocorre algum erro? move esse codigo para fora, antes do while...Dim objRS5Set objRS5 = Server.CreateObject("ADODB.Recordset")

[ATS# 0]

Pow Fabricio obrigado por responder....

 

Mais o codigo de erro q apresenta é:

Tipo de erro:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/website/sistema/sys/Vendas/form3_6_1cod.asp

 

normal e 4 registros ... saum 3 com o mesmo codigo_vendedor e 1 com outro codigo_vendedor...

 

tblRegistrosVendasCaixaClientes.codigo_vendedor = "& Session("codigo_vendedor") &"  AND

Tem aparecer somente 3 com o mesmo codigo_vendedor...

 

Um abraço..

 

ATS#

[ATS# 0]

A solução:

 

usar apenas o 1º select e fazer num só ... um select entre datas e filtrando atraves de codigo_vendedor...

 

strSQL = "SELECT P.codigo_pedido, P.data_pedido, P.hora_pedido, P.codigo_pagamento, P.total, C.codigo_vendedor, C.codigo_caixa FROM tblRegistrosVendasCaixaPedidos AS P, tblRegistrosVendasCaixaClientes AS C WHERE P.data_pedido BETWEEN #"  & Data1 & "# AND #" & Data2 & "# AND C.codigo_pedido = P.codigo_pedido AND C.codigo_vendedor=" & Session("codigo_vendedor")

T+

 

ATS#

[FabricioGomes 0]

verifica depois desse comando se retornou algum registroobjRS5.Open strSQL5, objConntipo:if not objRS5.EOF response.write objRS5("codigo_vendedor")end if