[жекаизжека]

Ситуация такая, есть сайт использует базу MySQL, как мне данный из базы перенести в базу Access? так сказать импортировать....

[Страдалецъ]

Поставьте драйер MySQL ODBC, подключайтесь к базе и импортируйте на здоровье.

[ApxaHGe1]

Сообщение от жекаизжека

Ситуация такая, есть сайт использует базу MySQL, как мне данный из базы перенести в базу Access? так сказать импортировать....

Существует море программ для этого .. например, можно поискать так

[жекаизжека]

вот нашел как подлючиться к базе и вывод ее в DBGrid(все работает)

смотреть тут , не подскажете как теперь из DBGrid данные перенести в таблицу Access?

[Страдалецъ]

Наверное так:
Теперь вам для автоматизации процесса нужно определится как получить описания таблиц и индексов вашей MySQL-базы.
Потом на основании этой инфы сгенерить таблицы,индексы уже в акцесе.
И для каждой таблички из вашего MySQL-списка сделать обход данных с копированием в акцес.

[жекаизжека]

Сообщение от Страдалецъ

Наверное так:
Теперь вам для автоматизации процесса нужно определится как получить описания таблиц и индексов вашей 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) и в конце выдало бы сообщение типо все данные перенесены.....

[Страдалецъ]

DBGrid1 нужен только для отображения данных, для экспорта/импорта данных он вам нафик не нужен. Если речь идет об одной таблице, то можно все и ручками сделать, сгенерить в MySQL SQL-скрипт для создания таблицы и данных в ней, немножко адаптировать под Акцес и выполнить его в Акцесе. Но если у вас более одной таблицы, если вы хотите это принципиально сделать в Дельфи, то тогда по моему первому варианту.