Uma dúvida com D7 e D2007
Veja este código abaixo, bem simples por sinal:
Se rodo no D2007, funciona, mas se rodo no D7, dá erro de:
DBExpress Error: Invalid Field Type. Este código, estou fazendo para testar a diferença de tempo entre o D7 e o 2007. Pasmem, mas até agora o 7 tá ganhando, com a mesma query, mas sem passagem de parâmetros.
var
tempo : TTime;
i : integer;
sql : string;
begin
Button2.Enabled := False;
tempo := now;
i := 1;
sql := ´Select epempsis, epmatricula, epdata, eptipo, epautoinc ´ +
´From EntrPont ´ +
´Where epempsis = :emp and epmatricula = :mat ´ +
´and eptipo = :tipo and epautoinc = :auto´;
for i := 1 to 10000 do
begin
SQLQuery1.Close;
SQLQuery1.Sql.Text := sql;
SQLQuery1.ParamByName(´emp´).AsInteger := 1;
SQLQuery1.ParamByName(´mat´).AsInteger := 222;
SQLQuery1.ParamByName(´tipo´).AsString := ´A´;
SQLQuery1.ParamByName(´auto´).AsInteger := 0;
SQLQuery1.Active := True;
end;
Label1.Caption := ´Tempo Gasto: ´ + FormatDateTime(´HH:MM:SS´, now-tempo);
Button2.Enabled := True;
end;
Se rodo no D2007, funciona, mas se rodo no D7, dá erro de:
DBExpress Error: Invalid Field Type. Este código, estou fazendo para testar a diferença de tempo entre o D7 e o 2007. Pasmem, mas até agora o 7 tá ganhando, com a mesma query, mas sem passagem de parâmetros.
Paulo
Curtidas 0
Respostas
Nerdex
20/09/2007
Pode ser inconsistência com o tipo string para o field ´tipo´, que o Delphi passa ao banco, assim sendo veja a config. no banco se está como char ou varchar[1]. O necessário é o Banco receber só char mesmo.
GOSTEI 0