Database

i db\'en kan du indsætte data med en tquery komponent:
var
  Q : TQuery;
begin
  Q := TQuery.Create(nil);
  Q.DAtabaseName := DIN_DATABASES_NAVN;
  Q.Close;
  Q.SQL.Clear;
  Q.SQL.Add(\'INSERT INTO DIN_DB_NAVN\');
  Q.SQL.Add(\'(FELT_NAVN1,FELT_NAVN2,...FELT_NAVNn)\');
  Q.SQL.Add(\'VALUES(:p1,:p2,...:pn)\');
  Q.PAramByName(\'p1\').AsFELT_DATA_TYPE := INPUT_FELT_NAVN.Text;
  Q.PAramByName(\'p2\').AsFELT_DATA_TYPE := INPUT_FELT_NAVN.Text;
  ...
  Q.PAramByName(\'pn\').AsFELT_DATA_TYPE := INPUT_FELT_NAVN.Text;
  Q.ExecSQL;
end;

I treewiev\'et skal du enten lave en add eller en addchild alt efter hvordan strukturen er...

ehhh...i treeview vises TTreeNodes - så måden du skal gøre det på er:

var
  dbNode,subNode : TTreeNode;

begin
  dbNode := TreeView.Items.Add(nil,\'base node\'); // tilføjer en base node (!)
  dbNode := TreeView.Items.Add(dbNode,\'db1\'); // tilføjer en node til root noden
  subNode := TreeView.Items.AddChild(dbNode,\'felt1\'); // tilføjer en subnode til dbNode
  subNode.ImageIndex := 3; // sætter feks image indexet til 3. pic i en-eller-andet TImageList
end;

tknudsen, hvis du har ICQ kan du så ikke lige kontakte mig på #40064597