GARANTIR DESCONTO

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


Diorgenes175

Diorgenes175

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 ...


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 ...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar