Erro básico.
Procura no google que tem a resposta...
Mas aí vai uma dica... Formata teu campo com FormatDateTime
----- Original Message -----
From: "lyanagomes" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, March 31, 2005 11:32 AM
Subject: [delphi-br] ERRO: Type mismatch in expression (sql)
Olá tenho esta consulta em sql, mas ta dando o seguinte erro
'Type mismatch in expression!' acredito que seja por causa dos campos
com hora o que faço???
begin
Data1:=dbedit4.text;
D1:=copy(Data1,1,2);
D2:=copy(Data1,4,2);
D3:=copy(Data1,7,4);
Data1:= D2+'/'+D1+'/'+D3;
QUERY1.Close;
QUERY1.SQL.CLEAR;
query1.sql.Add('SELECT Principal."Data_Reserva" ,');
query1.sql.Add(' Principal."Hora_Reserva" ,');
query1.sql.Add(' Principal."Hora_Devolucao" ,');
query1.sql.Add(' Turno."Turno" ,');
query1.sql.Add(' Equipamento."Equipamento" ,');
query1.sql.Add(' Principal."Finalidade" ,');
query1.sql.Add(' Principal."Local" ,');
query1.sql.Add(' Principal."Serv_Responsavel" ,');
query1.sql.Add(' Setor."Setor" , Principal."OBS" ,');
query1.sql.Add(' Principal."Data_Devolucao"');
query1.sql.Add('FROM "Principal.DB" Principal , "Turno.DB"
Turno ,');
query1.sql.Add(' "Setor.db" Setor , "Equipamento.DB"
Equipamento');
query1.sql.Add('WHERE ( Principal.CodTurno = Turno.CodTurno )');
query1.sql.Add(' AND');
query1.sql.Add(' ( Setor.CodSetor = Principal.CodSetor )');
query1.sql.Add(' AND ');
query1.sql.Add(' ( Equipamento.CodEquip =
Principal.CodEquip )');
query1.sql.Add('AND (Principal."Data_Reserva" = "'+Data1+'")');
QUERY1.SQL.ADD('AND(Equipamento."Equipamento"
LIKE "'+DBLookupComboBox2.TEXT+'")');
QUERY1.SQL.ADD('AND(Turno."Turno"
LIKE "'+DBLookupComboBox1.TEXT+'")');
QUERY1.SQL.ADD('AND(Principal."Hora_Reserva" = "'+DBEdit5.TEXT+'")');
QUERY1.SQL.ADD('AND(Principal."Hora_Devolucao"
= "'+DBEdit6.TEXT+'")');
query1.open;
if (query1Data_Reserva.Value=strtodate(dbedit4.text)) and
(query1Equipamento.Value=DBLookupComboBox2.TEXT) and
(query1Hora_Reserva.Value=strtotime(DBedit5.TEXT)) and
(query1Hora_Devolucao.Value=strtotime(DBedit6.TEXT)) and
(encontrar=false) then
begin
table1.Cancel;
messagebox(form2.handle,'O Equipamento não está disponível para este
horário!','Informação', mb_ok+mb_iconinformation);
end
else
begin
table1.post;
query1.close;
query1.open;
end;
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.6 - Release Date: 30/03/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
