VBNet - Форум - IsNull ADO

Вопрос: IsNull ADO Добавлено: 04.09.13 00:35

Автор вопроса: anatoliy-2

Добрый день (вечер). Решил перейти с VB6 на VB NET и сразу проблемы.
Привожу часть кода:
Dim CN As ADODB.Connection
Dim AdoRS1 As ADODB.Recordset
Dim t_Number1 As Integer
Dim t_Data1 As Date
Dim t_String1 As String
Dim QweryText As String 'Для запросов SQL

CN.Open()
CN.DefaultDatabase = "myBase"
AdoRS = New ADODB.Recordset
AdoRS.ActiveConnection = CN
AdoRS.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
AdoRS.LockType = ADODB.LockTypeEnum.adLockPessimistic
AdoRS.CursorLocation = ADODB.CursorLocationEnum.adUseClient

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
QweryText = “SELECT MyTables1.DataString, MyTables1.DataNumber,” _
& “ MyTables1.DataDate FROM MyTables1"

        AdoRS.Open(QweryText)
        AdoRS.MoveFirst()
        While Not AdoRS1.EOF
            '*******************************************
            '*******************************************
            t_String1 = AdoRS.Fields("DataString").Value
            t_Number1 = AdoRS.Fields("DataNumber").Value
            t_Data1 = AdoRS.Fields("DataDate").Value
            '*******************************************
            '*******************************************
        AdoRS.MoveNext()
        End While
        AdoRS.Close()
    End Sub
В данном примере всё работает до тех пор пока в таблице MyTables1 во всех строках и полях есть данные. Когда данных нет в любом поле в любой строке программа вылетает по ошибке.
В VB6 выделенная часть кода выглядела бы:
            '*******************************************
            '*******************************************
If Not IsNull(AdoRS.Fields("DataString") then
            t_String1 = AdoRS.Fields("DataString")
End if
If Not IsNull(AdoRS.Fields("DataNumber") then
            t_Number1 = AdoRS.Fields("DataNumber")
End if
If Not IsNull(AdoRS.Fields("DataDate") then
            t_Data1 = AdoRS.Fields("DataDate")
End if
            '*******************************************
            '*******************************************
и всё бы работало.
В VB NET нет IsNull, как сделать чтобы это всё заработало ?!
Google не помог.
Спасибо за ответы !!!
Анатолий.
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #1	Добавлено: 04.09.13 17:04
	В VB/NET ADODB использовать это кощунство.. себе дороже. В НЕТ есть своя модель работы с данными, советую ознакомиться Ответить

Страница: 1 |