Campo Serial

Question

Criei um campo tipo serial no meu BD e tudo bem ? Por�m quando vou mandar gravar na tabela atrav�s do sistema eu n�o defino valor para este campo achando que quem deve faz�-lo � o BD. Por�m ele me retorna erro dizendo que este campo n�o pode ser gravado vazio. Algu�m sabe como
resolver isso ?

Grande abra�o.

Bon Jovi · Answer

Isso n�o � normal acontecer, o q est� fazendo de diferente? Est� usando o q pra inserir o registro? Isso pode ser uma caracter�stica do componente que vc est� usando.

Ex. normal:

CREATE TABLE tabela
(
sequencial serial NOT NULL,
descricao varchar(50),
CONSTRAINT pk_tabela PRIMARY KEY (sequencial)
);

INSERT INTO tabela (descricao) VALUES (�aaa�);

Executou tudo ok.

SELECT * FROM tabela;

Retornado:

sequencial;descricao
1;�aaa�

Winfor · Answer

Na verdade, estou utilizando os componentes da Devexpress e utilizando os comando normais de inclus�o de registros. Append, post, e applyupdates.
O problema ocorre quando confirmo a inclus�o do registro. E eu nem coloquei um componente ligado ao campo c�digo para n�o haver problema.
A �nica coisa que fiz de anormal, foi modificar o tipo do campo na tabela ap�s a mesma ter sido criada. Ou seja, ele estava como integer e eu passei para Serial.
No programa de manipula��o do BD que � o EMS Manager funciona normalmente.

Bon Jovi · Answer

Vc dever� dar Refresh ap�s um ApplyUpdates, para que o componente possa saber que o campo SERIAL foi atribu�do pelo SEQUENCE no servidor. Ex.:

procedure TfrmTeste.btnTesteClick(Sender: TObject);
var
  i: integer;
begin
  ADOCommand1.CommandText := �CREATE TABLE teste (id_teste serial PRIMARY KEY, descricao VARCHAR(10))�;
  ADOCommand1.Execute;

  ADODataSet1.CommandText := �SELECT id_teste, descricao FROM teste�;
  ClientDataSet1.Open;

  for i := 1 to 3 do
  begin
    ClientDataSet1.Append;
    ClientDataSet1.FieldByName(�descricao�).AsString := �teste_� + IntToStr(i);
    ClientDataSet1.Post;
    ClientDataSet1.ApplyUpdates(-1);
    ClientDataSet1.Refresh;
  end;

  ClientDataSet1.First;
  
  while not ClientDataSet1.Eof do
  begin
    ShowMessage(�ID_TESTE = � + ClientDataSet1.FieldByName(�id_teste�).AsString);
    ClientDataSet1.Next;
  end;
end;

Gravou no banco e retornou: 1, 2, 3

Bon Jovi · Answer

Podem haver outras sa�das mais otimizadas, pois n�o sou de usar o tipo �SERIAL�. Eu prefiro usar SEQUENCE (CREATE SEQUENCE), ou seja, desamarrado do campo, assim ganha-se mais controle....

Winfor · Answer

Amigo Bon Jovi

Na verdade, quando eu modifiquei o campo para serial ele criou um item na se��o sequences do BD. Desta forma:

CREATE SEQUENCE �public�.�professores_wpro_codigo_seq�
INCREMENT 1 MINVALUE 1
MAXVALUE 2147483647 START 5
CACHE 1;

Imagino que este sequence se assemelha ao campo Generator do Interbase, mas n�o sei como busc�-lo em tempo de execu��o. Na edi��o desta seguencia ele me mostra quais os valores aceita acima e qual ser� o pr�ximo, mas n�o t� sabendo buscar isso de dentro do programa.
Vc busca na hora de postar o c�digo ? Como ?

Estou estudando o manual do Postgres mas ainda n�o cheguei l�.

Valeu pela for�a. Grande abra�o.

Wellington.

Winfor · Answer

Ali�s, estou tentando buscar este valor assim:

Wdm_cadastro.Qry_auxCadastro.Close;
Wdm_cadastro.Qry_auxCadastro.SQL.Add(�SELECT nextval(�public�.�sequence�.�professores_wpro_codigo_seq�) AS ULTIMOCODIGO�);
Wdm_cadastro.Qry_auxCadastro.Open;
Wdm_cadastro.Qry_auxCadastro.ExecSQL;

Nem sei se est� certo, pq estou come�ando agora com SQL, mas ele erro se coloco public, se coloco sequence e se n�o coloco nada em nextval.

Vc sabe a sintaxe correta pra isso a� :)

Valeu mais uma vez !!!

Bon Jovi · Answer

Sim, ele cria, mas se vc agora est� querendo atribuir manualmente, por que est� usando o tipo SERIAL?

Faz normal:

CREATE TABLE cliente (id_cliente numeric(15) primary key, nome_cliente varchar(50));

CREATE SEQUENCE sequencial_cliente MINVALUE 1;

E no Delphi atribui ao campo:

SELECT nextval(�sequencial_cliente�) AS proximo

Winfor · Answer

Na verdade, n�o estou querendo atribuir manualmente. Como ele est� me retornando erro falando que o campo n�o pode ficar vazio. Estou tentando buscar em tempo de execu��o qual ser� o pr�ximo c�digo e atrib�-lo no post. Assim ele n�o dar� mais este erro, por isso que estava usando a instru��o Sql acima. Mas da forma que vc colocou ele fala que n�o existe o campo.
Para dar um select na tabela a partir da Query, ele somente aceitou quando eu coloquei assim:
SELECT * FROM �public�.�professores�

De outra forma, sem o public ele fala que n�o existe a tabela.

