Fórum BD interbase #428861

16/11/2012

0

SQL

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

Responder

Posts

16/11/2012

Claudia Nogueira

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'))
Responder

Gostei + 0

16/11/2012

Paulo

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.
Responder

Gostei + 0

17/11/2012

Paulo

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;


Responder

Gostei + 0

17/11/2012

Claudia Nogueira

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;
Responder

Gostei + 0

19/11/2012

Roniere Almeida

esse interbase é somente utilizado em Delphi?
Responder

Gostei + 0

20/11/2012

Roniere Almeida

alguem poderia responder?
Responder

Gostei + 0

20/11/2012

Claudia Nogueira

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?
Responder

Gostei + 0

21/11/2012

Alisson Santos

Gostaria de saber se o procedimento informado por nossa colega deu resultado positivo para você
Responder

Gostei + 0

21/11/2012

Roniere Almeida

vlw Claudiadnh
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar