DelphiXE12是一款功能強大的RAD工具,支持各種數(shù)據(jù)庫的連接,其中MySQL是比較常用的一種數(shù)據(jù)庫,本文介紹如何使用DelphiXE12連接MySQL數(shù)據(jù)庫。
var MyConnection : TMySQL56Connection; MyQuery : TMySQL56Query; MyTransaction: TMySQL56Transaction; begin MyConnection := TMySQL56Connection.Create(nil); MyQuery := TMySQL56Query.Create(nil); MyTransaction:= TMySQL56Transaction.Create(nil); try MyConnection.HostName := 'localhost'; MyConnection.UserName := 'root'; MyConnection.Password := 'password'; MyConnection.DatabaseName := 'database'; MyQuery.Connection := MyConnection; MyTransaction.Connection := MyConnection; MyConnection.Open; MyTransaction.StartTransaction; MyQuery.SQL.Text := 'SELECT * FROM table'; MyQuery.Open; while not MyQuery.Eof do begin //數(shù)據(jù)處理 MyQuery.Next; end; MyQuery.Close; MyTransaction.Commit; except on E : Exception do begin ShowMessage('連接數(shù)據(jù)庫出現(xiàn)錯誤:' + E.Message); MyTransaction.Rollback; end; end; MyConnection.Close; MyTransaction.Free; MyQuery.Free; MyConnection.Free; end;
以上是一個連接MySQL的簡單示例,通過以上代碼可實現(xiàn)對指定數(shù)據(jù)庫的查詢,其中MyConnection是連接對象,MyQuery是查詢對象,MyTransaction是事務(wù)對象,使用前需在之前添加MySQL連接控件,在初始化過程中設(shè)置相應(yīng)的屬性即可實現(xiàn)。