Ir para conteúdo
Fórum Script Brasil
  • 0

Insert Array No Interbase


Guest Reginaldo Barros Leal

Pergunta

Guest Reginaldo Barros Leal

Criei uma tabela no interbase da seguinte forma :

Create table PROCCAIXA

(ATENDIMENTO integer not null,

PRESTADOR integer default 0,

AMB INTEGER [15] DEFAULT 0,

CAIXA INTEGER DEFAULT 0,

DESPESA INTEGER DEFAULT 0,

USUARIO integer not null,

Primary key (ATENDIMENTO));

Create unique index PK_PROCCAIXA on PROCCAIXA(ATENDIMENTO);

Não consigo inserir linhas nesta tabela. Estou tentando assim :

function insere_proccaixa(XATENDIMENTO : integer;

XPRESTADOR : integer;

XAMB : array of integer;

XCAIXA : INTEGER;

XDESPESA : INTEGER;

XUSUARIO : integer):Boolean;

begin

MODULO_CON.DBI.StartTransaction;

MODULO_CON.Q_PROCCAIXA.Close;

MODULO_CON.Q_PROCCAIXA.SQL.Clear;

TEXTOSQL := 'INSERT INTO PROCCAIXA (ATENDIMENTO, PRESTADOR,' +

'AMB, CAIXA, DESPESA, USUARIO) '

+ 'VALUES (' + '' + IntToStr(xatendimento) + '' + ', '

+ '' + IntToStr(xprestador) + '' + ', '

+ '' + IntToStr(xamb) + '' + ', '

+ '' + IntToStr(xcaixa) + '' + ', '

+ '' + IntToStr(xdespesa) + '' + ', '

+ '' + IntToStr(xusuario) + '' + ')';

MODULO_CON.Q_PROCCAIXA.SQL.Add(TEXTOSQL) ;

TRY

MODULO_CON.Q_PROCCAIXA.PREPARED := TRUE;

MODULO_CON.Q_PROCCAIXA.EXECSQL;

EXCEPT

ON EDBENGINEERROR DO

BEGIN

MODULO_CON.DBI.Rollback;

MESSAGEDLG('Não foi possível inserir procedimentos do caixa ' ,mtError, [mbOK], 0);

abort;

exit;

end;

end;

MODULO_CON.DBI.Commit;

end;

Gostaria de uma solução , pois já tentei de várias formas e não consegui. Tenho a função acima para inserção ... sad.gif

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...