delphi 远程 mysql |mysql –version

unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
Data.DB, Data.Win.ADODB;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
adoConn: TADOConnection;
adoQry: TADOQuery;
begin
Memo1.Clear;
adoConn := TADOConnection.Create(nil);
adoQry := TADOQuery.Create(nil);
try
adoConn.ConnectionString :=
'Provider=MSDASQL.1;Password=password;Persist Security Info=True;User ID=username;Data Source='
+ 'mysql;Initial Catalog=test;';
adoConn.Open;
adoQry.Connection := adoConn;
adoQry.SQL.Text := 'SELECT * FROM users';
adoQry.Open;
while not adoQry.Eof do
begin
Memo1.Lines.Add(adoQry.FieldByName('name').AsString);
adoQry.Next;
end;
adoQry.Close;
finally
adoConn.Free;
adoQry.Free;
end;
end;
end.

以上代码演示了如何使用ADO连接MySQL数据库并读取数据到Memo控件中。在此示例中，大家将使用MSDASQL.1 OLE DB数据提供程序连接到MySQL数据库。连接字符串应该包含有关数据库所需的所有信息，如用户名，密码，数据库名称等。

通过使用以上代码，您可以轻松地连接MySQL数据库，并使用Delphi应用程序从中读取数据。希望本文能够帮助您开始使用Delphi编写连接远程MySQL数据库的应用程序。