Por isso que ao buscar o pr�ximo c�digo usei aquela instrui��o acima.

Continuo tentando.... aqui...

Obrigado pela paci�ncia mig�o...

Bon Jovi · Answer

Usou o Refresh ap�s o ApplyUpdates como no exemplo? Pois isso funciona....

Bon Jovi · Answer

Se n�o estiver funcionando com sua aplica��o, execute meu exemplo completo em uma aplica��o nova e ver� que funciona. Da� vc vai vendo o q tem de diferente na sua aplica��o.

S� n�o coloquei a parte de conex�o nesse exemplo, em que usei conex�o ADO com driver ODBC.

Winfor · Answer

�. Fiz uma nova aplica��o, segui bem de perto os passos que vc fez, a diferen�a � que estou usando o Zeos 6.5.1 que tem protocolo at� o Postgres 7.4 enquanto estou usando o 8.01.
Fiz uma nova aplica��o, por�m ao dar o Post, ele retorna o mesmo erro, mesmo dando o Refresh junto com o Apply. Mudei o Refresh de lugar, tentei outra atualiza��o e n�o deu certo.
E na instru��o SQL fala que n�o existe o campo sequencial que estou me referindo. Tentei usando �public�, �public�.�sequence�.nomedocampo, somente o nome do campo e ele continua n�o localizando o mesmo no BD.
Acho que o caminho � por aqui, tenho s� que arranjar uma forma na sintaxe SQL de me comunicar com este campo serial e pegar o pr�ximo valor dele. Fazendo isto posso atribu�-lo a um Dbedit e mandar postar pq a� eu sei que funciona. Pois j� fiz o teste atribuindo diretamente um valor ao campo.

Continuando minha saga, obrigado pela aten��o e ajuda.

Bon Jovi · Answer

Se n�o usar SERIAL e criar o SEQUENCE solto j� seria uma solu��o imediata.

Coloque o trecho do seu c�digo aqui, DFM dos componentes relacionados tb. Assim posso ver o q est� fazendo. Coloque tudo que for diretamente relacionado, script da tabela tb.

Winfor · Answer

Ol�, Bon Jovi

Estive fora por 3 dias por isso sumi.
Eu utilizo um Trial da EMS Manager PostgresSQL para gerenciar e criar as tabelas, �ndices e outros do BD. Por isso n�o preciso necessariamente postar instru��es SQL dentro da aplica��o para dar manuten��o do BD.
Na tela em quest�o do problema do campo serial, utilizo componentes da Devexpress normalmente, ent�o coloco componentes cxdbEdit, CxMaskEdit, etc...
Utilizo tb o componente de menu da MaxComponets para o menu tipo outlook

Todos componentes tipo padr�o que n�o d�o interfer�ncias.

Ent�o, ap�s conectado o BD e criadas as tabelas com os Querys, clientDatasets, providers e DataSource. E criados os respectivos Tfields, dou um insert ou append e ap�s a edi��o dos campos fa�o a rotina abaixo.

if MessageDlg(�Confirma a grava��o dos dados deste funcion�rio ?�, mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
//CxTextEdit2.Text := intToStr(Wdm_cadastro.CDfuncionarioWPRO_CODIGO.value);
Try //Se a tabela est� inserindo
If (Wdm_cadastro.CDfuncionario.State = DsInsert) then
Begin
Ufuncoes.WBotoes(Wdm_cadastro.DSfuncionario.DataSet,6);
end
else
ShowMessage(�Falha na atualiza��o, o arquivo n�o est� em modo de altera��o !�);
Wdm_cadastro.CDfuncionario.ApplyUpdates(-1);
Wdm_cadastro.CDfuncionario.Refresh;
except
ShowMessage(�Erro de grava��o�);
end;
At_botoes;
end;

Tudo dentro do padr�o que a maioria est� acostumada.

Dentro do EMS Manager os campos j� est�o definidos como serial. A �nica coisa que eu acho que poderia fazer alguma diferen�a, � o fato do campo codigo ter sido criado como Integer e depois eu o passai para Serial.
Se precisar de mais aguma informa��o � s� falar.

Brigado mig�o...

Winfor · Answer

Outro detalhe me chamou a aten��o hoje aqui, ao fazer um outro exemplo simples usando clientDataset, query, provide, Datasource e Zeos Zconection, e os componentes padr�o do Delphi.
2 DbEdit�s e um Dbnavigator.

Al�m de dar o mesmo erro de n�o aceitar o campo c�digo vazio, se eu preencher o campo c�digo com algum n�mero, ele n�o atualiza o contador serial da tabela.
Por exemplo:
Tabela de portadores: Codigo (serial), Descricao (Varchar(30)
Tabela Vazia.

Ao inserir um registro com o dbedit em branco d� erro.
Ao inserir um registro com o dbedit com valor = 1 ele aceita
Ao inserir um registro com o dbedit com valor = 2 ele aceita

Ao tentar inserir um registro pelo gerenciador EMS Manager ele come�a a contagem novamente dos registros. Ou seja, come�a do 1. Pode ???
T� complicado...

Bon Jovi · Answer

Vc est� usando uma variedade de componentes de terceiros, infelizmente fica complicado pra eu ajudar em rela��o a eles, ainda mais sem ver o c�digo completo do .pas, .dfm e script .sql.

Zeos j� est� bem est�vel com Midas?? Costumo sempre que poss�vel usar os componentes mais padr�es. Com ADO sei que funciona redondo. Se puder faz esse teste simples com ADO + ODBC. Ou poste um novo t�pico mais espec�fico: �Campo Serial com Zeos + Midas�.

F�rum Campo Serial #26399