Fórum TADOQuery - Consulta em BD Access #205564
10/01/2004
0
Caras, estou fazendo um sistema em BD MS Access e tenho o seguinte empecilho:
1) No formulário de produtos, em seu campo CodItem é necessário digitar o código do item para que sua descrição seja apresentada em um DBEdit que está ligado a um DataSource, que está ligado a um TADOQuery. O problema é que ocorre um erro (acredito ser do Access) e cai no ´On e:exception Do´. Eis o codigo de consulta:
OBS.: Este mesmo código usei para fazer esta consulta em Paradox, e funcionou perfeitamente.
Type
procedure Localiza_Item (Items : string);
.
.
.
procedure TFrmProdutos.Localiza_Item(Items: string);
Var
bmkRegistro: TBookMark;
begin
Try
QryItens.Close;
QryItens.SQL.Clear ;
QryItens.SQL.Add (´ SELECT Codigo, Descricao FROM TbItensProdutos WHERE Codigo = ´ + QuotedStr (Items));
QryItens.Open;
Except
On e:exception Do
begin
messagedlg(´Erro ao localizar Registro!´ + #1310 + e.message,mterror,[mbok],0);
QryItens.Close ;
end;
End;
end;
Propriedade SQL do TADOQuery:
SELECT Codigo, Descricao FROM TbItensProdutos
1) No formulário de produtos, em seu campo CodItem é necessário digitar o código do item para que sua descrição seja apresentada em um DBEdit que está ligado a um DataSource, que está ligado a um TADOQuery. O problema é que ocorre um erro (acredito ser do Access) e cai no ´On e:exception Do´. Eis o codigo de consulta:
OBS.: Este mesmo código usei para fazer esta consulta em Paradox, e funcionou perfeitamente.
Type
procedure Localiza_Item (Items : string);
.
.
.
procedure TFrmProdutos.Localiza_Item(Items: string);
Var
bmkRegistro: TBookMark;
begin
Try
QryItens.Close;
QryItens.SQL.Clear ;
QryItens.SQL.Add (´ SELECT Codigo, Descricao FROM TbItensProdutos WHERE Codigo = ´ + QuotedStr (Items));
QryItens.Open;
Except
On e:exception Do
begin
messagedlg(´Erro ao localizar Registro!´ + #1310 + e.message,mterror,[mbok],0);
QryItens.Close ;
end;
End;
end;
Propriedade SQL do TADOQuery:
SELECT Codigo, Descricao FROM TbItensProdutos
Diorgenes175
Curtir tópico
+ 0
Responder
Posts
11/01/2004
Alexdias
CARO COLEGA TENTE O SEGUINTE ...
// use no evento on clique do buton , ou no evento onexit do edit
qproduto.locate(CodItem,edit1.text,[loPartialKey]);
porém vc deve a declararação DB logo no inico da unit bem no inicio mesmo onde vem o nome da unit , logo apos a interface na parte Uses...
ex:
unit UProduto;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls, Grids, DBGrids,DB;
// REPAROU A INCLUSÃO DE DB SÓ ISSO !!!
type
DÚVIDAS ME MANDE UM E-MAIL E SERVIU MANDE TB ...
// use no evento on clique do buton , ou no evento onexit do edit
qproduto.locate(CodItem,edit1.text,[loPartialKey]);
porém vc deve a declararação DB logo no inico da unit bem no inicio mesmo onde vem o nome da unit , logo apos a interface na parte Uses...
ex:
unit UProduto;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls, Grids, DBGrids,DB;
// REPAROU A INCLUSÃO DE DB SÓ ISSO !!!
type
DÚVIDAS ME MANDE UM E-MAIL E SERVIU MANDE TB ...
Responder
Gostei + 0
11/01/2004
Alexdias
CARO COLEGA TENTE O SEGUINTE ...
// use no evento on clique do buton , ou no evento onexit do edit
qproduto.locate(CodItem,edit1.text,[loPartialKey]);
porém vc deve usar a declararação DB logo no inico da unit bem no inicio mesmo onde vem o nome da unit , logo apos a interface na parte Uses...
ex:
unit UProduto;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls, Grids, DBGrids,DB;
// REPAROU A INCLUSÃO DE ______DB____________ SÓ ISSO !!!
type
DÚVIDAS ME MANDE UM E-MAIL E SERVIU MANDE TB ...
// use no evento on clique do buton , ou no evento onexit do edit
qproduto.locate(CodItem,edit1.text,[loPartialKey]);
porém vc deve usar a declararação DB logo no inico da unit bem no inicio mesmo onde vem o nome da unit , logo apos a interface na parte Uses...
ex:
unit UProduto;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls, Grids, DBGrids,DB;
// REPAROU A INCLUSÃO DE ______DB____________ SÓ ISSO !!!
type
DÚVIDAS ME MANDE UM E-MAIL E SERVIU MANDE TB ...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)