Hallo,
ich habe mir ein ganz einfaches Webusercontrol gebastelt. Auf diesem befindet sich nichts anderes als ein DBWebGrid.
In diesem WebUserControl habe ich eine public Prozedur mit dem Namen "Start".
Diese beinhaltet folgenden Code:
Delphi-Quellcode:
procedure TwucSuchfenster.Start;
var dsrc_Suche : DBWebDataSource;
ds_Suche : DataSet;
bdp_da_Suche : BdpDataAdapter;
begin
dsrc_Suche := DBWebDataSource.Create;
ds_Suche := DataSet.Create;
bdp_da_Suche := BdpDataAdapter.Create;
bdp_da_Suche.SelectCommand := BdpCommand.Create;
bdp_da_Suche.SelectCommand.Connection := BdpConnection(Application['Connection']);
bdp_da_Suche.SelectCommand.Connection.Open;
try
bdp_da_Suche.Active := False;
dsrc_Suche.DataSource := ds_Suche;
bdp_da_Suche.DataSet := ds_Suche;
//Response.Write(SQLString);
bdp_da_Suche.SelectCommand.CommandText := SQLString;
bdp_da_Suche.Active := True;
dbwb_Suche.DBDataSource := dsrc_Suche;
dbwb_Suche.TableName := TableName;
finally
//Auf jeden Fall die Verbindung schließen
bdp_da_Suche.SelectCommand.Connection.Close;
end;
end;
SQLString und TableName sind im Moment auch zwei public Variablen (das ganze ist nur ein Test, also nicht schön programmiert).
So, auf meine Mainform habe ich nun zwei Linkbuttons und eben dieses UserControl gelegt.
Auf dem ersten Button dieser Quellcode:
Delphi-Quellcode:
procedure TWebForm1.lb_Ausbilder_Click(sender: System.Object; e: System.EventArgs);
begin
uc_Suche.SQLString := 'SELECT * FROM AUSBILDER';
uc_Suche.TableName := 'AUSBILDER';
uc_Suche.Start;
uc_Suche.Visible := True;
end;
und auf dem zweiten dieser:
Delphi-Quellcode:
procedure TWebForm1.lb_Azubi_Click(sender: System.Object; e: System.EventArgs);
begin
uc_Suche2.SQLString := 'SELECT * FROM AZUBI';
uc_Suche2.TableName := 'AZUBI';
uc_Suche2.Start;
uc_Suche2.Visible := True;
end;
Starte ich nun das Programm und klicke ich auf den ersten Button bekomme ich auch wunderbar das Grid mit den Daten angezeigt. Klicke ich nun auf den zweiten Button passiert nichts mehr. Er übermittelt zwar den SQLString und die Tabelle richtig und er hat auch die richtigen Werte im Dataset (alles per debugging nachgeschaut) aber er zeigt mir nichts an.
Starte ich das Programm und klicke erst auf den zweiten Button ist das Ergebnis bei diesem Button richtig und beim zweiten kommt dann nichts mehr!!!
Hoffe ihr könnt mir helfen. Bin schon am verzweifeln.
Vielen Dank im voraus