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

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

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

Сообщение SK | Heaton » 18.08.2005 (Чт) 14:57

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

Код: Выделить всё
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
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.08.2005 (Чт) 14:59

Поищи "Access формат даты", тема десять раз поднималась.
Lasciate ogni speranza, voi ch'entrate.

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 19.08.2005 (Пт) 6:40

Тебе же ответили в другом топике, так попробуй
Код: Выделить всё

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

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 19.08.2005 (Пт) 6:55

И поправь:
Код: Выделить всё

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

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

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

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

Сообщение SK | Heaton » 19.08.2005 (Пт) 7:58

Код: Выделить всё
d = "#" & Format$(CDate(DTPicker1.value), "mm\/dd\/yyyy") & "#"


CDate - это функция ?!
============================
Учимся кодить
============================

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

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

Код: Выделить всё
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
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 19.08.2005 (Пт) 8:27

И в решётку, и в кавычки... Ещё б в квадратные скобки - тогда никто точно не догадается, что это дата....
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

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

Сообщение SK | Heaton » 19.08.2005 (Пт) 8:32

2 GSerg тогда как быть помоги плиз
============================
Учимся кодить
============================

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

Сообщение GSerg » 19.08.2005 (Пт) 8:36

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

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

Сообщение SK | Heaton » 19.08.2005 (Пт) 9:02

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

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 19.08.2005 (Пт) 9:10

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

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

Сообщение SK | Heaton » 19.08.2005 (Пт) 9:28

ублал всеравно пипец :(
============================
Учимся кодить
============================

Алексей К.
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 419
Зарегистрирован: 12.05.2004 (Ср) 9:41
Откуда: Ульяновск

Сообщение Алексей К. » 19.08.2005 (Пт) 9:33

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

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

Сообщение SK | Heaton » 19.08.2005 (Пт) 9:46

2 Алексей К. бро терь все ок заработала :D
============================
Учимся кодить
============================


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

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

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

    TopList