[DataGrid] Bearbeitungs Schaltfläche

[Andi1985]

Delphi-Quellcode:

procedure TWebForm1.LoadData(sender: Page);
var myConnection: OleDbConnection; 
    myQuery: OleDbCommand; 
    myAdapter: OleDbDataAdapter ; 
    sDataBase: string; 
    ds: DataSet; 
begin 
  // TODO: Put user code to initialize the page here 
  myConnection := OleDbConnection.Create; 
  myQuery := OleDbCommand.Create; 
  myAdapter := OleDbDataAdapter.Create; 
  ds := dataSet.Create; 

  sDataBase := 'test'; 
  myConnection.ConnectionString := 'Provider=OraOLEDB.Oracle;Data Source=' + sDataBase + ';User Id=test;Password=test;'; 
  myConnection.Open; 

  myQuery.CommandText := 'SELECT * FROM test'; 

  myQuery.Connection := myConnection; 
  myQuery.ExecuteNonQuery; 

  myAdapter.SelectCommand := myQuery; 
  myAdapter.Fill(ds); 

  DataGrid1.DataSource := ds; 
  DataGrid1.DataBind;
end;