[Resolvido] []Delphi + SQL, Não está querendo aparecer as c

1 Duvida

Tipo tenho no MSSQL

/applications/core/interface/imageproxy/imageproxy.php?img=http://img526.imageshack.us/img526/7830/imagem1ps5.png&key=df549ae24dad536700abd44824e4b58b96a36c7dbea6f3a214faf37f4eee253a" alt="Imagem Postada" />

/applications/core/interface/imageproxy/imageproxy.php?img=http://img521.imageshack.us/img521/6463/imagem2zz4.png&key=92d50efb05c49fabdf994d34f298cd4f95102aa92b8dc565a14b84b7c8f44a3c" alt="Imagem Postada" />

e no aplicativo..

procedure TForm1.FormCreate(Sender: TObject);
begin

Query1.SQL.Add('SELECT memb___id, memb_name, Creditos, Vip FROM dbo.MEMB_INFO');
Query1.ExecSQL;
Query1.Open;
end;  

mais quando eu do RUN no aplicativo so aparece as Colunas Creditos e Vip

/applications/core/interface/imageproxy/imageproxy.php?img=http://img512.imageshack.us/img512/7615/imagem3bg5.png&key=38ddb01a865afbc565eac44083e4861143331ad470964a4ce23c5f519162e7ce" alt="Imagem Postada" />

2 Duvida [ Resolvida ]

tenho o código.

procedure TForm1.Button1Click(Sender: TObject);
var

conta: String;
dias: String;

begin

conta := Edit1.Text;
dias := Edit2.Text;
Query1.SQL.Clear;
Query1.SQL.Add('UPDATE dbo.MEMB_INFO SET Vip=1, Creditos="' + dias + '" WHERE memb___id="' + conta + '"');
 try
 Query1.ExecSQL;
 except
 end;
end;

dai ta no aplicativo eu boto a conta

Conta := 'mikol';

Dias := '30';

ali onde tem Adicionar Vip

/applications/core/interface/imageproxy/imageproxy.php?img=http://img512.imageshack.us/img512/7615/imagem3bg5.png&key=38ddb01a865afbc565eac44083e4861143331ad470964a4ce23c5f519162e7ce" alt="Imagem Postada" />

mais ele me da o seguinte error..

/applications/core/interface/imageproxy/imageproxy.php?img=http://img257.imageshack.us/img257/9678/imagemad8.png&key=ca1f017da5ca4cb0d1366fb27550dc9c7fc7dc97d3a25966766bdcc8b8702f16" alt="Imagem Postada" />

Alguém pode me ajudar ??

http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

Query1.SQL.Clear;
Query1.SQL.Add('UPDATE dbo.MEMB_INFO SET Vip=1, Creditos = :Dias WHERE memb___id = :Conta');
Query1.ParamByName('Dias').AsString := Edit2.text;
Query1.ParamByName('Conta').AsString := Edit1.text;

 Query1.ExecSQL;
 except
end;
end;

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT memb___id, memb_name, Creditos, Vip FROM dbo.MEMB_INFO');
Query1.Open;
Não é necessário o comando **Query1.ExecSQL;** ele é utilizado nos comandos de sql para insert, update, delete, etc...