DTPicker + SQL = HELP!!!

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
SK | Heaton
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 16.08.2005 (Вт) 10:10

DTPicker + SQL = HELP!!!

Сообщение SK | Heaton » 02.09.2005 (Пт) 14:27

Тут что-то не так. Когда я беру период например с ** до ** 08 месяца все работает. А когда я беру период с **.08 до **.09 периода он у меня вообще не правильно работает..
Братья кодеры помогите, маленькому кодершику

Код: Выделить всё
Function sAmericanDateStyle(datDate As Date) As String
    sAmericanDateStyle = "#" & Format$(datDate, "mm.dd.yyyy") & "#"
End Function

Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\DATA\data.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
d1 = "#" & Format$(CDate(DTPicker1.Value), "mm\/dd\/yyyy") & "#"
d2 = "#" & Format$(CDate(DTPicker2.Value), "mm\/dd\/yyyy") & "#"
Adodc1.RecordSource = "select * from data where date BETWEEN " + d1 + " and " + d2 + " "
Adodc1.Refresh
Adodc1.RecordSource = "select * from data ORDER BY sim ASC "
Adodc1.Refresh
End Sub
============================
Учимся кодить
============================

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 02.09.2005 (Пт) 14:30

Этот код выведет все записи, отсортированные по sim.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

SK | Heaton
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 16.08.2005 (Вт) 10:10

Сообщение SK | Heaton » 02.09.2005 (Пт) 14:34

правильно, я просто не то поставил
вооо
Код: Выделить всё
Function sAmericanDateStyle(datDate As Date) As String
    sAmericanDateStyle = "#" & Format$(datDate, "mm.dd.yyyy") & "#"
End Function

Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\DATA\data.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
d1 = "#" & Format$(CDate(DTPicker1.Value), "mm\/dd\/yyyy") & "#"
d2 = "#" & Format$(CDate(DTPicker2.Value), "mm\/dd\/yyyy") & "#"
Adodc1.RecordSource = "select * from data where date BETWEEN " + d1 + " and " + d2 + " "
Adodc1.Refresh
End Sub

а так не получается как я объяснил..
============================
Учимся кодить
============================

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 02.09.2005 (Пт) 14:37

Знаешь, когда видишь вопрос типа "не работает", очень хочется отправить человека на http://www.sysadmins.ru/rtfm/ask_howto.htm
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

SK | Heaton
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 16.08.2005 (Вт) 10:10

Сообщение SK | Heaton » 02.09.2005 (Пт) 15:06

GSerg
мдя... Значит только я сам понимаю свой вопрос :!:
============================
Учимся кодить
============================

SK | Heaton
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 16.08.2005 (Вт) 10:10

Сообщение SK | Heaton » 02.09.2005 (Пт) 15:18

GSerg

Ну что делать если я все это уже сделал :!:
============================
Учимся кодить
============================

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 02.09.2005 (Пт) 16:32

SK | Heaton писал(а):а так не получается как я объяснил..


Ты эта... Переменные объявляешь? Какого типа у тебя d1 и d2?
Наверняка не String...

Делай так:

Код: Выделить всё
Function AmericanDateStyle(datDate As Date) As String
    AmericanDateStyle = "#" & Format$(datDate, "m\/d\/yyyy") & "#"
End Function

Private Sub Command1_Click()
    Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATA\data.mdb;Persist Security Info=False"
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "SELECT * FROM [data] WHERE [date] BETWEEN " & AmericanDateStyle(DTPicker1.Value) & " AND " & AmericanDateStyle(DTPicker2.Value)
    Adodc1.Refresh
End Sub
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

SK | Heaton
Обычный пользователь
Обычный пользователь
 
Сообщения: 63
Зарегистрирован: 16.08.2005 (Вт) 10:10

Сообщение SK | Heaton » 05.09.2005 (Пн) 9:39

Andrey Fedorov

ругается на AmericanDateStyle :!: :!:
============================
Учимся кодить
============================

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 05.09.2005 (Пн) 9:50

вот как у меня сделано
код полностью рабочий:
Код: Выделить всё

Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db\1.xls;Mode=Read;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""

nd = Format(txtNachD.Value, "mm\/dd\/yyyy")
kd = Format(txtKonD.Value, "mm\/dd\/yyyy")

Set RS = New Recordset
RS.Open "select f16, f1, f2, f8, f13  from [Приход$a4:y65536] where f1 between #" & nd & "# and #" & kd & "# and f16 = '" & lstKlad.List(x) & "' order by f1 asc", db, adOpenForwardOnly, adLockReadOnly, adCmdText


переменные nd и kd - string
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 05.09.2005 (Пн) 10:02

И вообще - трудно посмотреть значения переменных в момент ошибки отладчиком? Ведь все сразу становится видно...
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 0

    TopList  
cron