Hallo,
kopiere den oben geposteten Code in den implementation-Abschnitt Deines Datamodule1. Im interface-Abschnitt, nach der Deklaration von TDataModul1 musst Du die Funktion aufführen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
| ... type TDataModule1=class(TDataModule) ... ... end;
function TabelleExists(aCon:TADOConnection; const aTabelle:String):Boolean; var DataModul1: TDataModule;
implementation ... |
Von nun an ist nur noch der Aufruf der Funktion selber wichtig. Dazu musst Du nur die Unit DataModul1 in den uses-Abschnitt der Unit aufnehmen, die die Funktion aufrufen will.
Delphi-Quelltext
1: 2: 3: 4:
| if TabelleExists(DataModul1.ADOConnection1, 'MeineTabelle') then ShowMessage('Tabelle ist vorhanden.'); |
_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)