• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: Две базы данных

если использовать (Встроенные возможности), то программа может работать либо с SQLite либо с MySQL.
а если использовать к примеру SQLite по умолчанию и в тоже время получать или передовать данные в MySQL с помошью скрипта, такое возможно?
или с начала нужно будет отключить SQLite?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Две базы данных

Можно, пример

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    MySQL: TMyConnection;
    MySQLQuery: TMyQuery;
begin
    MySQL := TMyConnection.Create(Form1);
    MySQLQuery := TMyQuery.Create(nil);
    try
            MySQL.Options.UseUnicode := True;
            MySQL.Server := '127.0.0.1'; // ip address of MySQL server
            MySQL.Port := 3306;
            MySQL.Username := 'login';
            MySQL.Password := 'password';
            MySQL.Database := 'databasename';
            MySQL.LoginPromt := False;
        
            try
                MySQL.Connect;
            except
                ShowMessage('Can''t connect to database.');
            end;

            if MySQL.Connected then
            begin
                // SQL query
                MySQL.ExecSQL('INSERT INTO test (field1, field2) VALUES ("value1", "value2")');


                // how to get data
                MySQLQuery.Connection := MySQL;
                MySQLQuery.SQL.Text := 'SELECT fieldname FROM tablename';
                MySQLQuery.Execute;

                while not MySQLQuery.EOF do
                begin
                    Form1.Memo1.Lines.Add( MySQLQuery.FieldByName('fieldname').AsString );
                    MySQLQuery.Next;
                end;


                MySQL.Disconnect;
            end;

    finally
        MySQLQuery.Free;
        MySQL.Free;
    end;
end;
Dmitry.