Программирование мобильных устройств на платформе .NET Compact Framework
Шрифт:
assemblyName + ".MyImage.PNG"))
End Sub
Примеры к главе 14 (данные)
Листинг 14.1. Простой пример создания и использования объекта ADO.NET DataSet
'Объект DataSet, который мы собираемся загрузить
Private m_myDataSet As System.Data.DataSet
'Константы, которые будут использоваться
Const FILE_EMPTY_DATASET As String = "EmptyDataSet.xml"
Const FILE_1TABLE_DATASET As String = "1TableDataSet.xml"
Const dividerLine As String = _
"-----------------------------" + vbCrLf
'-------------------------------------------------------
'Загрузить содержимое файла и присоединить его к тексту,
'содержащемуся в элементе управления textBox1
'-------------------------------------------------------
Private Sub addFileContentsToTextBox(ByVal fileName As String)
'Открыть файл и считать его содержимое
Dim myStreamReader As System.IO.StreamReader
myStreamReader = System.IO.File.OpenText(fileName)
Dim fileText As String = myStreamReader.ReadToEnd
'Закрыть файл
myStreamReader.Close
'Присоединить содержимое к тексту, находящемуся в текстовом окне
TextBox1.Text = TextBox1.Text + _
dividerLine + "FILE: '" + fileName + "'" + vbCrLf + _
dividerLine + fileText + vbCrLf
End Sub
'--------------------------------------------------------
'1. Создает набор данных,
' сохраняет набор данных в виде XML,
' отображает результаты в текстовом окне
'2. Добавляет таблицу данных в набор данных,
' добавляет два типизированных столбца в таблицу данных,
' добавляет две строки в таблицу данных,
' сохраняет набор данных в виде XML,
' отображает результаты в текстовом окне
'--------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
'Очистить текстовое окно от содержимого
TextBox1.Text = ""
'===========================================
'1. Создать новый набор данных
'===========================================
m_myDataSet = New System.Data.DataSet("HelloWorld-DataSet")
'Записать содержимое ADO.NET DataSet в виде XML и отобразить
'файл в текстовом окне
m_myDataSet.WriteXml(FILE_EMPTY_DATASET)
addFileContentsToTextBox(FILE_EMPTY_DATASET)
'==================================================
'2. Добавить таблицу данных в набор данных ADO.NET,
' а также 2 строки данных в таблицу данных
'==================================================
Dim myTestTable As System.Data.DataTable
myTestTable = m_myDataSet.Tables.Add("TestTable")
'----------------------------
'Добавить 2 столбца в таблицу
'----------------------------
'Добавить столбец данных в таблицу DataTable набора DataSet
myTestTable.Columns.Add("TestColumn0", _
GetType(System.DateTime))
'Добавить строковый столбец в таблицу DataTable набора DataSet
myTestTable.Columns.Add("TestColumn1", GetType(String))
'--------------------------------
'Добавить строки данных в таблицу
'--------------------------------
'Добавить строку данных в таблицу данных
Dim rowOfData As Object
ReDim rowOfData(1)
'Столбец 0 - это тип данных
rowOfData(0) = System.DateTime.Today
'Столбец 1 — это строковый тип
rowOfData(1) = "а string of data today"
myTestTable.Rows.Add(rowOfData)
'Добавить вторую строку данных в таблицу данных
Dim rowOfData2 As Object
ReDim rowOfData2(1) 'Столбец 0 — это тип данных
rowOfData2(0) = System.DateTime.Today.AddDays(1)
'Столбец 1 — это строковый тип
rowOfData2(1) = "tomorrow's string"
myTestTable.Rows.Add(rowOfData2)
'Записать содержимое набора ADO.NET DataSet в виде XML и отобразить
Поделиться:
Популярные книги
Прапорщик. Назад в СССР. Книга 7
7. Второй шанс
Фантастика:
попаданцы
альтернативная история
5.00
рейтинг книги
Охотник на демонов
2. Живой лёд
Фантастика:
боевая фантастика
5.83
рейтинг книги
Ваше Сиятельство 7
7. Ваше Сиятельство
Фантастика:
боевая фантастика
аниме
5.00
рейтинг книги
На границе империй. Том 10. Часть 8
Вселенная EVE Online
Фантастика:
боевая фантастика
космическая фантастика
попаданцы
5.00
рейтинг книги
Пески веков (сборник)
1970. Зарубежная фантастика
Фантастика:
научная фантастика
5.00
рейтинг книги
Конец детства (сборник)
Фантастика:
научная фантастика
7.00
рейтинг книги
Бродяга 3
3. Бродяга
Фантастика:
фэнтези
попаданцы
5.00
рейтинг книги
Печать Пожирателя
1. Пожиратель
Фантастика:
попаданцы
аниме
сказочная фантастика
фэнтези
5.00
рейтинг книги
Товарищ "Чума" 5
5. Товарищ "Чума"
Фантастика:
городское фэнтези
попаданцы
альтернативная история
5.00
рейтинг книги
Старый, но крепкий 2
2. Культивация без насилия
Фантастика:
рпг
уся
эпическая фантастика
5.00
рейтинг книги
Локки 9. Потомок бога
9. Локки
Фантастика:
фэнтези
попаданцы
героическая фантастика
боевая фантастика
5.00
рейтинг книги
Третий. Том 5
5. Отпуск
Фантастика:
космическая фантастика
фантастика: прочее
5.00
рейтинг книги
Неправильный лекарь. Том 1
1. Неправильный лекарь
Фантастика:
городское фэнтези
попаданцы
аниме
фэнтези
5.00
рейтинг книги
Врубель
Жизнь в искусстве
Документальная литература:
биографии и мемуары
5.00