YAKKOO(FEM)

OI GENTE, TO COMEÇANDO AGORA NO FLASH... SERA QUE alguém PODERIA ME AJUDAR, DIZENDO COMO CRIO UM CAMPO INPUT TYPE? BRIGADIM BJOS

ola... fiz tudo o q você falou...mas da um erro: falando que o registro falhou. o q mais posso fazer?

Galera, uso o Cdonts para enviar emails,,,minha pagina funciona normalmente, mas os emails não chegam na caixa para onde foram direcionados. alguém pode me ajudar? Valeu...bjim

MENTIRA não CONSEGUI não..... OLHA O COMANDO QUE TO USANDO: var ArqTxt : TextFile; Linha, Codigo, Cliente, Atendimento, Leito, Medicamento : string; x : Integer; Achou : boolean; begin AssignFile(ArqTxt,'C:\PROCORDIS.txt'); Reset(ArqTxt); Achou := False; while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); Codigo := Copy(Linha,1,Pos(';',Linha)-1); delete(Linha,1,Pos(';',Linha)); Cliente := Copy(Linha,1,Pos(';',Linha)-1); delete(Linha,1,Pos(';',Linha)); Leito := Copy(Linha,1,Pos(';',Linha)-1); delete(Linha,1,Pos(';',Linha)); Atendimento := Copy(Linha,1,Pos(';',Linha)-1); delete(Linha,1,Pos(';',Linha)); x := Length(Linha) - Length(Atendimento); Medicamento := Copy(Linha,Pos(';',Linha)+1,x); if trim(EditNProntuario.text) = Codigo then begin EditNomePaciente.Text := Cliente; ComboBoxLeito.Text := Leito; ComboBoxNAtendimento.Text := Atendimento; MemoVaiParaPrescricao.Lines.Add(Medicamento); Achou := True; Exit; end; end; Linha := ''; Closefile(ArqTxt); O MEU ARQUIVO TXT É O SEGUINTE: 1669275;CARLOS MURILO ROCHA;1;1;MEDIC1;MEDIC2;MEDIC3; 1683894;WELLINGTON BRUNO DUTRA CUSTODIO;2;2;MEDIC1;MEDIC2;MEDIC3; ELE LE TUDO DIREITINHO, SO QUE NA HORA DE MOSTRAR NO MEMO OS MEDICAMENTO ELE MOSTRA COMO TA NO TXT, QUERIA QUE DEPOIS DE CADA ;DO MEDICAMENTO FOSSE DADA UMA QUEBRA DE LINHA (ENTER). SE PUDEREM MEAJUDAR ........ BRIGADIM BJO

VALEU COLEGA, ONSEGUI LER OS DADOS CERTINHOS AKI..VALEU BJIM

