บทความนี้จะแนะนำวิธีการใช้งาน Delphi7 โดยการเชื่อมต่อกับฐานข้อมูล MySQL โดยย่อ มีขั้นตอนเฉพาะดังนี้:
ดาวน์โหลดครั้งแรก: http://www.justsoftwasolutions.co.uk/delphi/dbexpress_and_mysql_5.html
จากนั้นแตกไฟล์ dbxopenmysql5_dll.zip ที่ดาวน์โหลดมา และใส่ทั้ง dbxopenmysql50.dll และ libmysql.dll ลงในโฟลเดอร์โปรเจ็กต์
ใส่ TSQLConnection, TSQLQuery, TStringGrid, 3 TButtons และ TLable บนแบบฟอร์ม
เพิ่มรหัสต่อไปนี้:
หน่วย Unit1; อินเทอร์เฟซ Windows, ข้อความ, SysUtils, ตัวแปร, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, กล่องโต้ตอบ, DBXpress, FMTBcd, StdCtrls, กริด, DB, SqlExpr; พิมพ์ TForm1 = class (TForm) SQLConnection1: TSQLConnection; SQLQuery1: TSQLQuery; : TStringGrid; Button1: TButton; Button2: TButton; Button3: TLabel; ขั้นตอน Button1Click (ผู้ส่ง: TObject); var Form1: TForm1; ขั้นตอนการดำเนินการ {$R *.dfm} TForm1.Button1Click (ผู้ส่ง: TObject); เริ่ม SQLConnection1 := TSQLConnection.Create (ไม่มี); SQLConnection1.DriverName := 'dbxmysql'; SQLConnection1.GetDriverFunc := 'getSQLDriverMYSQL50'; SQLConnection1.VendorLib := 'libmysql.dll'; SQLConnection1.LoginPrompt := false; SQLConnection1.Params.Append('ฐานข้อมูล=mysql'); 'รหัสผ่าน='); SQLConnection1.Params.Append('HostName=localhost'); ถ้า SQLConnection1.Connected = true ให้เริ่ม SQLQuery1.SQLConnection := SQLConnection1; Label1.Caption := 'success!'; ล้มเหลว!';end; ขั้นตอน TForm1.Button2Click (ผู้ส่ง: TObject); var i, j: จำนวนเต็ม; เริ่มต้น SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('SELECT * FROM user'); SQLQuery1.Active := true; i := 0; ในขณะที่ SQLQuery1.eof เริ่มต้นสำหรับ j := 0 ถึง SQLQuery1 .FieldCount - 1 ทำ StringGrid1.cells[j, i] := SQLQuery1.Fields[j].AsString; SQLQuery1.next; inc(i); end; SQLQuery1.Active := false;end;หลังจากการทดสอบ การเชื่อมต่อและการสืบค้นตามปกติสามารถทำได้