Um Delphi mit MySQL zu verbinden, müssen Sie eine Datenbankzugriffskomponente oder -bibliothek verwenden, die MySQL unterstützt, wie z. B. dbExpress oder FireDAC
. FireDAC ist ein leistungsstarkes Datenzugriffs-Framework von Embarcadero, das eine Vielzahl von Datenbanksystemen einschließlich MySQL unterstützt. So können Sie Delphi mithilfe von FireDAC mit MySQL verbinden:
-
MySQL-Server installieren: Falls Sie dies noch nicht getan haben, installieren und konfigurieren Sie MySQL-Server auf Ihrem Computer oder auf einem Remote-Server. Sie können MySQL Server von der offiziellen MySQL-Website herunterladen.
-
MySQL Connector/ODBC installieren: MySQL Connector/ODBC ist ein Treiber, der es Delphi-Anwendungen ermöglicht, über die ODBC-Schnittstelle (Open Database Connectivity) eine Verbindung zu MySQL-Datenbanken herzustellen. Laden Sie MySQL Connector/ODBC von der MySQL-Website herunter und installieren Sie es.
-
Einrichten einer MySQL-Datenbank: Erstellen Sie eine MySQL-Datenbank und definieren Sie Tabellen, Ansichten und gespeicherte Prozeduren nach Bedarf für Ihre Anwendung.
-
Neues Delphi-Projekt erstellen: Öffnen Sie Delphi und erstellen Sie ein neues Projekt.
-
FireDAC-Komponenten hinzufügen: Fügen Sie Ihrem Projekt FireDAC-Komponenten hinzu. Sie finden sie auf der Registerkarte „FireDAC“ der „Tool-Palette“ in der Delphi-IDE.
-
FireDAC-Verbindung konfigurieren: Konfigurieren Sie eine FireDAC-Verbindungskomponente, um eine Verbindung zu Ihrer MySQL-Datenbank herzustellen. Legen Sie die entsprechenden Eigenschaften wie
DriverID
,Database
,UserName
,Password
,Server
fest undPort
. -
Schreiben Sie Code für den Zugriff auf MySQL-Daten: Schreiben Sie Code, um SQL-Abfragen auszuführen, Daten aus MySQL-Tabellen abzurufen und Datenbankoperationen nach Bedarf Ihrer Anwendung durchzuführen.
Hier ist ein einfaches Beispiel, das zeigt, wie man Delphi mithilfe von FireDAC mit MySQL verbindet:
unit MainForm; Schnittstelle Verwendet System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.VCLUI.Wait, FireDAC.Comp.Client, Data.DB, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; Typ TForm1 = Klasse(TForm) FDConnection1: TFDConnection; Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); Privat {Private Erklärungen} öffentlich {Öffentliche Erklärungen} Ende; var Form1: TForm1; Implementierung {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); beginnen FDConnection1.DriverName := 'MySQL'; FDConnection1.Params.Values['Database'] := 'your_database_name'; FDConnection1.Params.Values['Benutzername'] := 'Ihr_Benutzername'; FDConnection1.Params.Values['Password'] := 'your_password'; FDConnection1.Params.Values['Server'] := 'your_mysql_server_address'; FDConnection1.Params.Values['Port'] := '3306'; // Standard-MySQL-Port FDConnection1.Connected := True; Ende; procedure TForm1.Button1Click(Sender: TObject); var Abfrage: TFDQuery; beginnen Abfrage := TFDQuery.Create(nil); versuchen Query.Connection := FDConnection1; Query.SQL.Text := 'SELECT * FROM your_table_name'; Abfrage.Öffnen; Memo1.Lines.Clear; während Query.Eof dies nicht tut beginnen Memo1.Lines.Add(Query.FieldByName('Column1').AsString + ' - ' + Query.FieldByName('Column2').AsString); Query.Next; Ende; Endlich Query.Free; Ende; Ende; Ende.
In diesem Beispiel haben wir ein einfaches Formular mit einer TFDConnection-Komponente (FDConnection1), einem TButton (Button1) und einem TMemo (Memo1). Wenn Sie auf die Schaltfläche klicken, führt die Anwendung eine SQL-Abfrage für die MySQL-Datenbank aus und zeigt die Ergebnisse in der Memo-Komponente an.
Stellen Sie sicher, dass Sie Platzhalter wie „Ihr_Datenbankname“, „Ihr_Benutzername“, „Ihr_Passwort“, „Ihre_MySQL-Serveradresse“ ersetzen. und „your_table_name“ mit Ihren tatsächlichen Datenbankinformationen.
Wenn Ihnen der Artikel gefällt und Sie einen solchen Service benötigen, zögern Sie bitte nicht kontaktieren Sie uns