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