Базы данных и знаний. Мартьянова А.Е. - 164 стр.

UptoLike

ВУЗ: 

АГТУ | Астрахань

Составители: 

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 164
Open fi
Print #
.Recordset.Fields.Count
For j =
Data19.Recordset.MoveNext
Print #1,
Next
Close #1
End Sub
Сделать форму frmInquiry запускающей (диалог Project Proper-
ties вызывается из меню Project). При загрузке формы генерируется со-
бытие Load для нее. Запустить программу на выполнение с целью про-
верки ее работо кст любого за-
проса
С помощью кнопки Записать в файл можно записать в текстовый
файл текст самого запроса и результат его выполнения. В дальнейшем
этот текст преобра-
зовать
leN For Output As #1
Print #1, "Запрос " & " от " & Str(Date)
Print #1, "______________________________________________________________"
Print #1,
Print #1, txtInquiry.Text
1, "______________________________________________________________"
Data19.Recordset.MoveLast
colCount = Data19
recCount = Data19.Recordset.RecordCount
Data19.Recordset.MoveFirst
For i = 0 To colCount - 1
Print #1, Data19.Recordset.Fields(i).Name; ": ";
Next
Print #1,
0 To recCount - 1
For i = 0 To colCount - 1
Print #1, Data19.Recordset.Fields(i).Value; " ";
Next
способности. В текстовое поле ввести те
к базе, например запрос «PlanStudingGroup». Запросы можно скон-
струировать, например, с помощью надстройки Visual Data Manager в
специальном окне менеджера SQL Statement, либо путем автоматиче-
ского построения с помощью Query Builder. Результат выполнения за-
проса «PlanStudingGroup» – см. рис. II.61.
можно вывести на печать и при необходимости легко
, например
, в файл электронных таблиц.
164
164                                   Мартьянова А.Е. Базы данных и знаний


Open fileN For Output As #1
Print #1, "Запрос " & " от " & Str(Date)
Print #1, "______________________________________________________________"
Print #1,
Print #1, txtInquiry.Text
Print #1, "______________________________________________________________"
Data19.Recordset.MoveLast
colCount = Data19.Recordset.Fields.Count
recCount = Data19.Recordset.RecordCount
Data19.Recordset.MoveFirst
For i = 0 To colCount - 1
     Print #1, Data19.Recordset.Fields(i).Name; ": ";
Next
Print #1,
For j = 0 To recCount - 1
     For i = 0 To colCount - 1
           Print #1, Data19.Recordset.Fields(i).Value; " ";
     Next
     Data19.Recordset.MoveNext
     Print #1,
Next
Close #1
End Sub
      Сделать форму frmInquiry запускающей (диалог Project Proper-
ties вызывается из меню Project). При загрузке формы генерируется со-
бытие Load для нее. Запустить программу на выполнение с целью про-
верки ее работоспособности. В текстовое поле ввести текст любого за-
проса к базе, например запрос «PlanStudingGroup». Запросы можно скон-
струировать, например, с помощью надстройки Visual Data Manager в
специальном окне менеджера SQL Statement, либо путем автоматиче-
ского построения с помощью Query Builder. Результат выполнения за-
проса «PlanStudingGroup» – см. рис. II.61.
      С помощью кнопки Записать в файл можно записать в текстовый
файл текст самого запроса и результат его выполнения. В дальнейшем
этот текст можно вывести на печать и при необходимости легко преобра-
зовать, например, в файл электронных таблиц.




                                    164

Страницы