Ir para conteúdo
Fórum Script Brasil

fjralberto

Membros
  • Total de itens

    21
  • Registro em

  • Última visita

Sobre fjralberto

  • Data de Nascimento 03/02/1980

Contatos

  • MSN
    fjralberto@hotmail.com
  • Yahoo
    fjralberto@yahoo.com.br

Perfil

  • Gender
    Male
  • Location
    Vivo S/A - Sede

fjralberto's Achievements

0

Reputação

  1. e o mesmo vale pro .checked. 5 - corrija o nome da variavel, você usa ck numa linha e ch na outra. 6 - feche a funcao retorno() q não esta sendo fechada. veja se não funciona agora. Então... Eu realizei as alterações mas não funcionou!! O código completo está assim!!! O que será que está acontencendo? <?php //Arquivo de Segurança include("seguranca.php"); //Chama a função que protege a página protegePagina(); ?> <html> <head> </head> <body> <form name='frmFiltro' id='frmFiltro'> <input type='hidden' name='filtro' value='-1'> <?php $sql = "select * from cadmembro_cdm order by 1"; $resultado = mysql_query($sql); echo ("<table width='100%' border='0'>\n"); $cont = 0; for($i = 0; $i <= mysql_num_rows($resultado); ++$i) { for ($intCont = 0; $intCont < 3; $intCont++) { $linha = mysql_fetch_array($resultado); if ($i > $linha){ break; } // Zebrando linhas da lista if ($cont % 2 == 0){ $cor = "#f2f2f2"; }else{ $cor = "#ffffff"; } // Recuperando os valos do banco $codigo = $linha[0]; $nome = $linha[1]; $sobrenome = $linha[2]; $endereco = $linha[3]; $numero = $linha[4]; $complemento = $linha[5]; $cep = $linha[6]; $bairro = $linha[7]; $cidade = $linha[8]; $estado = $linha[9]; $uf = $linha[10]; $dtnascimento = $linha[11]; $sexo = $linha[12]; $estadocivil = $linha[13]; $telefoneres = $linha[14]; $telefonecom = $linha[15]; $telefonecel = $linha[16]; $email = $linha[17]; $dtconversao = $linha[18]; $jafoibatizado = $linha[19]; $dtbatismo = $linha[20]; $possuidef = $linha[21]; $descdef = $linha[22]; $observacao = $linha[23]; echo "<tr bgcolor='".$cor."'>\n"; echo "<td><input type='radio' name='filtro' value='$codigo'></td>\n"; echo "<td>". $codigo ."</td>\n"; echo "<td>". $nome ."</td>\n"; echo "<td>". $sobrenome ."</td>\n"; $i++; $cont++; } } echo ("</table>"); ?> <input type="submit" name="carregabasico" id="carregabasico" value="Carregar" OnClick="java script: retorno();"> </form> &lt;script language="javascript"> function retorno(){ var vfiltro = document.getElementById("frmFiltro").elements["filtro"]; var ck=0; for (i=0;i<vfiltro.length();i++){ alert(vfiltro); if (vfiltro[i].checked()){ ck=1; } } if (ck==0) { alert("Favor informar uma opção"); return; } opener.document.frmDadosCadMemb.codigo.value=10; opener.document.frmDadosCadMemb.nome.value='Alberto'; opener.document.frmDadosCadMemb.sobrenome.value='Fernandes Junior'; } </script> </body> </html>
  2. Frmfiltro e o nome de um formulario Filtro e o um campo do tipo radio do formulario frmfiltro
  3. ops... Na verdade eu havia colocado assim. <script language="javascript"> function retorno(){ var vfiltro=frmFiltro.filtro; var ck=0; for (i=0;i<vfiltro.size();i++){ if (vfiltro[i].checked()){ ck=1; } } if (ch==0) { alert("Favor informar uma opção"); return; } </script> E não funciona... você poderia me dizer o que há de errado? E como seria o certo?
  4. Pessoal... Não estou conseguindo que a função for seja executada!!!! Alguém pode me dar uma ajuda? <script language="javascript"> function retorno(){ var vfiltro=frmFiltro.filtro; var ck=0; for (i=0;i<vfiltro.length();i++){ if (vfiltro[i].checked()){ ck=1; } } if (ch==0) { alert("Favor informar uma opção"); return; } </script> Abs,
  5. Pessoal, boa tarde. Eu tenho uma página de cadastro de pessoas em PHP onde lá existe um botão pesquisar. Ao pressionar esse botão é exibido uma lista dentro de um popup com todas as pessoas já cadastradas. As pessoas já cadastradas que aparecem no pupup são exibidas dentro de uma tabela onde cada linha de registro possui um radio para que o registro escolhido seja selecionado fechando o popup em seguida e aquele registro que havia sido selecionado apareça por completo na página de cadastro. Entretanto, a dificuldade está aí... fazer com que o registro escolhido na tela do pupup (consulta) seja carregado na página de cadastro. Como fazer isto?
  6. Boa tarde. Estou necessitanto criar uma classe de conexão à bd oracle, entretando gostaria que essa classe fosse criada e sua utilização através de componentes criados em tempo de execução, pois não quero no form nenhum componente a vista... alguém saberia como fazer isso? Abs à todos! E antecipadamente agradeço a ajuda!
  7. Pessoal, bom dia à todos. Estou realizando um projeto aqui no serviço onde basicamente consiste em eu acessar uma base de dados em SLQ que está em um dado servidor e fazer com que todos os dados dessa tabela sejam trazidos para uma tabela no access. Para isso eu criei uma conexão odbc através do módulo do access, entretanto sei que há outras formas de realizar essa conexão, mas gostaria que vocês pudessem me auxiliarem a criar esta através de um módulo no Access. Parte da conexao já está pronta (segue abaixo), agora minha dúvida é como jogar esses dados que estão no select para uma tabela no próprio access. Option Compare Database Public Sub Dados_View_BDs() ' Atribuindo para as variaveis o nome de usuário e senha para acesso a view. Usuario = "user_speedy" Senha = "user_speedy" ' Cria a conexão. Dim cnPubs As ADODB.Connection Set cnPubs = New ADODB.Connection ' Variável para armazenar a String de Conexão. Dim strConn As String ' Informa o SQL Server OLE DB Provider. strConn = "PROVIDER=SQLOLEDB;" ' Conecta à base de dados Teste_Processo no servidor local. strConn = strConn & "DATA SOURCE=sflimaiii021; User ID=" & Usuario & "; Password=" & Senha & ";INITIAL CATALOG=DB_MUDANCA_SPEEDY;" ' Abre a conexão. cnPubs.Open strConn ' Cria o objeto Recordset. Dim rsPubs As ADODB.Recordset Set rsPubs = New ADODB.Recordset With rsPubs ' Associa a conexão. .ActiveConnection = cnPubs ' Extrai os dados acumulado. .Open "SELECT * FROM dbo.VW_OS_SPY_APARTIR_MAIO09" >>> ACREDITO SER AQUI O PROBLEMA!!! ' Coloca os dados na planilha. .Update rsPubs ' Fecha a transação. .Close End With ' Fecha conexão cnPubs.Close Set rsPubs = Nothing Set cnPubs = Nothing End Sub Abs, Alberto
  8. fjralberto

    Copiar e colar VBA

    Boa tarde à todos... Eu criei uma rotina para Copiar dados de uma pasta de trabalho excel de um arquivo específico para outra pasta de trabalho de outro arquivo excel. Entretando... A rotina é executada sem erros, e existem momentos que ele copia o valor desejado, mas na hora de colar o valor não aparace! Porque acontece isso? Abs, Alberto :huh:
  9. fjralberto

    Planilha do Excel

    Boa tarde à todos. Gostaria de saber como me referenciar à uma planilha do excel através de vba do próprio excel, sendo que, eu comheço 2 maneiras de fazer isso, através do "Sheets" onde eu defino o índice da planilha (que é a ordem em que a planilha se encontra ou definir o nome que foi dado à ela. Entretanto eu gostaria de me referenciar a ela através do nome de "registro" dela, aquele que aparece para mim no name da lista de propriedade do VBA. Alguém sabe como fazer isso? Abs, Alberto :wacko:
  10. Alguém pode me ajudar? Abs, Alberto Algúem pode me ajudar? Abs, Alberto Alguém pode me ajudar? Abs, Alberto
  11. Boa tarde à todos. Estou realizando uma automatização do Excel para o Powerpoint, ou seja, eu tenho gráficos prontos (MS-Graph) no PowerPoint e eu já alimento suas informações com dados a partir do excel. A dúvida é a seguinte: as colunas do MS-Graph possuem um recurso que quando "damos" um duplo clique sobre seu cabeçalho elas ficam "aparentemente" ocultas/inativas fazendo com que os dados de sua coluna não sejam exibidos no gráfico. por gentileza, alguém pode me dar uma luz como eu realizo esse "ocutar/desativar" e "desocultar/ativar" através de código VBA? Pois já presquisei em diversas bibliograficas e outros meios e não consegui respostas. Abs, Alberto
  12. Boa tarde à todos. Possuo uma planilha excel onde este possui 4 pastas (Plan1 até Plan4), eu criei através do VBA uma rotina que cria um novo arquivo excel e que copia todas as planilhas deste arquivo de origem para o atual criado, entretanto, as planilhas do arquivo de origem possuem vinculos entre sí, e percebi que ao copiar estas planilhas para o novo arquivo esses vinculos são perdidos. Como faço para que quando eu copiar as planilhas para um novo .XLS os vinculos (Funções) sejam mantidos para esse novo arquivo também. Abs, Alberto :unsure:
  13. Boa tarde a todos. Estou com uma certa dificuldade. Criei uma string de conexao a uma base de dados, entretanto fiz isso de maneira que o usuário e a senha sejam digitados na propria planilha... Usuario = Worksheets("Plan1").Range("B5") Senha = Worksheets("Plan1").Range("B6") strConn = strConn & "DATA SOURCE=(local); User ID=" & Usuario & "; Password=" & Senha & ";INITIAL CATALOG=Teste_Processo;" só que eu gostaria de criar uma verificação de acesso,onde do qual caso a pessoa digite a senha ou usuário errado apareça uma mensagem de "usuário inválido". Como eu faço isso? Abs, Alberto
  14. Eu rodei o código e não acho que não percebi nenhuma diferença exceto pelo printf erro que foi adicionado, mas de qualquer maneira este print está acontecendo porque o -1 está existindo... e a questão é justamente essa... porque o -1 está sendo retornado. Abs,
  15. Jonathan, de fato foi associando à string que eu como disse estaria "viajando", entretanto referente ao -1, eu concordo com você que ele deveria retornar a 0, mas o porque ele está retornando à -1, inclusive eu coloquei no uma linha //printf("%i\n", pos); no momendo que a variável "pos" recebe o retorno, do qual deveria ser 0, porém ele está exibindo na tela o próprio -1. Sei que disse que iria estudar o código melhor, porém você tem um "cheiro" do que possa estar acontecendo?
×
×
  • Criar Novo...