SQL и vb.net

[bvv70]

В VB6 прекрасно работал следующий запрос

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

"SELECT * FROM Opr WHERE [Дата] BETWEEN #" & Format(CDate("01.01.2007"), "mm\/dd\/yyyy") & "# AND #" & Format(CDate("31.03.2007"), "mm\/dd\/yyyy") & "#  ORDER BY [Дата]"

Т.е. сортировка происходит по периоду дат (1 квартал) и в порядке возрастания. А вот в vb.net запрос не работает. Как быть, что делать. SQL знаю плохо, вышеуказанный запрос мне помогли составить.

[HandKot]

база данных какая?

ЗЫЖ используйте параметрированный запрос, намного удобней

[bvv70]

База .mdb. Хотел привести код, но исходники на другом компе. Выражение "параметрированный запрос", к сожалению, мне ничего не говорит.

[GSerg]

Это хорошо, что не говорит, потому что если бы говорило, надо было бы что-то делать...

Должен говорить параметрический, он же параметризированный. Его и ищи.

[bvv70]

Не получается у меня с налету, хотя статьи по параметрическим запросам нашел... Помогите составить следующий запрос: в период между двумя датами (берутся из текстбоксов) и в порядке возрастания. На всякий случай приведу способ подключения к базе.

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\K_n_g.mdb"
        Dim ConSQL As String = "select * from opr"
        Dim Data As New DataSet
        Dim Adapter As New OleDb.OleDbDataAdapter(ConSQL, ConString)

        Adapter.Fill(Data, "opr")
        DataGridView1.DataSource = Data
        DataGridView1.DataMember = "opr"
End Sub

Напомню, что в VB6 работал следующий запрос:

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

"SELECT * FROM Opr WHERE [Дата] BETWEEN #" & Format(CDate("01.01.2007"), "mm\/dd\/yyyy") & "# AND #" & Format(CDate("31.03.2007"), "mm\/dd\/yyyy") & "#  ORDER BY [Дата]"

[bvv70]

Помогите с запросом!

[HandKot]

я использовал такой интерфейс для работы с базой

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

Option Strict On
Option Explicit On

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.VisualBasic

Namespace My.DataAccess

    Public Class DataLayer
        Implements IDisposable

        Private adtCommand As SqlDataAdapter     'sql data adapter
        Private cmdCommand As SqlCommand     'sql data adapter

        '----------------------------------------------------------------
        ' Sub New:
        '   Конструктор.
        '----------------------------------------------------------------
        Public Sub New()
            MyBase.New()
            '
            ' Создаем датаадаптер
            '
            adtCommand = New SqlDataAdapter
            '
            ' создаем команду
            '
            cmdCommand = New SqlCommand
            cmdCommand.Connection = New SqlConnection(ConnectionString)
        End Sub

        '----------------------------------------------------------------
        ' Sub Dispose:
        '     Особождаем все ресурсы.
        '----------------------------------------------------------------
        Public Sub Dispose() Implements IDisposable.Dispose
            Dispose(True)
            GC.SuppressFinalize(True) ' as a service to those who might inherit from us
        End Sub

        '----------------------------------------------------------------
        ' Sub Dispose:
        '     Освобождаем память, занятую переменными класса.
        '----------------------------------------------------------------
        Protected Overridable Sub Dispose(ByVal disposing As Boolean)
            If Not disposing Then
                Exit Sub ' we're being collected, so let the GC take care of this object
            End If

            If Not cmdCommand Is Nothing Then
                If Not cmdCommand.Connection Is Nothing Then
                    cmdCommand.Connection.Dispose()
                End If
                cmdCommand.Dispose()
            End If

            If Not adtCommand Is Nothing Then
                adtCommand.Dispose()
                adtCommand = Nothing
            End If
        End Sub

        '----------------------------------------------------------------
        ' Sub PopulateCommandParam:
        '     Параметры для запроса
        '----------------------------------------------------------------
        Private Sub PopulateCommandParam(ByVal arParams() As SqlParameter, ByVal cmd As SqlCommand)
            Dim i As Integer

            For i = LBound(arParams) To UBound(arParams)
                cmd.Parameters.Add(arParams(i))
            Next
        End Sub

        '----------------------------------------------------------------
        ' Sub PopulateOutputParam:
        '     Возвращает результаты запроса
        '----------------------------------------------------------------
        Private Sub PopulateOutputParam(ByVal arParams() As SqlParameter, ByVal cmd As SqlCommand)
            Dim i As Integer

            For i = LBound(arParams) To UBound(arParams)
                If arParams(i).Direction = ParameterDirection.Output Then
                    arParams(i).Value = cmd.Parameters(arParams(i).ParameterName).Value
                End If
            Next
        End Sub

        Public Sub ExecSP(ByVal _proc As String, _
            ByRef intReturnVal As Integer, _
            Optional ByRef arParams() As SqlParameter = Nothing, _
            Optional ByRef dsResult As DataSet = Nothing)

            Try
                cmdCommand.CommandType = CommandType.StoredProcedure
                cmdCommand.CommandText = _proc
                If Not (arParams Is Nothing) Then
                    PopulateCommandParam(arParams, cmdCommand)
                End If

                'выполняем команду
                cmdCommand.Connection.Open()
                If dsResult Is Nothing Then
                    intReturnVal = cmdCommand.ExecuteNonQuery
                Else
                    adtCommand.SelectCommand = cmdCommand
                    intReturnVal = adtCommand.Fill(dsResult)
                End If

                If Not (arParams Is Nothing) Then
                    PopulateOutputParam(arParams, cmdCommand)
                End If
            Finally
                If Not cmdCommand Is Nothing Then
                    If Not cmdCommand.Connection Is Nothing Then
                        cmdCommand.Connection.Dispose()
                    End If
                    cmdCommand.Dispose()
                End If
                adtCommand.Dispose()
            End Try

        End Sub


        Public Sub ExecSQL(ByVal _sql As String, _
            ByRef intReturnVal As Integer, _
            Optional ByRef dsResult As DataSet = Nothing)

            Try
                cmdCommand.CommandType = CommandType.Text
                cmdCommand.CommandText = _sql

                'выполняем команду
                If dsResult Is Nothing Then
                    intReturnVal = cmdCommand.ExecuteNonQuery
                Else
                    adtCommand.SelectCommand = cmdCommand
                    intReturnVal = adtCommand.Fill(dsResult)
                End If
            Finally
                If Not cmdCommand Is Nothing Then
                    If Not cmdCommand.Connection Is Nothing Then
                        cmdCommand.Connection.Dispose()
                    End If
                    cmdCommand.Dispose()
                End If
                adtCommand.Dispose()
            End Try

        End Sub

    End Class
End Namespace

а вызывал так

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

            Dim intReturnVal As Integer
            Dim arParams(0) As SqlParameter
            Dim ds As DataSet

            Try

                ds = New DataSet

                arParams(0) = New SqlParameter("@id", SqlDbType.VarChar)
                arParams(0).Direction = ParameterDirection.Input
                arParams(0).Value = id

                With New DataLayer
                    .ExecSP("dbo.MyStoredProc", intReturnVal, arParams, ds)
                End With

                Return ds