DTPicker + SQL = HELP!!!

[SK | Heaton]

Тут что-то не так. Когда я беру период например с ** до ** 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]

Этот код выведет все записи, отсортированные по sim.

[SK | Heaton]

правильно, я просто не то поставил
вооо

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

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]

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

[SK | Heaton]

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

[SK | Heaton]

GSerg

Ну что делать если я все это уже сделал

[Andrey Fedorov]

а так не получается как я объяснил..

Ты эта... Переменные объявляешь? Какого типа у тебя 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]

Andrey Fedorov

ругается на AmericanDateStyle

[lord0n]

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

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


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]

И вообще - трудно посмотреть значения переменных в момент ошибки отладчиком? Ведь все сразу становится видно...