1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TWinForm_Inventar_Anzeige.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
  ds.Clear;
  conn.Open;
  oda.Fill(ds,db1);
  conn.Close;
  DataGrid1.SetDataBinding(ds, db1);
end;

procedure TWinForm_Inventar_Anzeige.TWinForm_Inventar_Anzeige_Load(sender: System.Object;
  e: System.EventArgs);

begin
  conn:=OracleConnection.Create('user id='+userid+'; password='+password);
  oda:=OracleDataAdapter.Create('Select * from '+db1, conn);
  ocb:=OracleCommandBuilder.Create(oda);
  ds:=DataSet.Create(db1);
end;