Из MySQL в Exel (Delphi)

Имеется база данных MySQL, подскажите плз, как её перетащить в Ехель на Делфи 7-ой???

 

Способ для всех:
1 делаем бэкак базы в sql
2 пишем простенький парсер - меняем INSERN INTO на ничто, запятые на ;
3 сохраняем полученное в csv файл
4 открываем csv в экселе, файл-сохранить как...
5 получает xls файл - задача решена

 

Способ для одаренных
1 через адо или что там у кого коннектимся к базе
2 заполняем таблицу результатами из базы
3..5 аналогичны пунктам в способе для всех.

 

Если не сложно, пожалуйста подкрепи исходниками

 

Не сложно, только:
1 Я делал обратный процесс - из xls в sql
2 Реализованно на VB, ибо Дельфи неуважаю
3 Это только кусок.
4 Нужный процесс делается подобным образом.

Code:

Sub conv(ByVal fi As String, ByVal fo As String, ByVal t As String)
Dim s As String, a As String, r As String
On Error GoTo err
Open fi For Input As #1
Open fo For Output As #2
Do While Not EOF(1)
 Line Input #1, s
 r = Replace(s, ";", "','")
 a = "INSERT INTO " & t & " values ('" & r & "');"
 Print #2, a
Loop
Close #2
Close #1
 MsgBox "Done!"
Exit Sub
err:
 MsgBox "Error!" & vbNewLine & "Please check file names", vbExclamation
End Sub

 

Тебе надо:
1 INSERT INTO и скобки менять на nil
2 Заменять наоборот - , менять на ;
3 Ну и реализовать на дельфи. Если нет желания - врайть в пм - накодю ) или перегоню дамп согласно ТЗ ))