Guest Reginaldo Barros Leal Postado Agosto 28, 2004 Denunciar Share Postado Agosto 28, 2004 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 ... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Progr'amador Postado Agosto 28, 2004 Denunciar Share Postado Agosto 28, 2004 Citar Link para o comentário Compartilhar em outros sites More sharing options...
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 ...
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.