Erro: Field quot;CODIGOquot; not Found
galera vou colar aqui uma consulta SQL que ta dando o erro (Tbl_Livros:Field ´CODIGO´ not Found)
-----------------------------------------------------
if Edit_CodigoLivro.Text <>´´ Then
begin
Dm.Tbl_Livros.Close;
Dm.Tbl_Livros.SelectSQL.Clear;
//Dm.Tbl_Livros.SelectSQL.Add(´select NOME from LIVROS Where CODIGO =´+ QuotedStr(Edit_CodigoLivro.Text));
Dm.Tbl_Livros.SelectSQL.Add(´select NOME from LIVROS Where CODIGO = ´´´ + Trim(Edit_CodigoLivro.Text) + ´´´´);
Dm.Tbl_Livros.Open;
end;
---------------------------------------------------
Logo abaixo está a estrutura da tabela em sí que por sinal está tudo ok no DataModule...
---------------------------------------------------
CREATE TABLE LIVROS
(
NOME VARCHAR(100) NOT NULL,
CODIGO NUMERIC(15, 2) NOT NULL,
QUANTIDADE VARCHAR(50),
TIPO VARCHAR(50),
AUTOR VARCHAR(100),
SINOPSE VARCHAR(1000),
EDITORA VARCHAR(50),
EXEMPLAR VARCHAR(50),
VOLUME VARCHAR(50),
EDICAO VARCHAR(50),
ANO_EDICAO VARCHAR(50),
LOCAL VARCHAR(50),
AREA VARCHAR(50),
STATUS VARCHAR(50),
RESERVA VARCHAR(50),
CONSTRAINT PK_LIVROS PRIMARY KEY (NOME)
);
---------------------------------------------------------
quem puder me ajudar.... fico grato... Abraços!!!!
Juliano
-----------------------------------------------------
if Edit_CodigoLivro.Text <>´´ Then
begin
Dm.Tbl_Livros.Close;
Dm.Tbl_Livros.SelectSQL.Clear;
//Dm.Tbl_Livros.SelectSQL.Add(´select NOME from LIVROS Where CODIGO =´+ QuotedStr(Edit_CodigoLivro.Text));
Dm.Tbl_Livros.SelectSQL.Add(´select NOME from LIVROS Where CODIGO = ´´´ + Trim(Edit_CodigoLivro.Text) + ´´´´);
Dm.Tbl_Livros.Open;
end;
---------------------------------------------------
Logo abaixo está a estrutura da tabela em sí que por sinal está tudo ok no DataModule...
---------------------------------------------------
CREATE TABLE LIVROS
(
NOME VARCHAR(100) NOT NULL,
CODIGO NUMERIC(15, 2) NOT NULL,
QUANTIDADE VARCHAR(50),
TIPO VARCHAR(50),
AUTOR VARCHAR(100),
SINOPSE VARCHAR(1000),
EDITORA VARCHAR(50),
EXEMPLAR VARCHAR(50),
VOLUME VARCHAR(50),
EDICAO VARCHAR(50),
ANO_EDICAO VARCHAR(50),
LOCAL VARCHAR(50),
AREA VARCHAR(50),
STATUS VARCHAR(50),
RESERVA VARCHAR(50),
CONSTRAINT PK_LIVROS PRIMARY KEY (NOME)
);
---------------------------------------------------------
quem puder me ajudar.... fico grato... Abraços!!!!
Juliano
Mahdak
Curtidas 0
Respostas
Luciano.sul
09/05/2005
De um duplo click na sua query e adicione os fields
Deve funcionar
Deve funcionar
GOSTEI 0
Mahdak
09/05/2005
ja ta feito. mas mesmo assim nao funcionou... tudo add, tudo conectado... mesmo assim nao funcionou...
:(
Aguardo...
Abraços!
:(
Aguardo...
Abraços!
GOSTEI 0
Joaoshi
09/05/2005
Boa noite!
Colega tente colocar a instrução SQL da seguinte forma:
´select NOME from LIVROS Where CODIGO = QuotedStr(Trim(Edit_codigoLivro.Text));
Espero ter ajudado.
Colega tente colocar a instrução SQL da seguinte forma:
´select NOME from LIVROS Where CODIGO = QuotedStr(Trim(Edit_codigoLivro.Text));
Espero ter ajudado.
GOSTEI 0
Mahdak
09/05/2005
amigo. fiz como vc me disse. as transações com o banco estao sendo realizadas, o sistema está salvando na tabela tudo certinho, porem aquele erro ainda insite....
GOSTEI 0