Guest - Carla - Postado Maio 16, 2005 Denunciar Share Postado Maio 16, 2005 Tentei fazer assim, mas ele dá erro na linha de SQL, fala q falta ; mas não falta. O q pode ser?CorFundo:= Integer frmFormatar.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position); frmSites.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position); frmConta.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position); frmCompromissos.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position); frmLogin.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position); frmDados.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position); CorFundo:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position); Label24.Caption:= IntToStr(CorFundo); qryFormat.Active := False; qryFormat.SQL.Clear;COMO COLOCO O VALUES (CORFUNDO), SEM PRECISAR COLOCA-LO EM UM LABEL, É ASSIM MESMO? qryFormat.SQL.Add('Insert Into Login (CorFundo) Values('+#39+label24.Caption+#39+') where Cod like "%'+frmLogin.Label6.Caption+'%"'); qryFormat.Active := True; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Progr'amador Postado Maio 16, 2005 Denunciar Share Postado Maio 16, 2005 Olá eu num sou o Graymalkin, mas posso tentar te ajudar???1º - Se você ta declarando uma varavel você num pode usar o igual (=) use somente ":" e no final o ";". Exemplo: CorFundo : Integer;2º - Pra inserir nesse caso você num pode usar a clausula WHERE, e sempre que se usar as funções INSERT, UPDATE e DELETE deve-se usar o comando ExecSql. exemplo:qryFormat.Close;qryFormat.Sql.Clear;qryFormat.SQL.Add('Insert Into Login (CorFundo) Values('+#39+label24.Caption+#39+')');qryFormat.ExecSQL;Abs. Progr'amador. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Maio 17, 2005 Denunciar Share Postado Maio 17, 2005 Olá eu num sou o Graymalkin, mas posso tentar te ajudar???1º - Se você ta declarando uma varavel você num pode usar o igual (=) use somente ":" e no final o ";". Exemplo: CorFundo : Integer;2º - Pra inserir nesse caso você num pode usar a clausula WHERE, e sempre que se usar as funções INSERT, UPDATE e DELETE deve-se usar o comando ExecSql. exemplo:qryFormat.Close;qryFormat.Sql.Clear;qryFormat.SQL.Add('Insert Into Login (CorFundo) Values('+#39+label24.Caption+#39+')');qryFormat.ExecSQL;Abs. Progr'amador. É... cheguei tarde... Mas, boas dicas, Progr'amador! Abraços,Graymalkin Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest - Carla -
Tentei fazer assim, mas ele dá erro na linha de SQL, fala q falta ; mas não falta. O q pode ser?
CorFundo:= Integer
frmFormatar.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position);
frmSites.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position);
frmConta.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position);
frmCompromissos.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position);
frmLogin.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position);
frmDados.Color:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position);
CorFundo:= RGB(scbRed.Position, scbGreen.Position, scbBlue.Position);
Label24.Caption:= IntToStr(CorFundo);
qryFormat.Active := False;
qryFormat.SQL.Clear;
COMO COLOCO O VALUES (CORFUNDO), SEM PRECISAR COLOCA-LO EM UM LABEL, É ASSIM MESMO?
qryFormat.SQL.Add('Insert Into Login (CorFundo) Values('+#39+label24.Caption+#39+') where Cod like "%'+frmLogin.Label6.Caption+'%"');
qryFormat.Active := True;
Link para o comentário
Compartilhar em outros sites
2 respostass 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.