![]() |
WebUserControl mit Grid, verschiedene Aufrufe
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:
SQLString und TableName sind im Moment auch zwei public Variablen (das ganze ist nur ein Test, also nicht schön programmiert).
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; So, auf meine Mainform habe ich nun zwei Linkbuttons und eben dieses UserControl gelegt. Auf dem ersten Button dieser Quellcode:
Delphi-Quellcode:
und auf dem zweiten dieser:
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;
Delphi-Quellcode:
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.
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 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 :) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:57 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz