непонятки с датой

[Dmitriy Solomnikov]

Не правильно работает следующий участок кода:

Код: Выделить всё

cmd.CommandText = "SELECT Цена_номера.Начало_периода, Цена_номера.Конец_периода, Цена_номера.Цена_периода FROM Цена_номера WHERE Цена_номера.Код1=" & Me.codeOne

        Dim dr As Data.SqlClient.SqlDataReader
        Try
            dr = cmd.ExecuteReader
        Catch ex As Exception
            Windows.Forms.MessageBox.Show(ex.Message)
            Return Nothing
        End Try

        While dr.Read
            Dim row As Data.DataRow = Me.dtPeriodPrice.NewRow
            row("Цена_периода") = dr.GetValue(2)
            row("Начало_периода") = dr.GetValue(0)
            row("Конец_периода") = dr.GetValue(1)
            Me.dtPeriodPrice.Rows.Add(row)
        End While
        dr.Close()


Цена_номера.Код1 - это счетчик

Если смотреть результат данного запроса (cmd.commandtext) через Query Analizer, то мы увидем один результат, если выполнить этот код - то другой результат.

А именно:

в базе записано

Код1=2200
Начало_периода=2005-01-01 00:00:00.000
Конец_периода=2006-04-30 00:00:00.000
Цена_периода=400.0000

то же получаем с помощью Query Analizer


Если выполнить код, то получим
Начало_периода=2005-01-01 00:00:00.000
Конец_периода=2005-01-31 00:00:00.000
Цена_периода=400.0000


У кого какие есть соображения?