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
Pergunta
magricelinho
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:
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
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.