AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Prism WebUserControl mit Grid, verschiedene Aufrufe
Thema durchsuchen
Ansicht
Themen-Optionen

WebUserControl mit Grid, verschiedene Aufrufe

Ein Thema von Maa83 · begonnen am 28. Jul 2005
Antwort Antwort
Maa83

Registriert seit: 7. Nov 2002
220 Beiträge
 
Delphi 10.3 Rio
 
#1

WebUserControl mit Grid, verschiedene Aufrufe

  Alt 28. Jul 2005, 14:50
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
Martin
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz