moisesf

Perfeito! Muito obrigado. Imaginei que seria necessário saber quantos convênios haveriam na lista separada por vírgula, mas não sabia como fazer. Já testei e está tudo ok. Abraços Obrigado novamente

Olá amigos, estou com um pequeno problema. Tenho num formulário um campo texto (outros_convenios) que virá com valores separados por vírgula Exemplo: Nome do convenio 1, nome do convenio 2, nome do convenio3, assim por diante. Fiz o segunte: function converte_convenios($outros_convenios){ $rray_conv=(trim($outros_convenios)); $lista=array($rray_conv); foreach($lista as $selecionados) { $separa = explode(',', $selecionados); $convenio = $separa[0]; echo "$convenio <br />"; $sql = "insert into lista_convenios (convenio) values('$convenio')"; $sql = mysql_query($sql) or die ("Erro na Gravação na Lista dos Convênios"); } } Este loop está registrando apenas o primeiro valor, como faço para registrar todos os valores? Entendo que 0 "$convenio = $separa[0]" que faz a separação, mas poderá haver apenas um convênio ou muitos convênios separados por vírgula. Talvez seja necessário saber quantos convênios haverá na lista separados por vírgula para calcular o loop? Obrigado;

Não posso fazer like no nome_clinica no select, pois preciso antes da comparação, converter o que vem do banco de dados para sem acento e sem cedilha. A comparação está sendo feita no if

Fiz o seguinte para funcionar: Dei o loop em todos os dados para achar o cep e somente depois converti a string nome_clinica para sem acento e sem cedilha. Mas o problema agora é que acha somente com o nome da clínica idêntico. Como fazer este tipo de comparação no if, para listar também as que iniciam com clínicas? Por exemplo, se na busca colocar apenas clínica, listaria todas as clínicas daquele cep que encontrei no select. $sql = "select * from medicos_end_atend where cep_clinica='$cep_clinica'"; $pesquisa_endereco=mysql_query($sql) or die ("Não foi possível realizar a consulta nos endereços de Atendimento"); $contareg = mysql_num_rows($pesquisa_endereco); if ( $contareg >= 1 ) { while($linha=mysql_fetch_array($pesquisa_endereco)){ $nomeencontrado=$linha["nome_clinica"]; $comparanome=stringRetiraAcento($nomeencontrado); } if ($comparanome == $nomeclinica) { echo '<span style="color:red;">Registro Encontrado</span>'; } else { echo '<span style="color:green;">Registro não Encontrado</span>'; } }

Mas eu preciso de comparar o que há no banco de dados sem acentos e cedilhas. Ou seja, deixar tanto a palavra de busca e o que há no banco de dados no mesmo formato para se fazer a comparação, desta forma acharia tanto com acento e sem acento na busca. Ou estou usando o método errado? Tem alguma ideia? Se eu der um select em tudo para depois comparar, acho que ficaria muito pesado quando o banco tiver muitos registros.

Fiz uma função que retira todos os acentos da string e a chamo duas vezes. A primeira que vem do form com o nome $nome_clinica $nomeclinica=stringRetiraAcento($nome_clinica); A segunda chamo dentro do select. $sql = "select * from medicos_end_atend where ".stringRetiraAcento('nome_clinica')." REGEXP '$nomeclinica' and cep_clinica='$cep_clinica'"; A string que vem do form está sendo convertida, mas a que está vindo do banco de dados não. Será que minha chamada no select está errada? $sql = "select * from medicos_end_atend where ".stringRetiraAcento('nome_clinica')." REGEXP '$nomeclinica' and cep_clinica='$cep_clinica'"; Obrigado;

Olá amigos. Acabou que achei uma forma de dar certo, se houver uma forma melhor podem postar. [cod] foreach($_POST['especialidade'] as $valor) { $opcoes [] = $valor; } foreach($opcoes as $selecionados) { $lista = explode("/", $selecionados); $cod_especialidade = $lista[0]; $medico_especialidade = $lista[1]; $sql = "insert into medicos_especialidades (cod_especialidade,medico_especialidade)values('$cod_especialidade','$medico_especialidade')"; $sql = mysql_query($sql) or die ("Erro na Gravação dos Dados da Especialidade Médica!!!"); } [/cod] }

Não dá certo, pois o campo checkbox está passando dois valores em cada escolha que é cod_especialidade e medico_especialidade O value está sendo passado assim: value='$cod_especialidade,$especialidade' $sql = "insert into medicos_especialidades (cod_especialidade,medico_especialidade)values('$cod_especialidade','$medico_especialidade')";

Tenho um foreach que funciona perfeitamente com um único valor que vem do formulário de campos checkbox. Se seleciono várias opções o foreach grava de um a um no banco de dados. O problema é que no campo value preciso de passar dois valores. Esse imput é preenchido no cadastro para o cliente fazer múltiplas escolhas, tenho que passar dois valores, código e nome da especialidade. echo "<input type='checkbox' name='especialidade[]' value=$cod_especialidade,$especialidade' id='cod_especialidade'/>"; echo "<label for='checkbox' id='checkbox'> $especialidade</label><br />"; Quando o cliente clica em Registrar chama a função registra especialidades, como abaixo. registra_especialidades($especialidade); Se eu passar apenas um valor na propriedade value do checkbox, gravo cada escolha do cliente sem problemas, mas preciso de gravar dois valores como coloquei no value acima. Só estou conseguindo pegar o primeiro valor, o segundo valor(cod_especialidade) não estou pegando($especialidade) Ou seja acho que não está entendendo o separador. Como posso arrumar isso? Função Registra Especialidades function registra_especialidadeS($especialidade){ foreach($_POST["especialidade] as $espec) { echo "$espec <br />";//APENAS PARA VERIFICAR OS DADOS SE ESTÃO SENDO ENVIADOS $lista=array($espec); $cod_especialidade = $lista[0]; $medico_especialidade = $lista[0][1]; $sql = "insert into medicos_especialidades (cod_especialidade,medico_especialidade)values('$cod_especialidade','$medico_especialidade')"; $sql = mysql_query($sql) or die ("Erro na Gravação dos Dados da Especialidade Médica!!!"); } } Este abaixo funciona perfeitamente, mas pega somente um valor de cada vez. foreach($_POST["especialidade"] as $espec) { echo "$espec <br />";//APENAS PARA VERIFICAR OS DADOS SE ESTÃO SENDO ENVIADOS $sql = "insert into medicos_especialidades (espec)values('$espec')"; $sql = mysql_query($sql) or die ("Erro na Gravação dos Dados da Especialidade Médica!!!"); } }

Tenho um formulário com checkbox, que me retornarão valores separados por vírgula com o uso do implode. A contagem do retorno já descobri como faz, usando count(); $espec = $_POST["especialidade"]; $cod_especialidades= implode(",",$espec); echo $cod_especialidades; $cod_cliente = $_POST["cod_cliente"]; Exemplo do retorno que receberei do form: cod_cliente=21"; cod_especialidade= "12, 14, 55, 102"; Minha tabela contem os seguntes campos: cod_cliente e cod_especialidade. $total_especialidades=count($cod_especialidades); for ($i = 1; $i <= $total_especialidades; $i++) { echo $i; $sql = "insert into especialidade (cod_cliente,cod_especialidade)values('$cod_cliente','$cod_especialidade')"; $sql = mysql_query($sql) or die ("Erro na Gravação!!!"); } Preciso que conte os cod_especialidade que retornaram do form e sejam gravados de um a um. No caso acima foram 4 cod_especialidades. Então gravaria 4X cada cod_especialidade para o mesmo cod_cliente, mas claro que linhas diferentes. Podem me ajudar? Grato; MoisésF Vou tentar FOREACH, no exemplo abaixo eu consegui mostrar os códigos separados, vou ver se faz o mesmo com o banco de dados. foreach($_POST["especialidade] as $espec) { echo $espec; echo "<script language=\"javascript\" type=\"text/javascript\"> alert(\"Ola mundo ;p $espec \"); </script>"; } ?>

Quando seleciono a mídia artística, a lista com os thumbnails está em branco, mas as mídias estão lá e funcionam, apenas não aparecem. Já reinstalei o coreldraw X5, limpei registro e não acho o problema. Alguém já passou por isso?

Obrigado pela ajuda. Abraços Moisés

Achei o erro. funcionou. x,y : Integer; NovaSenha : String; aSenha: string; chave: string; onde: string; //resultfinal:string; RETIREI EStA DECLARAÇÃO QUE ESTAVA REDUNDANTE

Fiz isso mesmo, e continua retornando strig vasia. O valor passasenha está indo corretamente Mas o retorno desse valor não está vindo. Ao menos que eu coloque o comando dentro da function para joar o resultfinal num campo texto e apanhar o resultado de lá. var Form1: TForm1; resultfinal : string; implementation {$R *.dfm} function TForm1.criptpass(passasenha:string):string; var x,y : Integer; NovaSenha : String; aSenha: string; chave: string; onde: string; resultfinal:string; begin ////////// Chave := 'Kalos'; aSenha:=passasenha; for x := 1 to Length( Chave ) do begin NovaSenha := ''; for y := 1 to Length( aSenha ) do NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(aSenha[y]))); aSenha := NovaSenha; end; resultfinal := aSenha; //showmessage(resultfinal); ////////////// end; procedure TForm1.DBGrid1Click(Sender: TObject); var passasenha: string; begin //ShowMessage('Clicou no DBGrid!'); pertencetxt.text:=ClientDataset1.FieldByName('pertence').AsString; nometxt.text:=ClientDataSet1.FieldByName('nome').AsString; passasenha:=ClientDataSet1.FieldByName('senha').AsString; criptpass(passasenha); showmessage(resultfinal); //senhatxt.text:=ClientDataSet1.FieldByName('senha').AsString; senhatxt.text:=criptpass(passasenha); emailtxt.text:=ClientDataSet1.FieldByName('email').AsString; descricaotxt.text:=ClientDataSet1.FieldByName('descricao').AsString; pertencetxt.SetFocus; if ClientDataSet1.state in [dsedit, dsinsert] = false then begin ClientDataSet1.Edit;{A TABELA ENTRA EM MODO DE EDIÇÃO} end; end;

Tenho a função abaixo que retorna um valor resultado final, preciso desse resultado final numa procedure, como fazer isso? procedure DBGrid1Click(Sender: TObject); function criptpass(passasenha:string):string; public { Public declarations } end; var Form1: TForm1; implementation function TForm1.criptpass(passasenha:string):string; var x,y : Integer; NovaSenha : String; aSenha: string; chave: string; onde: string; resultfinal:string; begin ////////// Chave := 'Kalos'; aSenha:=passasenha; for x := 1 to Length( Chave ) do begin NovaSenha := ''; for y := 1 to Length( aSenha ) do NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(aSenha[y]))); aSenha := NovaSenha; end; resultfinal := aSenha; //showmessage(resultfinal); ////////////// end; Abaixo a procedure que passa o valor: PASSASENHA para a função CRIPTPASS e deveria pegar o result final da função criptpass e devolver para essa procedure, é possível? procedure TForm1.DBGrid1Click(Sender: TObject); var passasenha,resultfinal,ani: string; begin pertencetxt.text:=ClientDataset1.FieldByName('pertence').AsString; nometxt.text:=ClientDataSet1.FieldByName('nome').AsString; passasenha:=ClientDataSet1.FieldByName('senha').AsString; criptpass(passasenha);//CHAMA A FUNÇÃO CRIPT PASS showmessage(resultfinal); //senhatxt.text:=ClientDataSet1.FieldByName('senha').AsString; senhatxt.text:=resultfinal;//AQUI DEVERIA ENTRAR RESULTFINAL emailtxt.text:=ClientDataSet1.FieldByName('email').AsString; descricaotxt.text:=ClientDataSet1.FieldByName('descricao').AsString; pertencetxt.SetFocus; if ClientDataSet1.state in [dsedit, dsinsert] = false then begin ClientDataSet1.Edit;{A TABELA ENTRA EM MODO DE EDIÇÃO} end; end; Grato; Moisés