Почему-то не работает код

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
VBTerminator
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 415
Зарегистрирован: 19.11.2008 (Ср) 20:10

Почему-то не работает код

Сообщение VBTerminator » 10.01.2009 (Сб) 20:09

Извините, если написал не туда...
У меня есть код, работающий с базой данных MS-Access/
И в двух местах вылетает ошибка (в коде есть выделяющийся комментарий, под которым и есть ошибочные места)

Подскажите, пожалуйста, где я допустил ошибку?
У вас нет доступа для просмотра вложений в этом сообщении.

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: Почему-то не работает код

Сообщение iGrok » 10.01.2009 (Сб) 22:10

Код: Выделить всё
txtFields(1) = rstDB("director")

Тут ошибка вылетает из-за присвоения текстовому полю значения NULL. Собственно, желательно все поля, которые ты читаешь из БД пропускать примерно через такую процедурку:
Код: Выделить всё
Public Function CString(vIn As Variant) As String
    If IsNull(vIn) Then
        CString = ""
    Else
        CString = CStr(vIn)
    End If
End Function

Т.е. получится примерно так:
Код: Выделить всё
txtFields(1) = CString(rstDB("director"))


Можешь и свою написать по аналогии. Ещё как вариант можно делать так:
Код: Выделить всё
txtFields(1) = "" & rstDB("director")

Тоже будет работать.

UPD:
Далее.
Тут:
Код: Выделить всё
rstDB("runtime")

Банальная опечатка. "runtime" вместо runtume. Я понимаю, что правильно будет "runtime". Но в БД-то у тебя поле названо runtume! =)

UPD:
А вот чего он не хочет первую запись создавать - хз.

З.Ы. А зачем ты используешь НАСТОЛЬКО устаревшие механизмы? Я имею в виду ADO2.0 Вместо 2.8 и Jet.3.51 вместо Jet.4.0. Опять же БД, созданная в старом Access.. У меня её нормально открыл для изменения только 97й..

Может, если перейдёшь на что-то поновее, половина проблем сама исчезнет?
З.Ы. Вот тебе примерчик работы с БД. Может, поможет в решении каких-то вопросов.
download/file.php?id=7072
label:
cli
jmp label


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

    TopList