Ir para conteúdo
Fórum Script Brasil

Kikonanet

Veteranos
  • Total de itens

    472
  • Registro em

  • Última visita

Tudo que Kikonanet postou

  1. Olá alexandre, Posta aí as estruturas das tabelas. Como o Micheus disse, acho que é um campo da tabela que não existe ou o nome seja diferente.. abs.
  2. Kikonanet

    Comando Sql

    Olá pirambu, Se eu entendi direito quando você filtrar os dados você já pode inserir direto na outra tabela... você pode usar uma Query para isso... E com outra query você insere no banco. Ex: With Query1 do Begin Close; SQL.Clear; SQL.Add('Select * From Tabela'); SQL.Add('Where A = :varA'); Parameters.ParamByName('varA').Value := 'AAA'; Open; While not(EOF) do With Query2 do Begin Close; SQL.Clear; SQL.Add('Insert into Tabela'); ... End; Acho que é +- isso... Estou sem Delphi aqui para testar... Abs.
  3. Erso, Se eu não me engano, no MySQL, você consegue criar um campo auto incremento. Não seria isso que você queria?? abs.
  4. Olá, Tente fazer a Query assim: Select Alunos.codigo, Alunos.nome, Historico.codigo From Alunos, Historico Where (Alunos.Codigo = Historico.CodAluno) and Alunos.Nome... abs.
  5. Olá, Faz um select na tabela trazendo o max código. ex: select max(id) from tabelaA; abs.
  6. Olá, Eu não lembro se tem no Delphi 5, mas tenta usar os componentes da palheta Interbase. []'s Kiko
  7. Kikonanet

    Problema Com Query

    você quer fazer subselects? Ex: "Select Campo1 from tabela1 where Campo2 = (select CampoX from TabelaX where CampoD = 1)"; []'s Kiko
  8. Parabéns Progr'amador! É isso aí Churc []'s kiko
  9. Olá, Dê uma olhada neste link. Acho que pode te ajudar... http://scriptbrasil.com.br/forum/index.php...mp;#entry266338 abs.
  10. Olá, Dê uma olhada neste link http://scriptbrasil.com.br/forum/index.php...l=imprimir+memo []'s
  11. Kikonanet

    Maskedit

    Olá, Tente isso no Mask: 99/99/99;1;_ abs.
  12. Kikonanet

    Somar 2 Dbfs

    Olá, O resultado da query será o que você quer! Use um TQuery... Ex: with Query do begin close; SQL.Clear; SQL.Add(''); // --> Coloque aqui o comando SQL SQL.Add(''); // open; end abs.
  13. Kikonanet

    Maskedit

    Olá, Troque os 9 por 0... 00/00/0000... Não me lembro de cabeça, mas tem um desses digitos (0 ou 9) que deixa entrar valores incompletos ou em branco... Testa ai Abs.
  14. Olá, Como o V&A disse, instale seu programa no servidor... Acho que nem precise instalar o Access no servidor, copie apenaso banco (faça um teste)... Em cada máquina, você cria um atalho do seu programa... qualquer coisa posta aí. abs.
  15. Olá, Olha esse link: http://scriptbrasil.com.br/forum/index.php?showtopic=52652 Procure no google tmb... abs.
  16. Kikonanet

    Somar 2 Dbfs

    Olá, Tenta usar o UNION na select! Select id, nome from a.dbf UNION Select id, nome from b.dbf Abs.
  17. Olá, Como você percebeu você está com uma versão DEMO do VCLSkin... Tinha uma versão do mesmo que não aparecia essa mensagem DEMO... Para resolver o seu problema tente procurar com alguém que tenha uma das versões que era free... Abs. Kiko
  18. Olá, tenta assim: Este ex está com ADO ... SQL.Add('SELECT * FROM TABELA'); SQL.Add('WHERE DATA BETWEEN :DataINI AND :DataFIM'); Parameters.ParamByName('DataINI').Value:=MaskEditDataIni.Text; Parameters.ParamByName('DataFIM').Value:=MaskEditDataFinal.Text; ... Abs.
  19. Kikonanet

    Preciso De Ajuda

    Olá, Posta sua dúvida! Abs. Kiko
  20. Kikonanet

    Comando Select

    Olá, Se o código estiver certo, tente assim: if Query.FieldByName('CAMPO').AsString = 'Flavia' ... Abs. Kiko
  21. Kikonanet

    Delphi/sql

    Olá, Tenta isso: with Query do begin close; SQL.Clear; SQL.Add('SELECT * FROM TABELA WHERE CAMPO ='+QuotedStr(Edit1.text)); Open; end; Abs. Kiko
  22. Veja se você tem essa biblioteca na pasta System ou System32 Abs.
  23. Olá, Dê uma olhada no eventlog (Visualizar eventos) do windows e verifique se não é o próprio windows q está encerrando o programa! Abs. Kiko
  24. Olá, você pode usar um Edit mesmo... Na propriedade PasswordChar você coloca o símbolo * Abs. Kiko
  25. Olá, Tenta assim: if Application.Messagebox('Confirmar Exclusão?','Atenção!', MB_IconQuestion + Mb_YesNo + MB_DefButton2) = IDYes then ... Abs. Kiko
×
×
  • Criar Novo...