Ir para conteúdo
Fórum Script Brasil

Rafael P.C

Membros
  • Total de itens

    16
  • Registro em

  • Última visita

Sobre Rafael P.C

  • Data de Nascimento 26/07/1986

Contatos

  • MSN
    rafael_backer@hotmail.com

Perfil

  • Gender
    Male
  • Location
    São Paulo

Rafael P.C's Achievements

0

Reputação

  1. Pessoal estou tendo dificuldades para consumir um Web Server. Sendo mais especifico o problema esta na comunicação entre meu script e o serviço a mesma tem que ser feita em SOAP 1.2 mais não estou conseguindo alterar isto no PHP estou utilizando PHP 5.3.10. <?php $url_wsdl ='http://localhost/Service.svc?wsdl'; $option = array( 'soap_version' => 'SOAP_1_2', 'encoding' => 'utf-8', 'exceptions' => false, 'trace' => true, 'cache_wsdl' => 'WSDL_CACHE_NONE' ); $soapClient = new SoapClient($url_wsdl, $option); $Credentials = array( 'Username' => 'admin', 'Password' => 'admin', 'passwordType' => 'basic' ); $headers = new SoapHeader('http://localhost/Service.svc?wsdl', 'UserCredentials', $Credentials); // Prepare Soap Client $soapClient->__setSoapHeaders(array($headers)); var_dump($soapClient->teste()); ?> A mensagem de retorno é esta: Cannot process the message because the content type 'text/xml; charset=utf-8' was not the expected type 'application/soap+xml; charset=utf-8'. Nas minhas pesquisas identifiquei que a versão do SOAP 1.1 utiliza Content-Type: text/XML e o SOAP 1.2 Content-Type: application/soap+XML. Até tentei utilizar o NUSOAP mais o mesmo não da suporte para SOAP 1.2. Alguém sabe como resolver este problema?
  2. Posta o resto do código do php. Tipo não da para saber da onde vem o valor da variável $pergunta_id. E aproveita manda também o código que imprime na tela as perguntas também. No aguardo.
  3. Boa noite Wsouza Sites, na verdade a varias possibilidades. Supondo que o sistema tenha controle de usuário e senha você pode criar uma tabela que contemple alem das respostas também o usuário que respondeu, com isto é só fazer uma verificação no banco antes de exibir a pagina, se o usuário já tiver respondido ela não exibe o quiz. Outra possibilidade que vai de encontro com sua observação é a restrição por IP você pode utilizar a variável do PHP $_server para resgatar o IP do usuário aqui o link onde pode tirar suas duvidas a respeito dela Manual PHP depois é só gravar o IP no banco junto com a resposta e antes de exibir o quiz é só verificar no banco se existe registro daquele IP. Duvida posta ai.
  4. Bom pessoal descobri como fazer o resgate dos valores da variável $_POST . A variável $_POST e uma matriz, então vamos usar o comando” foreach” para imprimir na tela os vares do POST. Foreach: http://br.php.net/manual/pt_BR/control-str...res.foreach.php Exemplo: <?php foreach($_POST as $k => $v) { print "<div>$k => $v"; } ?> <html> <head> <title></title> </head> <body> <form name="teste" method="post" action="teste.php"> <input type="text" name="teste_name" value="teste_valor"/> <input type="submit" value="Submit" /> </form> </body> </html>
  5. Pessoal, estou com uma duvida: tenho um formulário cujos dados são resgatados no PHP via POST, até ai tudo bem, mais ai que surge minha duvida, este formulário é alimentado com nomes de campos que variam conforme as opções do usuário. Então como posso resgatar estas informações com seus nomes e valores correspondentes? Exemplo convencional: $_POST[“nome do campo”]
  6. Já consegui pessoal segue abaixo o script. O segredo esta em determinar a variável como data. Sub a() Dim DAT1, DAT2, DATA Range("a1").Select Do While IsEmpty(ActiveCell.Offset(0, 0)) = False DAT1 = CDate(ActiveCell) DAT2 = (CDate(DAT2) + CDate(DAT1)) ActiveCell.Offset(1, 0).Select Loop DATA = CDate(DAT2) MsgBox DATA End Sub
  7. Boa tarde pessoal, Estou com um dilema me martelando estou tentando fazer um calculo de soma de tempo em VBA mais não estou conseguindo. Por exemplo, na coluna A1 até A19 eu tenho uma relação de tempo em cada célula “Ex. A1 = 00:01:25, A2 = 00:04:25, A3 = 00:02:35” eu gostaria de somar este intervalo . Ágüem pode me ajudar? Abaixo eu fiz um script mais não rolo. Sub a() Dim DAT1, DAT2, DATA Range("a1").Select Do While IsEmpty(ActiveCell.Offset(0, 0)) = False DAT1 = ActiveCell DAT2 = (DAT2 + DAT1) ActiveCell.Offset(1, 0).Select Loop DATA = (DAT2) MsgBox DATA End Sub
  8. Consegui segue abaixo para mérito de conhecimento. Sub ts() Dim Path As String Dim nome As String Dim File1 As String Path = "C:\ " nome = "teste" File1 = Path & nome & ".xls" Workbooks.Open FileName:=File1 End Sub
  9. Boa noite pessoal, Estou com dois dilemas, mais vamos por parte estou tentado abrir um arquivo “xls” através de uma macro. Este arquivo tem um nome padrão e logo depois a data do dia anterior. Este processo tem que ser automático abaixo fiz um teste mais não sei como colocar a variável “VARIAVEL DATA” no caminho. Alguém pode me ajudar? Sub data() Dim data Data = Now() -1 Workbooks.Open Filename:="C:\macro\rel – “VARIAVEL DATA”.xls" End Sub
  10. Boa tarde pessoal, Eu ainda não qual é o caractere utilizado como coringa nestes casos, mas encontrei um jeito de resolver este caso segue logo abaixo a minha solução para este problema. Acho legal se alguém souber qual é o caractere coringa postar também. Sub teste() Range("B2").Select Do While IsEmpty(ActiveCell.Offset(0, 0)) = False '-------------------------- Declarando Variavel de Validação -------------------------- Dim D1, D2 D1 = Mid(ActiveCell, 1, 1) D2 = Mid(ActiveCell, 2, 1) '-------------------------- Localizando Matriz 02 -------------------------- ' Identificando URA If D1 = "0" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf D1 = "1" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf D1 = "2" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf D1 = "3" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf D1 = "4" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf D1 = "5" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf D1 = "6" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf D1 = "7" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf D1 = "8" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf D1 = "9" Then If D2 = "0" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "1" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "2" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "3" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "4" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "5" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "6" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "7" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "8" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D2 = "9" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ElseIf ActiveCell = "URA" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf ActiveCell = "UERA" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf ActiveCell = "UAR" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf ActiveCell = "UR" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf ActiveCell = "UA" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ' Identificando VDN ElseIf D1 = "A" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "B" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "C" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "D" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "E" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "F" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "G" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "H" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "I" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "J" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "K" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "L" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "M" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "N" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "O" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "P" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "Q" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "R" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "S" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "T" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "U" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ElseIf D1 = "V" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "W" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "X" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "Y" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf D1 = "Z" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" Else: ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ActiveCell.Offset(1, -12).Select Loop End Sub
  11. Boa tarde pessoal estou com uma duvida elaborei um script que analisa alguns critérios dentre eles se na célula seguinte o primeiro caractere começa com uma determinada letra “EX. A” mais não tive sucesso abaixo esta meu script. Se alguém puder dar uma força”. Ob. Conforme podem verificar já tentei utilizar o * mais não funcionou Sub teste() Range("B2").Select Do While IsEmpty(ActiveCell.Offset(0, 0)) = False '-------------------------- Localizando Matriz 02 -------------------------- ' Identificando URA If ActiveCell = "U*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "URA" ' Identificando VDN ElseIf ActiveCell = "A*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "B*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "C*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "D*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "E*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "F*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "G*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "H*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "I*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "J*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "K*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "L*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "M*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "N*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "O*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "P*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "Q*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "R*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "S*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "T*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "V*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "W*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "X*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "Y*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" ElseIf ActiveCell = "Z*" Then ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "VDN" Else ActiveCell.Offset(0, 12).Select ActiveCell.FormulaR1C1 = "N.I" End If ActiveCell.Offset(1, -12).Select Loop End Sub
  12. Bom dia pessoal, Estou com uma duvida cruel, estou desenvolvendo uma prova onlineja estou em uma parte aonde os instrutores justificam ou não a ausência de um aluno naquela prova ai esta minha duvida tenho duas tabela uma aonde esta todos os usuários e uma com nome de todos que fizeram a prova como que eu faço para listar os que faltam fazer esta prova?
  13. Rafael Spilki você estava certo no ASP funciona utilizando “%” mas direto no Access não da apresenta um erro mais o importante é que funcionou. Bareta valeu pela atenção. Segue abaixo o script talvez ajude alguém no futuro NE. Página que faz a conexão com o Banco de Dados CONFIG.INC <% '/////////////////////////////////////////////////////////////////////////////////// 'connection string Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("dados_user.mdb") '/////////////////////////////////////////////////////////////////////////////////// '/////////////////////////////////////////////////////////////////////////////////// 'cleanup routines Sub CleanUp(RS) RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing End Sub Sub CleanUp2() MyConn.Close Set MyConn = Nothing End Sub '//////////////////////////////////////////////////////////////////////////////////// %> Página que faz a Consulta <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Response.Buffer = True%> <!--#INCLUDE FILE="CONFIG.INC"--> <% Dim VALIT VALIT = Request.Form("ID") If VALIT <> "" Then VALIT = "1" ElseIf VALIT = "" Then VALIT = "2" End IF Select case VALIT case "1" CON_1(MyConn) case "2" CON_2(MyConn) End Select '///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// '- Declarando Variáveis DIM da consulta Select Dim SQL, ID, DATA, RE, NOME, OPCAO, DDD, LOCALIDADE, TERMINAL, REGIAO, BC, CONTATOS, MOTIVO, SITUACAO, TRATATIVA, STATU, DIRECIONADO, SEGMENTO, OBSERVACAO, RETORNO '///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Sub CON_1(MyConn) '- Declarando Variáveis do Request.Form Dim IDF '- Determinando Valores das Variáveis do Request.Form IDF = Request.Form("ID") '- Estrutura HTML da TABELA e do Cabeçalho das Colunas Response.Write "<table border=""1"" bordercolor=""#FF6600"">" Response.Write "<tr bgcolor=""#FF6600"">" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">ID</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DATA</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RE</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">NOME</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OPÇÃO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DDD</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">LOCALIDADE</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TERMINAL</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">REGIAO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">BC SPEENET</span> </div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">CONTATOS</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">MOTIVO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SITUACAO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TRATATIVA</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">STATUS</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DIRECIONADO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SEGMENTO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OBSERVACAO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RETORNO</span></div></td>" Response.Write "</tr>" '- Determinando Consulta Select SQL = "Select * From RETORNO WHERE ID = "&IDF&"" Set RS = MyConn.Execute(SQL) While Not RS.EOF '- Determinando valores das Variáveis DIM da consulta Select e Validando dados do Select IF RS("OPCAO") <> "" Then OPCAO = RS("OPCAO") ELSE OPCAO = "-" END IF IF RS("DDD") <> "" Then DDD = RS("DDD") ELSE DDD = "-" END IF IF RS("LOCALIDADE") <> "" Then LOCALIDADE = RS("LOCALIDADE") ELSE LOCALIDADE = "-" END IF IF RS("TERMINAL") <> "" Then TERMINAL = RS("TERMINAL") ELSE TERMINAL = "-" END IF IF RS("REGIAO") <> "" Then REGIAO = RS("REGIAO") ELSE REGIAO = "-" END IF IF RS("BC") <> "" Then BC = RS("BC") ELSE BC = "-" END IF IF RS("CONTATOS") <> "" Then CONTATOS = RS("CONTATOS") ELSE CONTATOS = "-" END IF IF RS("MOTIVO") <> "" Then MOTIVO = RS("MOTIVO") ELSE MOTIVO = "-" END IF IF RS("SITUACAO") <> "" Then SITUACAO = RS("SITUACAO") ELSE SITUACAO = "-" END IF IF RS("TRATATIVA") <> "" Then TRATATIVA = RS("TRATATIVA") ELSE TRATATIVA = "-" END IF IF RS("STATU") <> "" Then STATU = RS("STATU") ELSE STATU = "-" END IF IF RS("DIRECIONADO") <> "" Then DIRECIONADO = RS("DIRECIONADO") ELSE DIRECIONADO = "-" END IF IF RS("SEGMENTO") <> "" Then SEGMENTO = RS("SEGMENTO") ELSE SEGMENTO = "-" END IF IF RS("OBSERVACAO") <> "" Then OBSERVACAO = RS("OBSERVACAO") ELSE OBSERVACAO = "-" END IF IF RS("RETORNO") <> "" Then RETORNO = RS("RETORNO") ELSE RETORNO = "-" END IF '- Estrutura HTML da Linha da Tabela aonde os dados serão imputados do Select Response.Write "<tr>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&ID&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DATA&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RE&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&NOME&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OPCAO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DDD&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&LOCALIDADE&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TERMINAL&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"®IAO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&BC&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&CONTATOS&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&MOTIVO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SITUACAO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TRATATIVA&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&STATU&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DIRECIONADO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SEGMENTO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OBSERVACAO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RETORNO&"</span></td>" Response.Write "</tr>" '- Faz um Loop do Select RS.MoveNext Wend CleanUp(RS) End sub '///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Sub CON_2(MyConn) '- Declarando Variáveis do Request.Form Dim REF, DDDF, LOCALIF, TERMIF, DATA_INF, DATA_FIMF '- Determinando Valores das Variáveis do Request.Form REF = Request.Form("RE") DDDF = Request.Form("DDD") LOCALIF = Request.Form("LOCALI") TERMIF = Request.Form("TERMI") DATA_INF = "#" & Request.Form("dtiniregistro") &" "& Request.Form("hriniregistro") &"#" DATA_FIMF = "#" & Request.Form("dtfimregistro") &" "& Request.Form("hrfimregistro") &"#" '- - Verificando Variáveis vazias IF REF = "" Then REF = "LIKE '%'" ELSE REF = "= "&REF&"" END IF IF DDDF = "" Then DDDF = "LIKE '%'" ELSE DDDF = "= "&DDDF&"" END IF IF LOCALIF = "" Then LOCALIF = "LIKE '%'" ELSE LOCALIF = "= "&LOCALIF&"" END IF IF TERMIF = "" Then TERMIF = "LIKE '%'" ELSE TERMIF = "= "&TERMIF&"" END IF '- Estrutura HTML da TABELA e do Cabeçalho das Colunas Response.Write "<table border=""1"" bordercolor=""#FF6600"">" Response.Write "<tr bgcolor=""#FF6600"">" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">ID</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DATA</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RE</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">NOME</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OPÇÃO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DDD</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">LOCALIDADE</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TERMINAL</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">REGIAO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">BC SPEENET</span> </div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">CONTATOS</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">MOTIVO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SITUACAO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TRATATIVA</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">STATUS</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DIRECIONADO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SEGMENTO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OBSERVACAO</span></div></td>" Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RETORNO</span></div></td>" Response.Write "</tr>" '- Determinando Consulta Select SQL = "Select * From RETORNO WHERE ID LIKE '%' And RE "&REF&" And DDD "&DDDF&" And LOCALIDADE "&LOCALIF&" And TERMINAL "&TERMIF&" And DATA BETWEEN "&DATA_INF&" And "&DATA_FIMF&"" Set RS = MyConn.Execute(SQL) While Not RS.EOF '- Determinando valores das Variáveis DIM da consulta Select e Validando dados do Select IF RS("OPCAO") <> "" Then OPCAO = RS("OPCAO") ELSE OPCAO = "-" END IF IF RS("DDD") <> "" Then DDD = RS("DDD") ELSE DDD = "-" END IF IF RS("LOCALIDADE") <> "" Then LOCALIDADE = RS("LOCALIDADE") ELSE LOCALIDADE = "-" END IF IF RS("TERMINAL") <> "" Then TERMINAL = RS("TERMINAL") ELSE TERMINAL = "-" END IF IF RS("REGIAO") <> "" Then REGIAO = RS("REGIAO") ELSE REGIAO = "-" END IF IF RS("BC") <> "" Then BC = RS("BC") ELSE BC = "-" END IF IF RS("CONTATOS") <> "" Then CONTATOS = RS("CONTATOS") ELSE CONTATOS = "-" END IF IF RS("MOTIVO") <> "" Then MOTIVO = RS("MOTIVO") ELSE MOTIVO = "-" END IF IF RS("SITUACAO") <> "" Then SITUACAO = RS("SITUACAO") ELSE SITUACAO = "-" END IF IF RS("TRATATIVA") <> "" Then TRATATIVA = RS("TRATATIVA") ELSE TRATATIVA = "-" END IF IF RS("STATU") <> "" Then STATU = RS("STATU") ELSE STATU = "-" END IF IF RS("DIRECIONADO") <> "" Then DIRECIONADO = RS("DIRECIONADO") ELSE DIRECIONADO = "-" END IF IF RS("SEGMENTO") <> "" Then SEGMENTO = RS("SEGMENTO") ELSE SEGMENTO = "-" END IF IF RS("OBSERVACAO") <> "" Then OBSERVACAO = RS("OBSERVACAO") ELSE OBSERVACAO = "-" END IF IF RS("RETORNO") <> "" Then RETORNO = RS("RETORNO") ELSE RETORNO = "-" END IF '- Estrutura HTML da Linha da Tabela aonde os dados serão imputados do Select Response.Write "<tr>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&ID&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DATA&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RE&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&NOME&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OPCAO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DDD&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&LOCALIDADE&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TERMINAL&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"®IAO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&BC&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&CONTATOS&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&MOTIVO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SITUACAO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TRATATIVA&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&STATU&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DIRECIONADO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SEGMENTO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OBSERVACAO&"</span></td>" Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RETORNO&"</span></td>" Response.Write "</tr>" '- Faz um Loop do Select RS.MoveNext Wend CleanUp(RS) End sub '///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// %> <html> <head> <title>Untitled Document</title> </head> <body> </body> </html>
  14. Bom dia Rafael Spilki, na verdade neste caso não haveria valor algum seria apenas o coringa mesmo. O que eu estou tentando fazer na verdade é um consulta com vários critérios “campos” mais caso do usuário não preencha o campo então este tampo teria o valor de um coringa. E se não me engano “%” não é aceito como coringa no Access.
  15. Olá Hnsilveira, fiz correndo mais acho que vai dar certo. Mais da para ficar, mas simples, você só tem que modificar no código a parte “nome_da_tabela”, para o nome da tabela que contém os dados” NOME, NIVER, TELEFONE e CELULAR”. Abraço. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>Select</title> </head> <table border="1" bordercolor="#FF6600"> <tr bgcolor="#FF6600"> <td bordercolor="#FF6600"><div align="center"><span class="style5">NOME</span></div></td> <td bordercolor="#FF6600"><div align="center"><span class="style5">NIVER</span></div></td> <td bordercolor="#FF6600"><div align="center"><span class="style5">TELEFONE</span></div></td> <td bordercolor="#FF6600"><div align="center"><span class="style5">CELULAR</span></div></td> </tr> <% Sub CleanUp(RS) RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing End Sub Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("dados.mdb") SQL = "Select nome, niver , telefone, celular From nome_da_tabela" Set RS = MyConn.Execute(SQL) While Not RS.EOF %> <tr> <td bordercolor="#FF6600"><span class="style3"><%=RS("NOME")%></span></td> <td bordercolor="#FF6600"><span class="style3"><%=RS("NIVER")%></span></td> <td bordercolor="#FF6600"><span class="style3"><%=RS("TELEFONE")%></span></td> <td bordercolor="#FF6600"><span class="style3"><%=RS("CELULAR")%></span></td> </tr> <% RS.MoveNext Wend CleanUp(RS) %> </table> <body> </body> </html>
×
×
  • Criar Novo...