Jump to content
Fórum Script Brasil

vms

Membros
  • Posts

    306
  • Joined

  • Last visited

Everything posted by vms

  1. Bom dia, preciso criar uma variável que substitua o nome da tabela exemplo, usar esse código Table1.Edit; Table1.numero.text := '111'; Table1.nome.text := 'ddd'; Table1.Post; dessa forma var MinhaVar : (não sei o tipo) ; begin MinhaVar := Table1; MinhaVar.Edit; MinhaVar.numero.text := 'ddd'; MinhaVar.nome.text := 'ddd'; MinhaVar.Post; end; alguém poderia me dizer como fazer esse código? desde já agradeço.
  2. Olá pessoal, Depois que desinstalei o pacote de componente TMS, aparteceu esse problema Quando crio uma nova aplicação e mando compilar (F9), ele compila mas não abre o executavel, tenho que ir na pasta e executar o executavel manualmente. Normalmente, ao mandar compilar (F9), a IDE abriria o executavel (porexemplo: project1.exe), mas agora não ta abrindo, mas compila normalmente talvez tenha alguma configuração na IDE que deve ter sido desconfigurado, alguém sabe como corrigir isso? desde já agradeço.
  3. olá pessoal, estou tentando instalar a biblioteca SWT e não estou conseguindo. alguém pode me ajudar? vi 3 forma na net: 1ª - copiar o arquivo swt.jar para o diretorio da biblioteca 2ª - importar pelo eclipse (import) 3ª - adicionar pelo eclipse (add library) //esta forma não aparece a biblioteca para adicionar tentei executar o codigo abaixo, mas as bibliotecas não são reconhecidas. import org.eclipse.swt.widgets.*; import org.eclipse.swt.layout.*; import org.eclipse.swt.*; public class PrimeiratelaSwt { public static void main (String[] args) { Display display = new Display(); Shell shell = new Shell(display); //informe os controles que deseja inicializar. shell.setLayout(new RowLayout()); Text objText = new Text(shell, SWT.BORDER); shell.open(); while(!shell.isDisposed()) { if (!display.readAndDispatch()) { display.sleep(); } } display.dispose(); } } versao da biblioteca: swt-4.2-win32-win32-x86.zip versao do eclipse: Eclipse IDE for Java EE Developers - juno desde já agradeço.
  4. Estou usando assim e funciona var D1,D2 : TDateTime; begin D1 := PlannerDatePicker1.Date; D2 := PlannerDatePicker2.Date; with AdoQuery1 do begin Close; SQL.Text := 'SELECT * FROM Tabela WHERE Data BETWEEN :D1 AND :D2 '; Parameters.ParamByName('D1').Value := D1; Parameters.ParamByName('D2').Value := D2; ExecSQL; Open; end;
  5. Beleza Jhonas, Mas como executo este comando pelo delphi? desde já agradeço.
  6. Olá pessoal Tenho um banco feito no access onde tenho uma tabela com um campo chamado Descrição (tipo Texto) estou usando a função abaixo para retirar os acentos. Eu queria saber como usar essa função no Update porque se eu for varrer a tabela irá demorar muito. function RemoveAcento(Str: string): string; const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ'; SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU'; var x: Integer; begin; for x := 1 to Length(Str) do if Pos(Str[x],ComAcento) <> 0 then Str[x] := SemAcento[Pos(Str[x], ComAcento)]; Result := Str; end;
  7. fiz uma rotina que deu certo. antes do refresh verifica se o ID tem valor, se tiver então é uma alteração e posso usar o locate se não é uma inserção e uso o last. funcionou certinho, mas se alguém tem alguma dica melhor eu agradeço. obrigado pela atenção Micheus, mas eu achei a dica daquele tópico muito trabalhoso.
  8. olá pessoal, tenho um banco de dados feito em firebird e uso os seguites componentes para manipular SQLTable1, DataSetProvider1, ClientDataSet1, DataSource1. Estou gravando da seguite forma ClientDataSet1.ApplyUpdates(-1); ClientDataSet1.Refresh; O problema é que quando mando salvar, a tabela vai para o primeiro registro e eu preciso que permaneça no mesmo registro. Eu preciso usar o refresh para poder gerar o ID automatico (pela trigger). Tentei usar um Locate, mas a unica referencia seria o ID mas ele so é criado depois do Refresh. alguém tem alguma sugestão?
  9. Valeu Jhonas deu certo. DM.CQProduto.Close; DM.CQProduto.CommandText := 'SELECT * FROM PRODUTOS WHERE (UPPER('+ComboBox1.Text+')) LIKE :P ORDER BY '+ComboBox2.Text; DM.CQProduto.Params.ParamByName('P').AsLargeInt := StrToInt64(Edit1.Text); DM.CQProduto.Open;
  10. Já estar em dialect 3. Alguma outra sugestão?
  11. ola pessoal, tenho um campo na minha tabela que é o seguite PK ID BIGINT NOT NULL, estou tentando fazer uma pesquisa dessa forma DM.CQProduto.Close; DM.CQProduto.CommandText := 'SELECT * FROM PRODUTOS WHERE ID LIKE :P ORDER BY ID'; DM.CQProduto.Params.ParamByName('P').AsInteger := StrToInt(Edit1.Text); DM.CQProduto.Open; e está dando o seguinte erro OBS. 7891008121025 é o codigo de um produto já cadastrado. esta função funcionava certinho quando o campo era INTEGER, mas depois que mudei para BIGINT não funcionou mais. alguém pode dizer o que esta errado? desde já agradeço.
  12. opa! não era bem isso que eu queria mas me ajudou em outra coisa. Este campo calculado que criei serve apenas para mostra a qtd de registro e não um tipo de autoincremento. este codigo funcionava perfeitamente mas agora o primeiro registro mostra -1 onde deveria ser apenas 1 e resto da sequencia fica normal (-1, 2, 3, 4 ... )
  13. Olá pessoal Criei um campo calculado para numerar os itens da tabela o problema é que a numeração não começa com 1 e sim com -1, assim -1 2 3 4 ... estou usando o codigo abaixo com um AdoTable procedure TDM.TVendaDescCalcFields(DataSet: TDataSet); begin TVendaDescItem.Value := TVendaDesc.RecNo; end; Desde já agradeço.
  14. UHHUU!!! deu certo obrigado Ricardo Portolan e a todos os outros pelas dicas.
  15. olá Ricardo Portolan, ainda não funcionou, não mostra resultado nenhum como eu disse no post inicial eu estou usando o pacote Apache2triad, será que existe possibilidade de não ter instalado o PHP? como saber? Vi num tutorial que deve salvar os arquivos em C:\apache2triad\htdocs\ e salvar como .php o Marcos Guiga disse que deve ter certeza que o formulario esta na pasta WWW do servidor a unica pasta com este nome esta aqui "C:\apache2triad\perl\site\lib\WWW" e eu já tentei e não deu certo tambem. alguém tem uma outra dica?
  16. não ta dando certo já tentei assim <?php $_var = array("_nome" => $nome, "_read" => $read, "_nota" => $nota);?> Usuario: <?php echo $_var["_nome"]; ?> <br> e assim Usuario: <?php echo $_var["nome"]; ?> <br> e assim Usuario: <?php echo $_var['nome']; ?> <br> e não mostra resultado nenhum.
  17. opa! fiz as alterações indicadas por Robson C. e ESerra e agora os navegadores estão abrindo a pagina de resultado, mas ainda não mostra resultado nenhum. Não entendi a esta dica Marcos Guiga você poderia me da um exemplo como eu usaria nessa linha de codigo? Usuario: <?php echo $nome;?> <br> desde já agradeço a atenção de voces.
  18. Olá pessoal, Estou iniciando PHP e estou com duvidas. Seguinte, estou usando o pacoteApache2triad e o PHP Editor e estou tentando criar uma aplicação local Criei 2 paginas, 1 com cadastro e a outra com resultado, a de cadastro funciona normal mas quando chama a de resultado no Firefox não abre no Crome não abre no Safari so abre o scrip como fosse bloco de notas no Internet Explorer abre mas so mostra os titulos sem os resultados Formulario de cadastro <HTML> <HEAD> <TITLE>Meu Form</TITLE> </HEAD> <BODY> <div align="center"><font color="#FF0000" size="+24">MEU PRIMEIRO FORM</font></div> <form action="resumo.php" method="post"> Nome: <input type="text" name="nome"><br> <input type="checkbox" name="read" value="sim"> Eu li o tutorial por inteiro.<br> Qual a nota você dápara este tutorial? <Select name="nota" size="1"> <option value="0"> Nota 0</option> <option value="1"> Nota 1</option> <option value="2"> Nota 2</option> <option value="3"> Nota 3</option> </select> <input type="submit" value="Entra" </form> formulario de resultado <HTML> <HEAD> <TITLE>Resultado</TITLE> </HEAD> <BODY> <div align="center"><font color="#FF0000" size="+2">Resultado</form></div><br><br> Usuario: <? echo $nome;?> <br> Leu o tutorial: <? if ($read == "sim") { echo "sim"; } else { echo "não"; } ?> <br> Nota: <? echo $nota;?> </BODY> </HTML> alguém pode me ajudar? desde já agradeço
  19. Olá pessoal, Estou trabalhando num programa de apresentação de slides e funciona assim Tenho o texto e o caminho da imagem de cada texto num banco de dados quando o registro é focado, carrega-se o texto e a imagem que está numa pastaff O problema é que toda vez que muda de imagem, dar uma piscada rápida. Como faço para resolver isso? Estou usando DoubleBuffered := true e Imagen1.IncrementalDisplay := true Se alguém tiver uma dica ou um componente que resolva isso, porfavor me indique. agradeço desde já.
  20. Olá JhonasEstou usando componentes do pacote TRichview e notei que se eu criar o campo desse maneira que voce indicou ocorre erro(eu já tinha tentado) e não compila. Parece que o TRichview so aceita BLOB Type Binary se colocar BLOB Type Text ele não aceita. então fiz um "arranjo tecnico". Criei assim TEXTO1 BLOB(6000) Cada caracere especial mostra o valor seguinte no modo texto, então na string de pesquisa em substituo o caractere especial pelo seu valor no texto, porque visualmente no trichview o texto aparece correto mas se visualizar em modo texto, fica todo desconfigurado. Aparentemente resolveu meu problema, mas você acha que terei problemas mais tarde fazendo assim? mais uma vez, obrigado pela atenção.
  21. Jhonas, essa dica funciona direitinho com campo do tipo Varchar, mas estou usando campo do tipo Blob e não funciona. Você teria outra dica? estou criando o campo assim, mas o collate assume o valor WIN1252 Estou usando IBExpert 2010 e Firebird 2.5 Obrigado.
  22. Realmente funciona, mas eu não tinha atentado para um detalhe, a acentuação. Eu estava pesquisando com Çç, Éé, Ãã. Em campo varchar eu posso usar charset ISO8859_1 e collate PT_BR já no blob não. sabe como posso resolver isso? desde já agradeço.
  23. Olá pessoal Tenho uma aplicação com banco de dados firebird e Radstudio2010 onde preciso realizar uma consulta em um campo do tipo blob. Vi muita gente com essa duvida mas nenhuma das respostas funcionaram. alguém pode me ajudar já tentei assim SQLQuery1.Close; ClientDataSet1.Close; SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('Select * From GDM Where TEXTO2 like :PESQ'); SQLQuery1.Params.ParamByName('PESQ').Value := '%'+Edit1.Text+'%'; ClientDataSet1.Open; Assim SQLQuery1.SQL.Add('Select * From GDM Where TEXTO2 like :PESQ'); Assim SQLQuery1.SQL.Add('Select * From GDM Where TEXTO2 containing :PESQ'); Assim SQLQuery1.SQL.Add('Select * From GDM Where TEXTO2 = :PESQ'); e assim e nenhuma funcionaram SQLQuery1.SQL.Add('Select * From GDM Where TEXTO2 = palavra_que sei_q_existe');
  24. deu certo o campo Check era Sim\Não e tinha renomeado para Texto então criei um novo campo do tipo texto para testar e funcionou. obrigado pela atenção
  25. Não deu certo, ocorre o mesmo erro. Eu já tentei com essas formas DM.QLote.SQL.Text := 'UPDATE PBS_Desc SET Check = ' + QuotedStr('0') + ' where Check = ' + QuotedStr('1'); DM.QLote.SQL.Append('UPDATE PBS_Desc SET Check = 0 where Check = 1'); DM.QLote.SQL.Text := 'UPDATE * from PBS_Desc SET Check = :P1 where Check = :P2'; DM.QLote.Parameters.ParamByName('P1').Value := '0'; DM.QLote.Parameters.ParamByName('P2').Value := '1'; Você teria outra sugestão? mas desde já agradeço.
×
×
  • Create New...