Adicionar Sequencia de Registro
Bom dia a todos, estou tento um probleminha em mudar meu codigo de Auto incrementar sequencia de registro.
eu usava em tabelas paradox, e mudei pra interbase e usava assim:
Quando vou compilar da erro, table.
Estou usando TIBDatabase acesso banco de dados, TIBTable acesso as tabelas, TIBTransaction, e um TDatasource.
Alguem pode me dar uma ajudinha ai?!?
eu usava em tabelas paradox, e mudei pra interbase e usava assim:
tbAutoInc(DM.tbClientes, ´Codigo´);
procedure tbAutoInc(Table: TTable; const FieldName: string);
var
Q: TQuery;
begin
if not Table.FieldByName(FieldName).IsNull then
Exit;
Q := TQuery.Create(nil);
try
Q.DatabaseName := Table.DatabaseName;
Q.SQL.Add(´select max(´ + FieldName + ´) from ´ + Table.TableName);
Q.Open;
try
Table.FieldByName(FieldName).AsInteger := Q.Fields[0].AsInteger +1;
finally
Q.Close;
end;
finally
Q.Free;
end;
end;
Quando vou compilar da erro, table.
Estou usando TIBDatabase acesso banco de dados, TIBTable acesso as tabelas, TIBTransaction, e um TDatasource.
Alguem pode me dar uma ajudinha ai?!?
Mcb
Curtidas 0
Respostas
Paulocesar1301
02/05/2006
Posso estar falando besteira, mas tentou trocar ´TTable´ por ´TIBTable´ na sua procedure ?
Abraços e Bons Códigos :wink:
Abraços e Bons Códigos :wink:
GOSTEI 0
Mcb
02/05/2006
sim amigo, ja revirei o codigo trocando os nomes que antes era Ttable do para tibtable do interbase mas quando vou compilar gera o erro.
GOSTEI 0