O que pode ESTá errado, quando executo Dar um erro:
DmLogin.cdsLogin.Append;
DmLogin.cdsLogin.FieldByName('Usuario').Value := EditLogin.Text;
DmLogin.cdsLogin.Post;
If dmLogin.cdsLogin.ApplyUpdates(0) 0
Then dmLogin.cdsLogin.CancelUpdates
Else
E o código é autoincremento? Que erro tá dando?
-Mensagem Original-
De: Adenes I. Freire Junior
Para: delphi-br@yahoogrupos.com.br
Enviada em: domingo, 17 de junho de 2007 17:20
Assunto: [delphi-br] O que ESTá errado?
O que pode ESTá errado, quando executo Dar um erro
Estou querendo gravar uma imagem no banco de dados FireBird com um campo blob.
Tenho uma Query, ClientDataSet e um DataSetProvider onde no
DataSetProvider indiquei a query e no clientdataset indiquei o
DataSetProvider.
coloquei um botão com o seguinte código:
procedure
.
Claudiney
- Original Message -
From: Emerson Moreno [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 08, 2006 10:52 AM
Subject: [delphi-br] O que está errado?
Estou querendo gravar uma imagem no banco de dados FireBird com um campo
blob.
Tenho uma Query
: Emerson Moreno [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 08, 2006 10:52 AM
Subject: [delphi-br] O que está errado?
Estou querendo gravar uma imagem no banco de dados FireBird com um campo
blob.
Tenho uma Query, ClientDataSet e um DataSetProvider onde
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
ClientDataSet1.Append;
ClientDataSet1IMAGEM.LoadFromFile(OpenDialog1.FileName);
ClientDataSet1CAMINHOIMAGEM.AsString := OpenDialog1.FileName;
ClientDataSet1.Post;
end;
end;
Só
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
ClientDataSet1.Append;
ClientDataSet1IMAGEM.LoadFromFile(OpenDialog1.FileName);
ClientDataSet1CAMINHOIMAGEM.AsString := OpenDialog1.FileName;
ClientDataSet1.Post;
7 matches
Mail list logo