![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#11
|
|||
|
|||
|
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; |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Varias dudas sobre el componente TDrawGrid | Aprendiendo | OOP | 0 | 21-12-2004 01:50:07 |
| varias dudas | zastilla | Internet | 1 | 17-11-2004 20:16:34 |
| Varias dudas de funciones | seduerey | API de Windows | 9 | 30-04-2004 17:36:17 |
| varias dudas sobre consultas y refresco de datos | Giniromero | Conexión con bases de datos | 12 | 01-03-2004 12:50:11 |
| Varias Dudas | mauro | Varios | 1 | 10-07-2003 07:32:42 |
|