Просмотр исходного текста страницы Конвертация данных в CSV формат

Метод '''GetAsCSVString''' компонента [[TIBSQL]] позволяет преобразовать текущую запись в строку формата CSV. Следующий макрос выводит на экран информацию о первых 10 контактах из базы данных:

<syntaxhighlight lang="VB">
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
</syntaxhighlight>

__NOTOC__

[[Category:VBScript]]
[[Category:Импорт/экспорт данных]]
[[Category:Учебный курс]]