Ajuda

Question

Ol�, estou meu enferujado em programa��o Delphi e preciso que algu�m me d� uma m�ozinha.Estou desenvolvendo uma aplica��o que ir� gravar em um campo VARCHAR de uma tabela uma letra, C para as pessoas ...

Rjun · Answer

Voc� pode criar um campo calculado no seu dataset que recebe o texto que voc� quer exibir ou, o que acho melhor, retornar isso direto do seu SELECT. N�o sei que banco de dados voc� est� usando, mas no SQL Server um CASE resolveria o problema.

Lschmitk · Answer

Estou usando Firebird como banco de dados...

Rjun · Answer

Acho que o Firebird tem case. No SQL Server ficaria da seguinte forma:

SELECT 
  CAMPO1,
  CAMPO2,
  CASE CAMPO
    WHEN �C� THEN �CONTRIBUINTE�
    WHEN �N� THEN �NAO CONTRIBUINTE�
  END AS SITUACAO
FROM
  TABELA

No Firebird deve ficar algo parecido com isso.

Marco Salles · Answer

[quote:863d2a2941]Acho que o Firebird tem case[/quote:863d2a2941]tem sim , veja em ://www.sqlmagazine.com.br/colunistas.asp?artigo=Colunistas/LucianoPimenta/02_casefirebird.asp[quote:863d2a2941]Estou usando Firebird como banco de dados[/quote:863d2a2941]e voce esta usando quais os componentes de acesso: ADO , dbExpress ???[b:863d2a2941]Exemplo com clientDataset Usando DbExpress[/b:863d2a2941][code:1:863d2a2941]procedure TForm1.Button1Click(Sender: TObject);begincdsCIDADES.close;cdsCIDADES.CommandText:=�SELECT ID_Cidades,ESTADOS,DATA,CASE ESTADOS �+�when 1 then �+QuotedStr(�minas�)+�when 2 then �+QuotedStr(�Rio�)+�else �+QuotedStr(�Erro no Cadastro�)+�end as Estado �+�from CIDADES�;cdsCIDADES.Open;edit1.Text:=cdsCIDADES.FieldByName(�Estado�).AsString;end;[/code:1:863d2a2941]...

Lschmitk · Answer

Estou usando os componente da paleta InterBase para acessar a base de dados, mas precisamente o componente IBDataSet.

As dicas anteriores funcionaram muito bem para a exibi��o dos dados, agora como eu deverei proceder para salvar os dados no banco de dados...

Valeu, pela ajuda...

Tnaires · Answer

Ol�Se vc puder, � melhor n�o usar a paleta Interbase para conex�o com banco de dados Firebird. J� tive problemas com m�quinas rodando ao mesmo tempo o ibserver e o fbserver. Tive que fechar o ibserver pro sistema rodar normalmente.Uma �tima alternativa � o MDO - Mercury Database Objects. //www.mdolib.com/Abra�os...

Rjun · Answer

N�o sei como voc� est� fazendo para salvar, mas no momento em que voc� for passar o par�metro voc� verifica o valor e passa �C� ou �N�. N�o tem mist�rio nenhum....

Marco Salles · Answer

[quote:16a7de8939]As dicas anteriores funcionaram muito bem para a exibi��o dos dados, agora como eu deverei proceder para salvar os dados no banco de dados... [/quote:16a7de8939][quote:16a7de8939]N�o sei como voc� est� fazendo para salvar, mas no momento em que voc� for passar o par�metro voc� verifica o valor e passa �C� ou �N�. N�o tem mist�rio nenhum.[/quote:16a7de8939]Acredito que o amigo esta se ebarrando em um detalhe , e talves os colegas n�o tenham entendido a dificuldade do lschmitk.Ao usar as dicas anteriores , um campo aparece na Grid com as caracteristicas CONTRIBUINTE e N�O CONTRIBUINTE. So que este campo que aparece na grid acho que ele � por natureza ReadOnly=True e n�o tem jeito ,[b:16a7de8939]Acho eu[/b:16a7de8939], de mudar isso...Mesmo que voce defina este campo em tempo de projeto , usando a Sql a nivel de projeto e usando o [b:16a7de8939]Add all Fields[/b:16a7de8939]  no seu dataset , este campo sera , [b:16a7de8939]acredito eu[/b:16a7de8939] , sera ReadOnly=truePosso estar enganado ....Mas acho que n�o estou n�o  :lol:  :lol: A saida tradicional para isto � usar o [b:16a7de8939]OngetText e OnsetText[/b:16a7de8939]... Uma outra linha de raciocineo que faz exatamente isto que voce precisaPesquise aqui no site , se voce tiver alguma d�vida volte a postar....

F�rum Ajuda #327883