Delphi6 是一種常見的編程語言,可以用于開發(fā) Windows 平臺的桌面應用程序。本文將介紹如何通過 Delphi6 連接 MySQL 數(shù)據(jù)庫。
首先,需要下載安裝 Delphi 的 MySQL 連接組件。常用的連接組件有 ZEOS 和 MyDAC,本文將以 ZEOS 為例。
1. 安裝 ZEOS
第一步:從官網(wǎng)下載最新的 ZEOS 組件包(ZIP 格式); 第二步:解壓縮 ZIP 包并運行 Setup.exe 安裝程序; 第三步:按照安裝向?qū)У闹敢瓿砂惭b過程; 第四步:安裝完成后,打開 Delphi,在 Component 菜單下找到 ZEOSLib 組件并將其添加到工具箱中。
2. 建立連接
var conMySQL: TZConnection; qryTest: TZQuery; begin conMySQL := TZConnection.Create(nil); conMySQL.Database := 'testdb'; conMySQL.HostName := 'localhost'; conMySQL.User := 'root'; conMySQL.Password := 'mypassword'; conMySQL.Protocol := 'mysql-5'; // 或者 'mysql-8' conMySQL.Connect; qryTest := TZQuery.Create(nil); qryTest.Connection := conMySQL; qryTest.SQL.Add('SELECT * FROM `customer` WHERE `id` = 123;'); qryTest.Open; if not qryTest.IsEmpty then begin ShowMessage(qryTest.FieldByName('name').AsString); end; qryTest.Free; conMySQL.Disconnect; conMySQL.Free; end;
以上代碼中,首先創(chuàng)建了一個 TZConnection 對象,并設(shè)置了數(shù)據(jù)庫名稱(testdb)、主機名(localhost)、用戶名和密碼。然后設(shè)置了連接協(xié)議為 MySQL 5,或者 MySQL 8。接著調(diào)用 Connect 方法與數(shù)據(jù)庫建立連接。
接下來創(chuàng)建一個 TZQuery 對象,并指定其連接為 conMySQL。然后設(shè)置 SQL 語句為查詢 id 為 123 的 customer 的記錄。再調(diào)用 Open 方法執(zhí)行查詢,并判斷結(jié)果集是否為空。如果非空,則顯示結(jié)果中 name 字段的值。
最后釋放資源并斷開與數(shù)據(jù)庫的連接。
本文介紹了通過 Delphi6 連接 MySQL 數(shù)據(jù)庫的方法,希望能夠?qū)Υ蠹矣兴鶐椭?/p>