Problema com POO e ASPX
Amigos, preciso de uma ajuda, olha só:
no page_load do webform1.aspx estou fazendo assim
datagrid2.DataSource:= TFachadaclientes.SelecionarClientes(Clientes,´´);
datagrid2.databind();
na classe fachada esta assim:
class function TFachadaClientes.SelecionarClientes(Clientes: TClientes; Ordem: String): SqlDataReader;//Dataset;
Var
vBusClientes : TBusClientes;
begin
vBusClientes := TBusClientes.create;
vBusClientes.SelecionarCliente(Clientes,ordem);
end;
na classe de Bussines esta assim:
function TBusClientes.SelecionarCliente(Clientes: TClientes; Ordem: String): SqlDataReader;
Var
vClientes : TpClientes;
begin
vClientes := TpClientes.Create;
result := vClientes.Select(Clientes,false,Ordem);
end;
e na classe de persistencia ta assim:
function TPersistenciaPadraoSQL.Select(ValueObject: TObject; CaseOption: Boolean; Order: String): SQlDataReader;
Var
vTabela: &Type;
vSQLCommand : SQLCommand;
vDataSet : Dataset;
vSQLDataAdapter : SQLDataAdapter;
vDataReader : SqlDataReader;
begin
vSQLDataAdapter := SQLDataAdapter.Create;
vSQLCommand := SQLCommand.Create;
vDataSet := Dataset.Create;
if vSQLConnection.State = ConnectionState(0) then
vSQLConnection.Open;
vSQLCommand.Connection := vSQLConnection;
vTabela := ValueObject.GetType;
vSQLCommand.CommandText := ´Select * from ´+vTabela.Name.Substring(1);
if order <> ´´ then
vSQLCommand.CommandText := vSQLCommand.CommandText + ´ Order by ´+Order;
vSQLDataAdapter.SelectCommand := vSQLCommand;
vDataReader := vSQLDataAdapter.SelectCommand.ExecuteReader;//ExecuteNonQuery;
//vSQLDataAdapter.Fill(vDataset);
Result := vDataReader;//vDataSet;
end;
não aparece erro, o banco tem dados, mas o datagrid nem aparece na tela, ja debuguei e vi passo a passo da execução, tudo roda mas nada de retorno......alguem sabe onde está o erro?
no page_load do webform1.aspx estou fazendo assim
datagrid2.DataSource:= TFachadaclientes.SelecionarClientes(Clientes,´´);
datagrid2.databind();
na classe fachada esta assim:
class function TFachadaClientes.SelecionarClientes(Clientes: TClientes; Ordem: String): SqlDataReader;//Dataset;
Var
vBusClientes : TBusClientes;
begin
vBusClientes := TBusClientes.create;
vBusClientes.SelecionarCliente(Clientes,ordem);
end;
na classe de Bussines esta assim:
function TBusClientes.SelecionarCliente(Clientes: TClientes; Ordem: String): SqlDataReader;
Var
vClientes : TpClientes;
begin
vClientes := TpClientes.Create;
result := vClientes.Select(Clientes,false,Ordem);
end;
e na classe de persistencia ta assim:
function TPersistenciaPadraoSQL.Select(ValueObject: TObject; CaseOption: Boolean; Order: String): SQlDataReader;
Var
vTabela: &Type;
vSQLCommand : SQLCommand;
vDataSet : Dataset;
vSQLDataAdapter : SQLDataAdapter;
vDataReader : SqlDataReader;
begin
vSQLDataAdapter := SQLDataAdapter.Create;
vSQLCommand := SQLCommand.Create;
vDataSet := Dataset.Create;
if vSQLConnection.State = ConnectionState(0) then
vSQLConnection.Open;
vSQLCommand.Connection := vSQLConnection;
vTabela := ValueObject.GetType;
vSQLCommand.CommandText := ´Select * from ´+vTabela.Name.Substring(1);
if order <> ´´ then
vSQLCommand.CommandText := vSQLCommand.CommandText + ´ Order by ´+Order;
vSQLDataAdapter.SelectCommand := vSQLCommand;
vDataReader := vSQLDataAdapter.SelectCommand.ExecuteReader;//ExecuteNonQuery;
//vSQLDataAdapter.Fill(vDataset);
Result := vDataReader;//vDataSet;
end;
não aparece erro, o banco tem dados, mas o datagrid nem aparece na tela, ja debuguei e vi passo a passo da execução, tudo roda mas nada de retorno......alguem sabe onde está o erro?
Quartieri
Curtidas 0
Respostas
Quartieri
11/01/2007
resolvido.
Faltava apenas um result :=
:)
Faltava apenas um result :=
:)
GOSTEI 0