Mehrere Tabellen mit Delphi verbinden

[t0M]

Hallo allerseits,

Ich bin in Moyos Gruppe und wir machen dieses Programm als Gruppenarbeit in unserer Schule. Erstmal kurz was zu mir: ich Programmiere schon seit paar jahren ziemlich viel in PHP und MySQL und kenne mich dort relativ gut aus. Problem von uns bei dem Programm ist eher wie man das in Delphi umsetzt. Die Tabellen haben wir ja alle mehr oder weniger erstellt.

Wenn wir nun zb mit SQL aus der Tabelle etwas rauslesen wie bekommen wir die werte in das Formular das wir mit dem Formularexperten in Delphi erstellt haben?


so kann man das zb in PHP machen:

Delphi-Quellcode:

$abc = 'SELECT * FROM Teams';
$schueler = 'SELECT * FROM Schueler WHERE TeamID='.$abc['TeamID'];

nun hätte ich im array $schueler alle daten des Schülers, dass die TeamID von oben hat. Wie mach ich das nun in Delphi?

[Union]

Zitat von t0M:

Hallo allerseits,

Ich bin in Moyos Gruppe und wir machen dieses Programm als Gruppenarbeit in unserer Schule. Erstmal kurz was zu mir: ich Programmiere schon seit paar jahren ziemlich viel in PHP und MySQL und kenne mich dort relativ gut aus. Problem von uns bei dem Programm ist eher wie man das in Delphi umsetzt. Die Tabellen haben wir ja alle mehr oder weniger erstellt.

Wenn wir nun zb mit SQL aus der Tabelle etwas rauslesen wie bekommen wir die werte in das Formular das wir mit dem Formularexperten in Delphi erstellt haben?


so kann man das zb in PHP machen:

Delphi-Quellcode:

$abc = 'SELECT * FROM Teams';
$schueler = 'SELECT * FROM Schueler WHERE TeamID='.$abc['TeamID'];

nun hätte ich im array $schueler alle daten des Schülers, dass die TeamID von oben hat. Wie mach ich das nun in Delphi?

Du benötigst dafür in Delphi 4 Komponenten:

• TDatabase
  Dort wählst Du einen vorher angelegten AliasName aus und vergibst einen Databasename. Über dieses Objekt sollten dann alle DB-Operationen laufen. Connected auf true setzen.
• TQuery
  In der Eigenschaft SQL (Das ist eine Stringlist) kann Du das SQL einsetzen. Parameter werden mit ":" gekennzeichnet. Also z.b. 'Select * from Schueler where TeamID=:TeamID'. Über die Liste Params kannst Du die Parameter setzen oder im Source über ParamByName.As<Type>. Beispiel : QuerySchueler.ParamByName('TeamId').AsInteger := 1234;
  Die Query wird durch setzen der Eigenschaft Active auf true ode die Methode Open aktiviert.
• TDataSource
  Dieses Objekt dient der Verbindung von Datenmengen (Query, Table) mit entsprechenden Steuerelementen. Die Eigenschaft DataSet referenziert dann die Query.
• TDbGrid
  Zur Anzeige der Daten in Tabellenform kann man z.B. ein Grid verwenden. Dieses greift über die Eigenschaft DataSource auf das der TDataSource zugrundeliegende Dataset zu.

Um das ganze mehrstufig zu machen, gibt es in der TQuery-Komponente eine DataSource Eigenschaft. Diese verweist auf ein TDataSource Objekt der Elterndatenmenge. Das Schöne daran: wenn die Parameter in der Kinddatenmenge genauso benannt sind, wie die entsprechenden Verknüpfungsfelder der Elterndatenmenge, so erfolgt das gesamte Handling automatisch.

Wenn Du also eine 1:n Verbindung zwischen Teams und Schülern herstellen willst und folgendes gilt:

Teams: ID integer, TeamName char(30)
Schueler: ID integer, Schuelername char(30), TeamId integer

Dann erzeugst Du zunächst jeweils eine TQuery und eine TDataSource für die beiden Datennmengen. In Teams kann das 'Select * from Teams' sein. In Schueler wäre es 'Select * from Schueler where TeamId = :id'. Wenn Du dann in der Schueler-Query die Eigenschaft DataSource auf die Datasource des Teams setzt, so wird bei jeder Bewegung in Teams der Parameter :id in der Schueler Query auf die Id aus Teams gesetzt und die Datenmenge aktualisiert.

