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

Ajudas comparar dois itens em uma busca de 2 mdf diferentes


magricelinho

Pergunta

Tenho um código de resposta a uma busca de relatórios de um cliente que eu queria acrescentar mais uma aba ao meu código que seria a aba "Placa" mais o arquivo Catcli.mdf que eu puxo as informações não possui o atributo placa, eu teria que puxar a placa de um outro arquivo existente Placa.mdf que tem uma semelhança no código. como eu faço para fazer uma comparação entro os dois codigos para que eu consiga exibir a placa tambem. ex:

for CODIGO(Catcli.mdf) = CODIGO(Placa.mdf)


===Código=====

Sub Clientes_Cat 

       Set objConn = Server.CreateObject("ADODB.Connection")
       objConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
       "DriverID=21;" & _
       "Dbq="& strDir2000



       Set objRS = Server.CreateObject("ADODB.Recordset")
       Set objRS.ActiveConnection = objConn



       IF StrCatcli = "todos" then
          strQ = "Select CODIGO, NOME, TIPO, INATIVO, DATACAD, NRVAGAS, TELEFON,DATAVAL FROM MENSAL WHERE INATIVO=0  and PLACA order by DATAVAL"
          else 
          strQ = "Select CODIGO, NOME, TIPO, INATIVO, DATACAD, NRVAGAS, TELEFON,DATAVAL FROM MENSAL WHERE INATIVO=0 AND TIPO ='"& StrCatcli &"' order by nome"
       end if


       objRS.open (strQ)



       %>
                <font face="Arial" size="3"><b><%=strNome_P%></b></font>
                <center><font face="Arial" size="3"><b>Clientes <%=StrCatcli%></b></font></center>
                <hr>
                <table border="1" width="100%">
                <tr>


                <td width="7%" align="middle"><b><font face="Verdana" size="1">Código</font></b></td>
                <td width="28%" align="middle"><b><font face="Verdana" size="1">Nome</font></b></td>
                <td width="13%" align="middle"><b><font face="Verdana" size="1">Data Cadastro</font></b></td>
                <td width="8%" align="middle"><b><font face="Verdana" size="1">Nº Vagas</font></b></td>
                <td width="12%" align="middle"><b><font face="Verdana" size="1">Tipo</font></b></td>
                <td width="16%" align="middle"><b><font face="Verdana" size="1">Telefone</font></b></td>
                <td width="16%" align="middle"><b><font face="Verdana" size="1">Validade</font></b></td>
                <td width="16%" align="middle"><b><font face="Verdana" size="1">Sequência</font></b></td>
    <td width="14%" align="middle"><b><font face="Verdana" size="1">Placa</font></b></td>



               </tr> <%
        while not objRS.eof
            ano = Year(objRS("dataval"))
            mes = Month (objRS("dataval"))
            dia = Day(objRS("dataval"))

            data = dia &"/"& mes &"/"&ano
             Cont = cont + 1
            %><tr>
               <td width="7%" align="middle"><font face="Verdana" size="1"><%=objRS("CODIGO")%></font></td>
               <td width="28%" align="left"><font face="Verdana" size="1"><%=objRS ("NOME")%></font></td>
               <td width="13%" align="middle"><font face="Verdana" size="1"><%=objRS("DATACAD")%></font></td>
               <td width="8%" align="middle"><font face="Verdana" size="1"><%=objRS("NRVAGAS")%></font></td>
               <td width="12%" align="middle"><font face="Verdana" size="1"><%=objRS("TIPO")%></font></td>
               <td width="16%" align="middle"><font face="Verdana" size="1"><%=data%></font></td>
               <td width="16%" align="middle"><font face="Verdana" size="1"><%=Cont%></font></td>
      <td width="14%" align="middle"><font face="Verdana" size="1"><%=objRS("PLACA")%></font></td>



               </tr>
           <%


        objRS.MoveNext

        Wend
         %> <tr>
               <td width="7%" align="middle"><font face="Verdana" size="1"></font></td>
               <td width="28%" align="middle"><font face="Verdana" size="1"></font></td>
               <td width="13%" align="middle"><font face="Verdana" size="1"></font></td>
               <td width="8%" align="middle"><font face="Verdana" size="1"></font></td>
               <td width="12%" align="middle"><font face="Verdana" size="1"><b>Total de Registros</b></font></td>
               <td width="16%" align="middle"><font face="Verdana" size="1"><b><%=cont%></b></font></td>



               </tr></table>
           <%




  End Sub

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

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
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...