Hai Sharky,
über
ODBC, wenn du das meinst.. und das ist der Code für die Abfrage der Dateien aus der
DB..
Delphi-Quellcode:
procedure TfrmMain.LoadFileList(Anwendung: String);
var
i: integer;
ListItem: TListItem;
begin
lvFiles.Items.Clear;
SelectetName:=Anwendung;
dstGetFilelist.Active:=false;
dstGetFilelist.CommandText:='select * from files_tbl where projekt ='''+Anwendung+'''';
dstGetFilelist.Active:=true;
dstGetFilelist.first;
for i:=0 to dstGetFilelist.RecordCount-1
do begin
ListItem:=lvFiles.Items.Add;
ListItem.Caption:=dstGetFilelist.Fields.Fields[1].AsString;
ListItem.SubItems.Add(StringReplace(dstGetFilelist.Fields.Fields[2].AsString,'\\','\',[rfReplaceAll, rfIgnoreCase]));
dstGetFilelist.Next;
end;
end;