[MoYo]

Also ich bin grad am Insert Into bei Delphi dran. Dabei habe ich folgendes Problem

Delphi-Quellcode:

 Form1.Query1.Active := False;
   Form1.Query1.SQL.Clear;
   Form1.Query1.SQL.Text:='INSERT INTO "E:\Sporttag\MySQL\Lehrer.DB" '+
                    '( LehrerID, LEHnname, LEHvname, LEHkurz)'+
                    ' VALUES '+
                    '('+Edit1.Text+','+Edit2.Text+', '+Edit3.Text+
                    ', '+Edit4.Text+');';
   ShowMessage(Form1.Query1.Text); // Habe ich gemacht um zu sehen, was der dort reinschreibt.
   Form1.Query1.ExecSQL;
   Form1.Query1.SQL.Clear;
   Form1.Query1.SQL.Add('Select'
                + ' Lehrer."LehrerID", Lehrer."LEHnname",'
                + ' Lehrer."LEHvname", Lehrer."LEHkurz"'
                + ' From "E:\Sporttag\MySQL\Lehrer.DB" As Lehrer');
   Form1.Query1.ExecSQL;
   Form1.Query1.Active := True;

Könnt ihr mir sagen, was für einen Fehler ich dort habe ?

MFG,

MoYo

[Union]

Zitat von MoYo:

Also ich bin grad am Insert Into bei Delphi dran. Dabei habe ich folgendes Problem

Delphi-Quellcode:

 Form1.Query1.Active := False;
   Form1.Query1.SQL.Clear;
   Form1.Query1.SQL.Text:='INSERT INTO "E:\Sporttag\MySQL\Lehrer.DB" '+
                    '( LehrerID, LEHnname, LEHvname, LEHkurz)'+
                    ' VALUES '+
                    '('+Edit1.Text+','+Edit2.Text+', '+Edit3.Text+
                    ', '+Edit4.Text+');';
   ShowMessage(Form1.Query1.Text); // Habe ich gemacht um zu sehen, was der dort reinschreibt.
   Form1.Query1.ExecSQL;
   Form1.Query1.SQL.Clear;
   Form1.Query1.SQL.Add('Select'
                + ' Lehrer."LehrerID", Lehrer."LEHnname",'
                + ' Lehrer."LEHvname", Lehrer."LEHkurz"'
                + ' From "E:\Sporttag\MySQL\Lehrer.DB" As Lehrer');
   Form1.Query1.ExecSQL;
   Form1.Query1.Active := True;

Könnt ihr mir sagen, was für einen Fehler ich dort habe ?

MFG,

MoYo

Also erstmal solltest Du die Tabelle nicht direkt ansprechen, sondern den Pfad/Alias in einem TDatabase Objekt definieren. Sonst kannst Du das Programm ja nie auf einem anderen Rechner laufen lassen.

Dann musst Du, um Strings einzufügen, diese entweder mit Hochkomma versehen oder über Parameter in das SQL einfügen:

Delphi-Quellcode:

 Form1.Query1.Active := False;
   Form1.Query1.SQL.Clear;
   Form1.Query1.SQL.Text:='INSERT INTO "E:\Sporttag\MySQL\Lehrer.DB" '+
                    '( LehrerID, LEHnname, LEHvname, LEHkurz)'+
                    ' VALUES '+
                    '('+Edit1.Text+','+QuotedStr(Edit2.Text)+', '+QuotedStr(Edit3.Text)+
                    ', '+QuotedtStr(Edit4.Text)+');';
   ShowMessage(Form1.Query1.Text); // Habe ich gemacht um zu sehen, was der dort reinschreibt.
   Form1.Query1.ExecSQL;
   Form1.Query1.SQL.Clear;
   Form1.Query1.SQL.Add('Select'
                + ' Lehrer."LehrerID", Lehrer."LEHnname",'
                + ' Lehrer."LEHvname", Lehrer."LEHkurz"'
                + ' From "E:\Sporttag\MySQL\Lehrer.DB" Lehrer'); // Hier war ein As zu viel, das macht man nur bei Feldnamen
   // ExecSQL nur dann nehmen, wenn keine Rückgabedatenmenge entsteht, z.b. bei INSERT, UPDATE, DELETE
   // Alternative zu Active := true kann auch Open verwendet werden.
   Form1.Query1.Active := True;

