Из MySQL в Exel (Delphi)

[ronald]

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

[vikseriq]

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

[vikseriq]

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

[ronald]

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

[vikseriq]

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

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

[vikseriq]

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