SQL Sever error : unassigned code
09/02/2006
0
Ola Colegas,
Tenho uma aplicação em Delphi 6 e Firebird 1.5, e utilizo Stored Procedure para gerar as chaves das tabelas.
Migrei o sistema para o Delphi 7, estão ocorrendo erro e o na inclusão de registro pois quando o código abaixo é executado:
(Codigo da StoreProcedure
COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
/* Stored procedures */
CREATE PROCEDURE ´PROXIMACIDADE´
(
´INCREMENTO´ SMALLINT
)
RETURNS
(
´NOVO´ INTEGER
)
AS
BEGIN EXIT; END ^
ALTER PROCEDURE ´PROXIMACIDADE´
(
´INCREMENTO´ SMALLINT
)
RETURNS
(
´NOVO´ INTEGER
)
AS
BEGIN
NOVO = Gen_ID(CODCIDADE_GEN, INCREMENTO);
END
^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;)
procedure TFrmCadastro.ClientInclusaoNewRecord(DataSet: TDataSet);
begin
GB_B_Incluindo := True;
SPGeraCodigo.Close;
SPGeraCodigo.ParamByName(´INCREMENTO´).AsInteger := 0;
SPGeraCodigo.ExecProc;
ClientInclusao.FieldByName(sCampoChave).AsInteger := SPGeraCodigo.Parambyname(´NOVO´).AsInteger + 1;
SPGeraCodigo.Close;
if ClientInclusao.FieldList.Find(´STATUS´) <> nil then
ClientInclusao.FieldByName(´STATUS´).AsString := ´A´;
end;
GERA O SEGUINTE ERRO: SQL Sever error : unassigned code
:?: Por favor, se puder ajudar-me, agradeço
Abraços;
Lorival Pereira
lorival@hotmail.com.br
Tenho uma aplicação em Delphi 6 e Firebird 1.5, e utilizo Stored Procedure para gerar as chaves das tabelas.
Migrei o sistema para o Delphi 7, estão ocorrendo erro e o na inclusão de registro pois quando o código abaixo é executado:
(Codigo da StoreProcedure
COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
/* Stored procedures */
CREATE PROCEDURE ´PROXIMACIDADE´
(
´INCREMENTO´ SMALLINT
)
RETURNS
(
´NOVO´ INTEGER
)
AS
BEGIN EXIT; END ^
ALTER PROCEDURE ´PROXIMACIDADE´
(
´INCREMENTO´ SMALLINT
)
RETURNS
(
´NOVO´ INTEGER
)
AS
BEGIN
NOVO = Gen_ID(CODCIDADE_GEN, INCREMENTO);
END
^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;)
procedure TFrmCadastro.ClientInclusaoNewRecord(DataSet: TDataSet);
begin
GB_B_Incluindo := True;
SPGeraCodigo.Close;
SPGeraCodigo.ParamByName(´INCREMENTO´).AsInteger := 0;
SPGeraCodigo.ExecProc;
ClientInclusao.FieldByName(sCampoChave).AsInteger := SPGeraCodigo.Parambyname(´NOVO´).AsInteger + 1;
SPGeraCodigo.Close;
if ClientInclusao.FieldList.Find(´STATUS´) <> nil then
ClientInclusao.FieldByName(´STATUS´).AsString := ´A´;
end;
GERA O SEGUINTE ERRO: SQL Sever error : unassigned code
:?: Por favor, se puder ajudar-me, agradeço
Abraços;
Lorival Pereira
lorival@hotmail.com.br
Lorival Pereira
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)