Search options (Page 1 of 5)

А если перевернуть процесс Например работать с базой MySQL  как обычно а локальную открывать не напрямую раз так невозможно а скажем как файл и разбирать его на запчасти Сработает?  Или перекидывать данные между двумя работающими процессами? Дрова конечно но с реализацией API как то стожновато для меня

У меня есть реализация интернетмагазина на сайте выполненная на OPENCART там всего оч много ненужного и запутанного). Я использую его как каталог. И у меня есть база данных написанная на Вашей платформе. Я бы хотел синхронизировать эти базы (структуры разные! речь идет о данных и соответственно у меня есть алгоритм их соответствия) Все что нового добавляется на Сайте должно в рамках синхронизации отображаться в моей базе. Пример: смотрим id_produkt есть - обновляем данные (условия изменяемости или не изменяемости данных не будет) если нет добавляем все данные по новому товару. Резюме: Как в рамках одного проекта открыть сразу несколько баз?
Про кнопку понятно - это просто механизм реакции он уже есть а привязка к кнопке для наглядности)

     //Application.ProcessMessages;
     //{$MySQL disable_connectdialog}
     //Form1.MySQLConnection.Server := '00000000';
     //Form1.MySQLConnection.Port := 3306;
     //Form1.MySQLConnection.Username := '00000000';
     //Form1.MySQLConnection.Password := '000000000';
     //Form1.MySQLConnection.Database := '0000000';
  //try
    //Form1.MySQLConnection.Connect;
  //except
    //ShowMessage('Can''t connect to database.');
    //SQL_Connect.Close;
//end;

Это работает при открытии главной формы, а при обработке нажатие на кнопку - нет.

Изначально при подключении к MySQL говорится что файл базы данных будет сформирован автоматически и например без соединения с этой базой у меня недоступны локальные таблицы которые я сформировал в рамках MVD.

SQLQuery('SELECT * FROM `oc_category_description`', Results1);

    while not Results1.Eof do
          begin
               SQLExecute('INSERT INTO test (test1) VALUES (''' +Results1.FieldByName('name').asString+''')');

               Results1.Next;
          end;
Получилось Спасибо

SELECT 
DataPay,
orgPay,
SumPay,
podPay,
ComPay
FROM Finans 
WHERE orgPay LIKE "{ComboBox}";  

Сделал все как написано - не работает на печати '0'. Мне из панели выбора нужна только текстовая часть/

Немного изменил процедуру чтения файлов из каталога:

procedure FillGridFiles(Grid: TdbStringGridEx; path: string);
var
    sl: TStringList;
    i,c: integer;
    NxTextColumn: TNxTextColumn;
begin
    sl := TStringList.Create;
    sl.Text := GetFilesList(path);

     // создаем две колонки с помощью пустого SQL запроса
    Grid.dbSQL:='SELECT null,null';
    // задаем названия колонок
    Grid.dbListFieldsNames :='Листы,Путь';
    // выполняем пустой SQL запрос
    Grid.dbSQLExecute;

    Grid.DeleteRow(0);
    c := sl.Count-1;
    for i := 0 to c do
    begin
         Grid.AddRow;
         Grid.Cells[0, i] := 'Лист ' + IntToStr(i+1);
         Grid.Cells[1, i] := sl[i];
    end;
    Grid.Columns[1].Visible:= False;
    sl.Free;
end;

Где отследить исключение если указанного каталога еще не существует?

Спасибо. Ваша ф-ия и со связанным Grid работает отлично!!!

     Row_coin:=GetRowByID( Form2.TableGrid1,Form1.TableGrid1.dbItemID );
     Form2.TableGrid1.SelectedRow := Row_coin;
     Form2_TableGrid1_OnClick ( Form2.TableGrid1 );

Выдает ошибку: tmpTable: TStringGridEx; - неизвестный тип.