Если в таблице базы пустая ячейка, то при выгрузке в ListView возникает ошибка - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Возникли некоторые вопросы при работе с БД. Загружаю в ListView данные из базы вот таким образом:
Итак, вопросы. 1) Если в таблице базы пустая ячейка, то при выгрузке в ListView возникает ошибка. Как этого избежать? 2) В событии Form_Load() добавляю заголовки в ListView вручную, а хотелось бы получить кол-во столбцов в таблице базы и их заголовки и уже "плясать" от полученных данных. 3) Как программно в таблицу базы данных добавить новый столбец? Заранее спасибо!

Решение задачи: «Если в таблице базы пустая ячейка, то при выгрузке в ListView возникает ошибка»

textual
Листинг программы
DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\База данных3.mdb"
    conn.Open DSNName
    SQL = "select * from Sheet1 " & "WHERE ФИО LIKE '%" & Text4.Text & "%'"
    rs.Open SQL, conn, 3, 3
For i = 1 To rs.Fields.Count
    With ListView1.ColumnHeaders
        .Add , , rs.Fields(i - 1).Name, 1000
    End With
Next i
        Set rs = Nothing
    conn.Close
 
    LoadData

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы