https://gsbelarus.com:80/gs/wiki/index.php?action=history&feed=atom&title=%D0%9A%D0%BE%D0%BD%D0%B2%D0%B5%D1%80%D1%82%D0%B0%D1%86%D0%B8%D1%8F_%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85_%D0%B2_CSV_%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%82
Конвертация данных в CSV формат - История изменений
2026-07-17T00:04:43Z
История изменений этой страницы в вики
MediaWiki 1.19.16
https://gsbelarus.com:80/gs/wiki/index.php?title=%D0%9A%D0%BE%D0%BD%D0%B2%D0%B5%D1%80%D1%82%D0%B0%D1%86%D0%B8%D1%8F_%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85_%D0%B2_CSV_%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%82&diff=6072&oldid=prev
SYSDBA в 14:27, 30 августа 2014
2014-08-30T14:27:47Z
<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr valign='top'>
<td colspan='2' style="background-color: white; color:black;">← Предыдущая</td>
<td colspan='2' style="background-color: white; color:black;">Версия 14:27, 30 августа 2014</td>
</tr><tr><td colspan="2" class="diff-lineno">Строка 21:</td>
<td colspan="2" class="diff-lineno">Строка 21:</td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>End Sub</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div></syntaxhighlight></div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div></syntaxhighlight></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">====См. также====</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">* [[GsCSV.TgsCSVWriter|TgsCSVWriter]]</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>__NOTOC__</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>__NOTOC__</div></td></tr>
</table>
SYSDBA
https://gsbelarus.com:80/gs/wiki/index.php?title=%D0%9A%D0%BE%D0%BD%D0%B2%D0%B5%D1%80%D1%82%D0%B0%D1%86%D0%B8%D1%8F_%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85_%D0%B2_CSV_%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%82&diff=6057&oldid=prev
SYSDBA: Новая страница: «Метод '''GetAsCSVString''' компонента TIBSQL позволяет преобразовать текущую запись в строку форм…»
2014-08-05T16:16:54Z
<p>Новая страница: «Метод '''GetAsCSVString''' компонента <a href="/gs/wiki/index.php/TIBSQL" title="TIBSQL">TIBSQL</a> позволяет преобразовать текущую запись в строку форм…»</p>
<p><b>Новая страница</b></p><div>Метод '''GetAsCSVString''' компонента [[TIBSQL]] позволяет преобразовать текущую запись в строку формата CSV. Следующий макрос выводит на экран информацию о первых 10 контактах из базы данных:<br />
<br />
<syntaxhighlight lang="VB"><br />
Option Explicit<br />
Sub GetAsCSV<br />
<br />
Dim q, S<br />
S = ""<br />
Set q = Designer.CreateObject(nil, "TIBSQL", "")<br />
Set q.Transaction = gdcBaseManager.ReadTransaction<br />
q.SQL.Text = "SELECT FIRST 10 id,name,phone,city,address FROM gd_contact"<br />
q.ExecQuery<br />
While Not q.EOF<br />
S = S & q.GetAsCSVString & vbCrLf<br />
q.Next<br />
WEnd<br />
Designer.DestroyObject(q)<br />
<br />
MsgBox S<br />
<br />
End Sub<br />
</syntaxhighlight><br />
<br />
__NOTOC__<br />
<br />
[[Category:VBScript]]<br />
[[Category:Импорт/экспорт данных]]<br />
[[Category:Учебный курс]]</div>
SYSDBA