Este artículo presenta brevemente el método de implementación para que Delphi7 se conecte a la base de datos MySQL. Los pasos específicos son los siguientes:
Primero descárgalo: http://www.justsoftwasolvings.co.uk/delphi/dbexpress_and_mysql_5.html
Luego, descomprima el dbxopenmysql5_dll.zip descargado y coloque dbxopenmysql50.dll y libmysql.dll en la carpeta del proyecto.
Coloque TSQLConnection, TSQLQuery, TStringGrid, 3 TButtons y TLable en el formulario.
Agregue el siguiente código:
unidad Unidad1; la interfaz utiliza Windows, Mensajes, SysUtils, Variantes, Clases, Gráficos, Controles, Formularios, Diálogos, DBXpress, FMTBcd, StdCtrls, Grids, DB, SqlExpr; escriba TForm1 = clase (TForm) SQLConnection1: TSQLConnection1: TSQLQuery1; : TSstringGrid Botón1: TButton; Button2: TButton; Button3: TButton; Label1: TLabel; procedimiento Button1Click(Remitente: TObject); procedimiento Button2Click(Remitente: TObject; procedimiento Button3Click); privado {Declaraciones privadas} público {Declaraciones públicas} fin; var Form1: TForm1; implementación del procedimiento {$R *.dfm} TForm1.Button1Click(Remitente: TObject);comenzar SQLConnection1:= TSQLConnection.Create(nil); SQLConnection1.DriverName:= 'dbxmysql'; SQLConnection1.VendorLib := 'libmysql.dll'; SQLConnection1.LoginPrompt := falso; SQLConnection1.Params.Append('Database=mysql'); SQLConnection1.Params.Append('User_Name=root'); 'Contraseña='); SQLConnection1.Params.Append('HostName=localhost'); SQLConnection1.Open; si SQLConnection1.Connected = verdadero, entonces comienza SQLQuery1.SQLConnection := SQLConnection1.Caption := '¡éxito!'; falló!';finalizar; procedimiento TForm1.Button2Click(Remitente: TObject);var i, j: Entero;comenzar SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('SELECT * FROM user'); SQLQuery1.Active := true; i := 0 SQLQuery1.First; .FieldCount - 1 hacer StringGrid1.cells[j, i] := SQLQuery1.Fields[j].AsString; SQLQuery1.next; inc(i); fin; SQLQuery1.Active:= falso;finalizar; procedimiento TForm1.Button3Click(Remitente: TObject);comenzar si SQLConnection1.Connected = verdadero entonces SQLConnection1.Free;finalizar;Después de la prueba, se puede lograr una conexión y consulta normales.