Цитата:
|
Сообщение от Страдалецъ
Наверное так:
Теперь вам для автоматизации процесса нужно определится как получить описания таблиц и индексов вашей MySQL-базы.
Потом на основании этой инфы сгенерить таблицы,индексы уже в акцесе.
И для каждой таблички из вашего MySQL-списка сделать обход данных с копированием в акцес.
|
есть наверное тупая идея....в DBGrid прописываем
Код:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
form1.Label1.Caption:=form1.DBGrid1.Fields[1].AsString;
form1.Label2.Caption:=form1.DBGrid1.Fields[2].AsString;
end;
end. тем самым выводим одно значение в label, из него уже можно добавлять в таблицу Access
Код:
Form1.AdoQuery1.Sql.clear;
Form1.ADOQuery1.SQL.Add('INSERT INTO new (Test1,Test2)');
Form2.ADOQuery2.SQL.Add('VALUES ('''+label1.Caption+''','''+label1.Caption+''')');
Form2.ADOQuery2.ExecSQL;
но тоже только одно значение, далее как то надо сделать запрос на удаление этой записи из базы на сервере (MySQL)
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
SimpleDataSet1.DataSet.CommandText:= 'delete from tnews where title='''+label1.Caption+'''' ;
end;
далее можно использовать для перехода курсора DBNavigator на следующию строчку в DBGrid
Код:
procedure TForm1.Button3Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbNext);
end;
.....в проблема в том чтобы сделать это все в одном цикле, грубо говоря по нажатию одной кнопки и длилось до тех пор пока база будет пустой (MySQL) и в конце выдало бы сообщение типо все данные перенесены.....