No comando
Qry := TSQLQuery.Create(Application);
Qry.sql.clear;
Qry.SQLConnection := FrmPrincipal.DB_SIPACA;
Qry.sql.add('SELECT MAX(' + Retorno + ') FROM ' + Tabela);
If High(Campos) <> High(Valores) then
raise exception.Create('Parametros para pesquisa incorretos');
If High(Campos) >= 0 then
For I := 0 to High(Campos) do
If I = 0 then
Qry.sql.add('WHERE ' + Campos[I] + ' = :Chave' + InttoStr(I))
else
Qry.sql.add('AND ' + Campos[I] + ' = :Chave' + InttoStr(I));
For I := 0 to Qry.Params.Count - 1 do
begin
Qry.Params[I].DataType := VarTypeToDataType(VarType(Valores[I]));
Qry.Params[I].Value := Valores[I];
end;
Qry.Open;
Quando abre o Qry da erro de "Unassigned Code". Que erro é este e o que está
errado?
~\\|//~
-(o o)-
o--------------oOOOo--(_)--oOOOo-------------o
| |
| Thiago Felipe Rachadel Rutsatz |
| Analista de Sistemas |
| Metalúrgica Sipaca Ltda |
| [EMAIL PROTECTED] (47) 371-3002 |
| |
| .oooO Oooo. |
o----------------( )---( )---------------o
\ ( ) /
\_) (_/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
