Cita:
Empezado por Pedron
...
pero ya en esta parte no se que mas hacer para que me mande el listbox9 a la tabla y lo muestre, si gustas no me pongas el codigo mejor explicamelo para poder entender mejor muchas gracias por tu consejo y respuesta  |
Hola Pedron.
Supongo que te referis a pasar los items a una tabla de una base de datos. Si estoy acertado, lo primero que tendrías que definir es que b.d. vas a usar y lo segundo con que componentes vas a establecer las relaciones.
En líneas muy generales y teniendo el ListBox una cantidad menor o igual de items que campos tiene la tabla , sería:
Código Delphi
[-]procedure ListBoxToTable(aTable: TDataSet; TS: TStrings);
var
i: Integer;
begin
aTable.Insert;
for i:= 0 to TS.Count-1 do
aTable.Fields[i].AsString:= TS[i];
aTable.Post;
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.btnSaveClick(Sender: TObject);
begin
ListBoxToTable(ADOTable1, ListBox1.Items);
end;
Saludos