BD interbase

SQL

16/11/2012

Tenho um BD intebase e gostaria de modificar o tamanho d campo "NOME":

NOME VARCHAR(30) para NOME VARCHAR(60)


lembrando que eu tentei assim:

ALTER TABLE PM
MODIFY NOME VARCHAR(60);

mais não deu certo. Alguém me ajude!
Paulo

Paulo

Curtidas 0

Respostas

Claudia Nogueira

Claudia Nogueira

16/11/2012

Tenta assim:
UPDATE RDB$FIELDS set
RDB$FIELD_LENGTH = 60,
RDB$CHARACTER_LENGTH = 60
WHERE RDB$FIELD_NAME =
(SELECT RDB$FIELD_SOURCE from RDB$RELATION_FIELDS R
WHERE (RDB$RELATION_NAME = 'PM')
  AND (RDB$FIELD_NAME = 'NOME'))
GOSTEI 0
Paulo

Paulo

16/11/2012

Tenta assim:
UPDATE RDB$FIELDS set
RDB$FIELD_LENGTH = 60,
RDB$CHARACTER_LENGTH = 60
WHERE RDB$FIELD_NAME =
(SELECT RDB$FIELD_SOURCE from RDB$RELATION_FIELDS R
WHERE (RDB$RELATION_NAME = 'PM')
  AND (RDB$FIELD_NAME = 'NOME'))


deu certo. Muitíssimo obrigado! vc sabe tudo de programação.
GOSTEI 0
Paulo

Paulo

16/11/2012

Tenta assim:
UPDATE RDB$FIELDS set
RDB$FIELD_LENGTH = 60,
RDB$CHARACTER_LENGTH = 60
WHERE RDB$FIELD_NAME =
(SELECT RDB$FIELD_SOURCE from RDB$RELATION_FIELDS R
WHERE (RDB$RELATION_NAME = 'PM')
  AND (RDB$FIELD_NAME = 'NOME'))


deu certo. Muitíssimo obrigado! vc sabe tudo de programação.



Vc pode me ajudar na contagem de registros?

esses codigos ABAIXO, estavam dando certo porém depois que eu adicionei o ibquery, a contagem não esta batendo com a quantidade de registros que estão cadastrados no meu BD.

Por ex: tem 8 registros cadastrados, qdo eu mando contar, fala que tem 01, eu clico de novo fala que tem 03.



CONTAGEM DE REGISTROS:
procedure TFrmRegistrosCadastrados.BitBtn8Click(Sender: TObject);
var i: integer;

begin
Bar2.Visible :=true;
Dm.IBTable1.Open;

with Bar2 do
begin
Min := 0;
Max := Dm.IBTable1.RecordCount;
Dm.IBTable1.First;
for I := Min to Max do
begin
Position := i;
Dm.IBTable1.Next;

end;

end;
ShowMessage(' Este Sistema do Gab. de Identificação tem '+IntToStr(Dm.IBTable1.RecordCount)+ ' Registros Cadastrados');


end;


GOSTEI 0
Claudia Nogueira

Claudia Nogueira

16/11/2012

O RecordCount funciona depois do Last.

procedure TFrmRegistrosCadastrados.BitBtn8Click(Sender: TObject);
begin
Dm.IBTable1.Open;
Dm.IBTable1.Last;
ShowMessage(' Este Sistema do Gab. de Identificação tem '+IntToStr(Dm.IBTable1.RecordCount)+ ' Registros Cadastrados');
end;
GOSTEI 0
Roniere Almeida

Roniere Almeida

16/11/2012

esse interbase é somente utilizado em Delphi?
GOSTEI 0
Roniere Almeida

Roniere Almeida

16/11/2012

alguem poderia responder?
GOSTEI 0
Claudia Nogueira

Claudia Nogueira

16/11/2012

Te respondi no outro tópico, mas o Interbase até pode ser usado com qualquer linguagem, porém hoje em dia ele é pouco utilizado, pois quando surgiu o Firebird, que é uma continuação do Interbase, o Firebird o superou e se manteve ativo. Então pra quem quer começar com o Interbase, não comece, use o Firebird.

alguem poderia responder?
GOSTEI 0
Alisson Santos

Alisson Santos

16/11/2012

Gostaria de saber se o procedimento informado por nossa colega deu resultado positivo para você
GOSTEI 0
Roniere Almeida

Roniere Almeida

16/11/2012

vlw Claudiadnh
GOSTEI 0
POSTAR