Alternative mit Parametern:

Delphi-Quellcode:

 Form1.Query1.Active := False;
   with Form1.Query1 do
   begin
      SQL.Clear;
      SQL.Add('INSERT INTO "E:\Sporttag\MySQL\Lehrer.DB" ');
      SQL.Add('( LehrerID, LEHnname, LEHvname, LEHkurz)');
      SQL.Add('VALUES ');
      SQL.Add(':LehrerID, LEHnname, LEHvname, LEHKurz');
      ParamByName('LehrerId').AsString := Edit1.Text;
      ParamByName('LEHnname').AsString := Edit2.Text;
      ParamByName('LEHvname').AsString := Edit3.Text;
      ParamByName('LEHKurz').AsString  := Edit4.Text;
      Open;

Generell solltest Du Dir auch angewöhnen, jede Variable nach ihrer Verwendung zu benennen und nicht auf dem Standardwert zu lassen. So ist EditLehrerVorname ja sicherlich wesentlich aussagekräftiger als Edit3. Bei lebel-Objekten halte ich das noch für vertretbar, wenn nur die Caption geändert wird. Aber jedes Objekt, bei dem Du mehrere Eigenschaften änderst oder in einer Sourcecodezeile ansprichst, sollte benannt sein.

[MoYo]

Danke wieder mal für deine Super Hilfe !

| :LehrerID | -> Warum hast du dort einen Doppelpunkt gemacht ?

Das werde ich dann mal sofort versuchen

MFG,

MoYo

[Union]

Zitat von MoYo:

Danke wieder mal für deine Super Hilfe !

| :LehrerID | -> Warum hast du dort einen Doppelpunkt gemacht ?

Das werde ich dann mal sofort versuchen

MFG,

MoYo

Sorry, bei den anderen Parametern FEHLT der Doppelpunkt. Durch den vorangestellten Doppelpunkt werden ja die Parameter überhaupt identifiziert. Es muss also richtig heissen:SQL.Add(':LehrerID, :LEHnname, :LEHvname, :LEHKurz');

[MoYo]

Zitat:

Also erstmal solltest Du die Tabelle nicht direkt ansprechen, sondern den Pfad/Alias in einem TDatabase Objekt definieren. Sonst kannst Du das Programm ja nie auf einem anderen Rechner laufen lassen.

Wie kann ich das mit dem TDatabase Objekt machen ? Ich habe noch nie damit gearbeitet und kenne mich mit dem Ding net aus

MFG,

MoYo

[MoYo]

Noch eine Frage:

Ich weis, dass man zwei Tabellen mit den ID's verbinden kann.

Select From ..... Where LehrerID := SLehrerID <- Ist LehrerID in SchülerTabelle.

Wie ist dann die Verknüpfung beim Insert. Wenn ich z.B. einen Lehrernamen eingebe, dass da die ID reingeschrieben wird in Tabelle ?. Geht das mit dem DBLookupComboBox oder gibt es einen Befehl dafür ?



MFG,

MoYo

[MoYo]

Noch eine Frage

Wie kann ich eine Textdatei auslesen lassen und dort die Daten in die Datenbank schreiben.

Beispiel:

SchülerName, Schülervorname, Klasse, Team

so sollte die Textdatei aussehen und die sollte dann ausgelesen und in die Datenbank geschrieben werden.

MFG,

MoYo

[Albi]

Hallo,

Zitat von MoYo:

Ich weis, dass man zwei Tabellen mit den ID's verbinden kann.

Select From ..... Where LehrerID := SLehrerID <- Ist LehrerID in SchülerTabelle.

Wie ist dann die Verknüpfung beim Insert. Wenn ich z.B. einen Lehrernamen eingebe, dass da die ID reingeschrieben wird in Tabelle ?. Geht das mit dem DBLookupComboBox oder gibt es einen Befehl dafür ?

Das gib es mehrere Lösungen, entweder zu die List die ID aus der Table Lehrer aus und merkst sie Dir in einer Variablen oder du startest vor dem speichern eine neue Abfrage und holst so die ID des Lehrers. Dann kannst Du diese ganz normal mit mit einem Insert Statement in die DB schreiben.

Zitat von MoYo:

Wie kann ich eine Textdatei auslesen lassen und dort die Daten in die Datenbank schreiben.

Dazu suchst Du am besten mal hier in der DP, das Thema wurde schon oft behandelt.