Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Из MySQL в Exel (Delphi) (https://forum.antichat.xyz/showthread.php?t=89522)

ronald 28.10.2008 22:53
Из MySQL в Exel (Delphi)
 
Имеется база данных MySQL, подскажите плз, как её перетащить в Ехель на Делфи 7-ой???

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

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

ronald 28.10.2008 23:03
Если не сложно, пожалуйста подкрепи исходниками

vikseriq 28.10.2008 23:08
Не сложно, только:
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 28.10.2008 23:11
Тебе надо:
1 INSERT INTO и скобки менять на nil
2 Заменять наоборот - , менять на ;
3 Ну и реализовать на дельфи. Если нет желания - врайть в пм - накодю ) или перегоню дамп согласно ТЗ ))


Время: 17:51