Blue Snake

Je mnozstvo sposobov ako pristupovat k databaze ulozenej na MySQL, ale rozoberiem jednoduchu metodu s pouzitim volne dostupnych a oblubenych komponent ZEOS. Balik komponent si mozete stiahnut napriklad tu: http://sourceforge.net/projects/zeoslib/

Otvorenie spojenia:

1. Na formular vlozte komponentu ZConnention

2.Vyplnte vlastnosti danej komponenty:

Catalog, Database, HostName, Password, Port, Protocol, User

3. Nastavenim vlastnosti Connected na True sa vytvori spojenie a na False sa spojenie zavrie.

Ak ste spravne vyplnili vlastnosti komponenty TZConnection tak by spojenie malo byt vytvorene. Ak nie tak potom ste zrejme obdrzali nejaku hlasku.

Uvadzam ukazku nastavenia komponenty TZConnection:

  object DB: TZConnection
    Protocol = 'mysql-5'
    HostName = 'localhost'
    Port = 3306
    Database = 'mojadatabaza'
    User = 'root'
    Password = 'admin'
    Catalog = 'mojadatabaza'
    Properties.Strings = (
      'CodePage=cp1250'
      '')
    TransactIsolationLevel = tiSerializable
    Connected = True
    DesignConnection = True
    Left = 24
    Top = 8
  end

Ukazka vytvorenia spojenia v ramci behu programu:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //DB = componenta TZConnection
  with DB do
  begin

    //Nastavenia
    Protocol := 'mysql-5';
    HostName := 'localhost';
    Port := 3306;
    Database := 'mojadatabaza';
    User := 'root';
    Password := 'admin';
    Catalog := 'mojadatabaza';

    //Vytvor spojenie
    Connected := True;

    if Connected then
      ShowMessage('Spojenie bolo uspesne vytvorene...');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Zatvorenia spojenia
  DB.Disconnect;
end;