Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: 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
Ответов: 4243
 Web-сайт: all-oracle.ru
 Профиль | | #1
Добавлено: 04.09.13 17:04
В VB/NET ADODB использовать это кощунство.. себе дороже. В НЕТ есть своя модель работы с данными, советую ознакомиться

Ответить

Страница: 1 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам