VBNet - Форум - выборка из базы access по дате из vb6

Вопрос: выборка из базы access по дате из vb6 Добавлено: 11.11.03 07:05

Автор вопроса: shtorm | Web-сайт: нету

необходимо из базы access выбрать все документы по дате и отобразить их

в мсфлексгрид

Ответить

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

Номер ответа: 1
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #1

Добавлено: 11.11.03 08:32

Dim rs As Recordset

sSQL = "SELECT * FROM Table1"
    Set rs = New Recordset
    rs.CursorLocation = adUseClient
    rs.Open sSQL, CONNECTION_STRING, adOpenStatic
Set grd.DataSource = rs

Ответить

Номер ответа: 2
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #2

Добавлено: 11.11.03 08:34

Забыл добавить выборку по дате

sSQL = "SELECT * FROM Table1 WHERE date = " & Format(Date, "mm/dd/yyyy")

Ответить

Номер ответа: 3
Автор ответа:

Вопросов: 10
Ответов: 4

Профиль | | #3

Добавлено: 08.01.04 17:42

Можно все сделать проще по крайней мере подключение

(все же ядро Jet поэтому спользуем DAO)

dim db as dao.database

dim rs as dao.recordset

set db=opendatabase(путь к базе)

set rs=db.open recordset

if rs.BOF then --сам запрос(остальное все верно)

rs.close

db.close

Ответить

Номер ответа: 4
Автор ответа:

EvilBit

Вопросов: 3
Ответов: 24

Профиль | | #4

Добавлено: 05.02.04 00:23

Ответ может быть только один (ну другой у америкосов формат даты). Надо писать свою функцию вот и все.

Function DateTQ(MyDate As Variant) As String
    Dim datVar As Date

    DateTQ = ""

    If Not IsDate(MyDate) Then
        Exit Function
    End If
    datVar = CDate(MyDate)
    DateTQ = "#" & Format(datVar, "mm") & "/" & Format(datVar, "dd") & "/" & Format(datVar, "yyyy") & "#"

End Function

Ответить

Номер ответа: 5
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #5

Добавлено: 05.02.04 09:46

Код

DateTQ = "#" & Format(datVar, "mm") & "/" & Format(datVar, "dd") & "/" & Format(datVar, "yyyy") & "#",

можно заменить на код

DateTQ = "#" & Format(datVar, "mm/dd/yyyy") & "#" - он немног проще

Ответить

Страница: 1 |