не могу подружить МДБ с текстбоксом (дата)

[SK | Heaton]

у мя база МДБ-ешная я ни как не могу создать запрос

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

Dim a As String
Dim d As Date
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
a = fil.Combo1.Text
d = Text1.Text
MsgBox d
Adodc1.RecordSource = "select * from [a] where date='&d&'"
Adodc1.Refresh
End Sub

Комбо1 это название табл а текст1 это дата **.**.**** не катит ВБ ругается.....

[alibek]

Поищи "Access формат даты", тема десять раз поднималась.

[Алексей К.]

Тебе же ответили в другом топике, так попробуй

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


d = "#" & Format$(CDate(Text1.Text), "mm\/dd\/yyyy") & "#"


[Алексей К.]

И поправь:

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


Adodc1.RecordSource = "select * from [a] where date='&d&'"


на

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


Adodc1.RecordSource = "select * from [a] where date='"+d+"'"


[SK | Heaton]

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

d = "#" & Format$(CDate(DTPicker1.value), "mm\/dd\/yyyy") & "#"

CDate - это функция ?!

[SK | Heaton]

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

Function sAmericanDateStyle(datDate As Date) As String
    sAmericanDateStyle = "#" & Format$(datDate, "mm.dd.yyyy") & "#"
End Function
Dim a As String
Dim d As Integer

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
If fil.Combo1.Text = "Худжанд" Then
'a = fil.Combo1.Text
d = "#" & Format$(CDate(DTPicker1.Value), "mm\/dd\/yyyy") & "#"

'MsgBox d
Adodc1.RecordSource = "select * from Худжанд where date='" + d + "'"
Adodc1.Refresh

End If
End Sub

выдает ошибку несоответствие типов данных в выражении условия отбора и курсор стоит на Adodc1.Refresh

[GSerg]

И в решётку, и в кавычки... Ещё б в квадратные скобки - тогда никто точно не догадается, что это дата....

[SK | Heaton]

2 GSerg тогда как быть помоги плиз

[GSerg]

По-моему, уже можно догадаться, что надо делать. Разве нет?

[SK | Heaton]

2 GSerg-Шаман а если не мучать и подсказать ?! плиз

[Алексей К.]

попробуй убрать апострофы

[SK | Heaton]

ублал всеравно пипец

[Алексей К.]

покажи как у тебя теперь выглядит строка Adodc1.RecordSource =...

[SK | Heaton]

2 Алексей К. бро терь все ок заработала