delphi7连接mysql5的实现方法
本文简单介绍了Delphi7连接MySQL数据库的实现方法,具体步骤如下:
首先先去下载:http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html
然后将下载到的dbxopenmysql5_dll.zip解压出来,再把dbxopenmysql50.dll和libmysql.dll都放到工程文件夹下。
在Form上放上TSQLConnection、TSQLQuery、TStringGrid、3个TButton、TLable。
添加如下代码:
unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,DBXpress,FMTBcd,StdCtrls,Grids,DB,SqlExpr; type TForm1=class(TForm) SQLConnection1:TSQLConnection; SQLQuery1:TSQLQuery; StringGrid1:TStringGrid; Button1:TButton; Button2:TButton; Button3:TButton; Label1:TLabel; procedureButton1Click(Sender:TObject); procedureButton2Click(Sender:TObject); procedureButton3Click(Sender:TObject); private {Privatedeclarations} public {Publicdeclarations} end; var Form1:TForm1; implementation {$R*.dfm} procedureTForm1.Button1Click(Sender:TObject); begin SQLConnection1:=TSQLConnection.Create(nil); SQLConnection1.DriverName:='dbxmysql'; SQLConnection1.GetDriverFunc:='getSQLDriverMYSQL50'; SQLConnection1.LibraryName:='dbxopenmysql50.dll'; SQLConnection1.VendorLib:='libmysql.dll'; SQLConnection1.LoginPrompt:=false; SQLConnection1.Params.Append('Database=mysql'); SQLConnection1.Params.Append('User_Name=root'); SQLConnection1.Params.Append('Password='); SQLConnection1.Params.Append('HostName=localhost'); SQLConnection1.Open; ifSQLConnection1.Connected=truethen begin SQLQuery1.SQLConnection:=SQLConnection1; Label1.Caption:='success!'; end else Label1.Caption:='failed!'; end; procedureTForm1.Button2Click(Sender:TObject); var i,j:Integer; begin SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('SELECT*FROMuser'); SQLQuery1.Active:=true; i:=0; SQLQuery1.First; whilenotSQLQuery1.eofdo begin forj:=0toSQLQuery1.FieldCount-1do StringGrid1.cells[j,i]:=SQLQuery1.Fields[j].AsString; SQLQuery1.next; inc(i); end; SQLQuery1.Active:=false; end; procedureTForm1.Button3Click(Sender:TObject); begin ifSQLConnection1.Connected=truethen SQLConnection1.Close; SQLConnection1.Free; end; end.
经测试,可实现正常连接与查询。