Ir para conteúdo
Fórum Script Brasil

magricelinho

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre magricelinho

magricelinho's Achievements

0

Reputação

  1. 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
×
×
  • Criar Novo...