Ok Espero Te Sirva
tengo esta funcion, bueno la coneccion no es mucho problema xq ya te la dieron arriba.
Function ListarSeries(cn: TADOConnection;var Error:String):TADODataSet;
var ADO:TADODataset;
begin
try
ADO := TADODataSet.Create(nil);
ADO.Connection := cn;
ADO.Close;
ADO.CommandType := cmdText;
ADO.CommandText := ' select distinct SerieNotaVenta from TNotaVenta order by SerieNotaVenta ';
ADO.Open;
result := ADO;
except
on E : Exception do
begin
Error:=E.Message;
result := nil;
end;
end;
end;
AQUI HAGO LA LLAMADA Y CARGO EN UN COMBO
// cargar las diferentes series
ADO := TADODataSet.Create(nil);
ADO.Connection := dmConeccion.ADOConection;
ADO.Clone(CVenta.ListarSeries(dmConeccion.ADOConection,Error));
ADO.First;
while not ADO.Eof do
begin
cbSerie.Items.Add(ADO.Fields[0].AsString);
ADO.Next;
end;
|