OI GENTE... TO PRECISANDO DO SEGUINTE: TENHO UM TXT ASSIM: . . .;MEDICAMENTO1;MEDICAMENTO12 TO LENDO ELE DA SEGUINTE FORMA, E TA FUNCIONANDO BELEZA. x := Length(Linha) - Length(Leito); Medicamento := Copy(Linha,Pos(';',Linha)+1,x); . . . MemoVaiParaPrescricao.Lines.Add(Medicamento); SO QUE NA HORA DE MOSTAR OS DADOS NO MEMO FICA COMO ESTA NO TXT (. . .;MEDICAMENTO1;MEDICAMENTO2) E ASSIM não SERVE PRA MEU SISTEMINHA, PRECISO QUE DEPOIS DE CADA PONTO E VIRGULA( DE UMA QUEBRA DE LINHA (ENTER) E OS DADOS APAREÇAM ASSIM NO MEMO: MEDICAMENTO 1 MEDICAMENTO 2 . . . COMO POSSO FAZER ISSO? VALEU... BJIM A TODOS

BOM DIA ... VOU COLOCAR: MEDIAMENTO 1- MEDICAMENTO 2 .....EM UM MEMO.

DE UMA OLHADA NO CODIGO ABAIXO: ELE PAEGAVA SOMENTE (111-JOAO-1). AGORA PRECISO ALTERA-LO PARA PEGAR (111-JOAO-1-MEDICAMENTO1-MEDICAMENTO2-MEDICAMENTO3...) SERA Q você PODE ME AJUDAR? ///----- var ArqTxt : TextFile; Linha, Codigo, Cliente, Atendimento : string; x : Integer; Achou : boolean; begin AssignFile(ArqTxt,'C:\CLIENTES.txt'); Reset(ArqTxt); Achou := False; while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); Codigo := Copy(Linha,1,Pos('-',Linha)-1); delete(Linha,1,Pos('-',Linha)); Cliente := Copy(Linha,1,Pos('-',Linha)-1); x := Length(Linha) - Length(Cliente); Atendimento := Copy(Linha,Pos('-',Linha)+1,x); if trim(Edit1.text) = Codigo then begin Edit2.Text := Cliente; Edit3.Text := Atendimento; Achou := True; Exit; end; end; Linha := ''; Closefile(ArqTxt); if not Achou then begin Edit2.Text := ''; Edit3.Text := ''; ShowMessage('Codigo não encontrado!'); Edit1.SetFocus; end; end;

OI, FOCOU UM POKINHO DIFRENTE E ME ENROLEI TODA AKI.. O ARQUIVO QUE TEREI QUE LER SERA ASSIM: 111-ANNELISE-1-MEDICAMENTO2-MEDICAMENTO3 222-AMAURY-1-MEDICAMENTO2-MEDICAMENTO3 333-JOSE-1-MEDICAMENTO2-MEDICAMENTO3 444-MARIA-1-MEDICAMENTO2-MEDICAMENTO3 OBS.: OS MEDICAMENTOS SERAO INFINITOS, OU SEJA, não TEM UMA QUANTIDADE PRE-DETERMINADA. SE alguém PUDER ME AJUDAR... VALEU BJIM

BRIGADAO...

OI GENTE.. tudo bem. Aki, to precisando do seguinte: quando terminar de preencher um campo eu teclar ENTER e o dado ser enviado para o seu destino. como faço para que o ENTER funcione envie este dado. Valeu. Bjos

É REDE INTERNA... quando ELA CAIR O MEU PROGRAMA AVISASSE. TEM COMO?

PODE SER ASSIM, DESSE JEITO,...SO MAIS UMA COISA, E SE EU QUISER ACRECENTAR MAIS UM DADO. POR EXEMPLO: 123-JOAQUIM-80 SERIA O CODIGO, O CLIENTE E O ATENDIMENTO QUERIA ACRECENTAR O ATENDIMENTO VALEU...MT PELA AJUDA

galera, queria q meu programa avisasse quando a rede caisse....tem como?

galera..tiudo beim?! aki,to pecisando do seguinte: existem dados gravados em um txt (codigo, nome cliente), gostaria de q quando eu digitasse um codigo q esta neste txt o nome aparece em seu devido campo. Existe a possibilidade de fazer isso? Valeu galera. bjos

galera alguém sabe qual o tamanho maximo que eu consigo de um upload (DUNDAS)?

<%Option Explicit%> <% Dim conn, SQL, Rs set conn=Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("bdintranet.mdb") SQL="select top 1 * from internacoes_sus order by ID_internacoes_sus desc" set Rs=conn.Execute(SQL) %> galera ta dando um erro que o seguinte: Microsoft OLE DB Provider for ODBC Drivers error '80040e10' [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1. /intranet/internacoes_SUS.asp, line 9 não ENTENDI porque! BRIGADIM

no outro texto postado(com o mesmo titulo) tem qual é a linha 219. O loop a principio esta corrto. brigadim

GALERA MINHA PAGINAÇÃO não FUNCIONA AKI... OLHA O CODIGO..

deu pra fazer aki...blza.. brigadim

MINTO COLEGA...FUNCIONOU SIM...É porque O CAMPO ESTAVA COMO OLEOBJECT...EU COLOQUEI COMO TEXTO AI FUNCIONOU... VALEU MESMO BRIGADIM

OLHA .... EU FIZ COMO você DISSE, MAS A FIGURA não APARECE, FIKA AKELA TELINHA COM UM X VERMELHO. </font></font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs("titulo_corpoclinico")%> <img src="<%=RS("arquivo_corpoclinico")%>" width="150" height="200" align="right" heigth="100"> </font></font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"></font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=replace(Rs("assunto_corpoclinico"),chr(13),"<br>")%></font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></div></td> O CAMPO DA TABELA TEM QUE SER DE QUAL TIPO...TO ACHANDO QUE E ESSE O ERRRO. BRIGADIM

gente, pra eu mostrar um conteudo de um campo de uma tabela eu faço isso: (esse campo é texto) <%response.write RS("titulo_agenda")%> e se eu quiser fazer a mesma coisa, so que no me campo la estara salva uma figura. ou seja, que saber como posso fazer para mostrar uma figura previamente salva em uma tabela. obrigada

GALERA, TO PRECISANDO DE DISPONIBILIZAR PARA O MEU USUARIO O UM FORMULARIO ONDE ELE POSSA FAZE O UPLOAD DE UMA FOTO E ESTA APAREÇA quando ELE ATUALIZAR A PAGINA. SE alguém PUDER ME AJUDAR. BRIGADIM

da erro falando que o campo não existe. mas ele EXISTE