3 camadas Delphi ASP

Delphi

22/04/2004

Olá Pessoal!
Estou iniciando desenvolvimento de páginas ASP com DLL´s elaboradas em Delphi 5.
Consiguo retornar dados para a pagina com o seguinte código
procedure TMetodos.Consulta(var Tabela, Id, Id_vlr: WideString) ;
var sSQL :String;
begin
  sSQL := ´SELECT * FROM ´+Tabela;
  if (Id <> ´´) and (Id_vlr <> ´´) then
    sSQL := sSQL+ ´ WHERE ´+Id+´ = ´+Id_vlr;

  FDM.qryCuston.Close;
  FDM.qryCuston.SQL.Clear;
  FDM.qryCuston.SQL.Text := sSQL;
  if not FDM.qryCuston.Prepared then
    FDM.qryCuston.Prepare;
  FDM.qryCuston.Open;

  if not FDM.qryCuston.IsEmpty then
    Response.Write(FDM.dtsListaSimples.Content);
end;

uso o componente TDataSetTableProcedure, porém isso retorna uma tabela com os dados em html, preciso retornar um ´Recordset´ para fazer loop com os registros no ASP.

Alguém sabe como fazer?
Agradeço desde já a qualquer ajuda.
Att, Jacson Soares.


Jacson

Jacson

Curtidas 0

Respostas

Jacson

Jacson

22/04/2004

Olá pessoal!
Nenhuma novidade???
Obrigado!


GOSTEI 0
POSTAR