delphi连接mysql数据库问题

delphi连接mysql数据库问题,第1张

建议使用三方组件,连接MYSQL专用的。。delphi盒子就有下载!连接方法如下:

MyConnection1.Connected:=false

MyConnection1.Database:=‘数据库

MyConnection1.Username:=‘账号’

MyConnection1.Password:=密码

MyConnection1.Port:=3306//MYSQL端口

MyConnection1.Server:=‘IP’

MyConnection1.LoginPrompt:=false

MyConnection1.Connected:=true

使用时注意将libmysql.dll拷贝到当前目录或系统目录(98:system,NT:system32)下,并保证您的3306端口与远程服务器是相通的。

源程序:

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBXpress, DB, SqlExpr, StdCtrls, ComCtrls, FMTBcd, Grids,

DBGrids, Provider, DBClient, DBLocal, DBLocalS, DBTables

type

TForm1 = class(TForm)

SQLConnection: TSQLConnection

StatusBar1: TStatusBar

Label1: TLabel

DataSource1: TDataSource

DBGrid1: TDBGrid

GroupBox1: TGroupBox

Label2: TLabel

Password: TEdit

User_Name: TEdit

HostName: TEdit

Label3: TLabel

Label4: TLabel

Button1: TButton

GroupBox2: TGroupBox

Label5: TLabel

ESQL: TEdit

Label6: TLabel

Database: TEdit

ButtonGo: TButton

SQLClientDataSet: TSQLClientDataSet

procedure Button1Click(Sender: TObject)

procedure ButtonGoClick(Sender: TObject)

procedure FormClose(Sender: TObjectvar Action: TCloseAction)

private

{ Private declarations }

public

{ Public declarations }

end

var

Form1: TForm1

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject)

begin

with SQLConnection do

begin

Close

Params.Values['HostName']:=HostName.Text

Params.Values['UserName']:=User_Name.Text

Params.Values['Password']:=Password.Text

Params.Values['Database']:=Database.Text

try

Connected:=True

Statusbar1.Panels[0].Text:='Connect OK'

ButtonGo.Enabled:=True

except

MessageDlg('Connect Error',mtError,[mbyes],0)

end

end

end

procedure TForm1.ButtonGoClick(Sender: TObject)

begin

with SQLClientDataSet do

begin

Close

CommandText:=ESQL.Text

Open

end

end

procedure TForm1.FormClose(Sender: TObjectvar Action: TCloseAction)

begin

SQLConnection.Close

end

end.

怀疑你没有启动Mysql的服务?或者服务没有安装上?

尝试 net start mysql,如果服务不存在,请检查Mysql是否正常安装了?

晕~~~

net start mysql就是打开3306端口


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/8502115.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-17
下一篇 2023-04-17

发表评论

登录后才能评论

评论列表(0条)

保存