Конвертация данных в CSV формат
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) (Новая страница: «Метод '''GetAsCSVString''' компонента TIBSQL позволяет преобразовать текущую запись в строку форм…») |
SYSDBA (обсуждение | вклад) |
||
| Строка 21: | Строка 21: | ||
End Sub | End Sub | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| + | |||
| + | ====См. также==== | ||
| + | |||
| + | * [[GsCSV.TgsCSVWriter|TgsCSVWriter]] | ||
__NOTOC__ | __NOTOC__ | ||
Текущая версия на 17:27, 30 августа 2014
Метод GetAsCSVString компонента TIBSQL позволяет преобразовать текущую запись в строку формата CSV. Следующий макрос выводит на экран информацию о первых 10 контактах из базы данных:
Option Explicit Sub GetAsCSV Dim q, S S = "" Set q = Designer.CreateObject(nil, "TIBSQL", "") Set q.Transaction = gdcBaseManager.ReadTransaction q.SQL.Text = "SELECT FIRST 10 id,name,phone,city,address FROM gd_contact" q.ExecQuery While Not q.EOF S = S & q.GetAsCSVString & vbCrLf q.Next WEnd Designer.DestroyObject(q) MsgBox S End Sub
