ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с Date при запросе в таблицу Access. HELP!
16 сообщений из 16, страница 1 из 1
Проблема с Date при запросе в таблицу Access. HELP!
    #33572547
54321
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
54321
Участник
MySQLQuery = "select * from [$$ Монтаж\Наладка] where [Дата заявки] => '*" & valueViborki & "*'" and [Дата заявки] <= '*" & valueViborki2 & "*'"

Set MyRecords = glMyDB2.OpenRecordset(MySQLQuery, dbOpenDynaset)

Проблемма вот в чем: Мне надо сделать загрузку таблицы (SatGrid) с сортировкой по дате... Указываем две даты, например 01,01,05 и 01,01,06, нам необходимо выбрать из бызы все записи в этом промежутке... База Access'овская, поле [Дата заявки] типа "дата" формата dd.mm.yy

Пробовал через разбивку строк на части... куча ифоф.... вообщем муторно, долго и не красиво...

Есть ли к-л. запрос или команда которая может это сделать?
...
Рейтинг: 0 / 0
01.03.2006, 09:43:14
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33572562
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Where BETWEEN Data1 and Data2
по промежутку с по
...
Рейтинг: 0 / 0
01.03.2006, 09:47:57
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33572672
Фотография neal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neal
Участник
Все равно какой формат даты Вы видите в поле Access, обращаясь через запросы нужно передавать дату в формате

"#"&format(datevar,"mm\/dd\/yyyy")&"#"
...
Рейтинг: 0 / 0
01.03.2006, 10:20:06
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33575336
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Sub X()
    Dim dtmDate1 As Date
    Dim dtmDate2 As Date
    Dim strSQL As String
    Dim rst As DAO.Recordset
    Dim intI As Integer
    
    dtmDate1 = "27/2/2006"
    dtmDate2 = Date
    
    strSQL = "SELECT * " _
      & "FROM Монтаж " _
      & "WHERE [Дата заявки] Between #" _
      & Format(dtmDate1, "mm\/dd\/yyyy") & "# And #" _
      & Format(dtmDate2, "mm\/dd\/yyyy") & "#"
    
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    
    Do Until rst.EOF
        For intI =  0  To rst.Fields.Count -  1 
            Debug.Print rst.Fields(intI),
        Next intI
        Debug.Print
        rst.MoveNext
    Loop
End Sub
...
Рейтинг: 0 / 0
01.03.2006, 22:21:18
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33579032
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
Есть приложение и mdb база. Приложение использует злементы Data (простые не ADO).
1. Можно ли присвоить Data набор записей из SQL запроса объединяющего несколько таблиц (пусть даже этот набор будет необновляемым)?
2. Как выполнить запрос на обновление и добавление к мдб файлу?
3. Можно ли создать объект DataBase (на основе моего mdb файла) а в нем например иcпользовать метод Execute "Текст запроса"?
4. Можно ли получить достут к объектам mdb таким как TableDefs?

Синтаксис запросов не нужен, SQL знаю хорошо, просто работал в основном с access и чтото не найду как в VB6 выполнять такие запросы, а перебор в цикле набора recorset не всегда удобно.

Пока все вопросы, кто знает прошу ответить
...
Рейтинг: 0 / 0
03.03.2006, 10:22:05
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33579238
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
для выполнения обнавления базам используется Объект ADODB.Command
доступа к свойсвтам базы используется или ADOX или метод коннекта ОpenShema

Dim s As New ADODB.Command
Dim ss As New ADODB.Connection

;;;;;;;;;;;;;;;;;;;;;;;

s.ActiveConnection = ss
s.CommandText = "Update ss set s=2 where s =1"
s.Execute
...
Рейтинг: 0 / 0
03.03.2006, 11:03:00
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33579420
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
TIKO
Dim s As New ADODB.Command
Dim ss As New ADODB.Connection

;;;;;;;;;;;;;;;;;;;;;;;

s.ActiveConnection = ss
s.CommandText = "Update ss set s=2 where s =1"
s.Execute

можешь привести пример
Set s = ....
Set ss = ... mdb

вобщем как сказать ADODB.Connection что он конектится к определенной mdb?
Как получить набор из записей в ADODB.Connection (может у него есть recordset?)?

ЗЫ просто сейчас не имею возможности проверить на VB6 хотелось получить полное представление перед тем как приду домой и начну работать. Так что просьбы не обижаться на элементарные вопросы.
...
Рейтинг: 0 / 0
03.03.2006, 11:39:44
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33579462
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
ss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\acs.mdb;User Id=admin;Password=;"
ss.Open
на счет рекордсета
тоже соединение

Dim s As New ADODB.Connection
Dim rs As New ADODB.Recordset
s.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\acs.mdb;User Id=admin;Password=;"
s.Open
rs.Open "Select name from anytable", s, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
Debug.Print rs.Fields("name").Value
rs.MoveNext


Loop
End If
...
Рейтинг: 0 / 0
03.03.2006, 11:51:46
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33579554
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
Все понятно, остался последний (надеюсь) вопрос, программа делается (вернее вносятся изменения в старую) для человека который в другом городе, Win97, office97 (аксесса нет). Не получится ли так что я сделаю у себя отошлю, а у него нет ADO библиотек, вобщем что нужно ему скопировать в System32 и зарегистрировать (сделаю батник чтоб он не парился) чтоб точно заработало?
...
Рейтинг: 0 / 0
03.03.2006, 12:12:07
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33579812
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Сделайте такой исталлятор, который бы сам поставил все нужные библиотеки, влючая MDAC.
А Win97 - это что?
...
Рейтинг: 0 / 0
03.03.2006, 13:13:30
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33580199
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
MelkiadesСделайте такой исталлятор, который бы сам поставил все нужные библиотеки, влючая MDAC.
А Win97 - это что?
Это Win98 (я перепутал просто), ну это понятно, мне бы знать какие именно библиотеки (msado15.dll достаточно будет?)
...
Рейтинг: 0 / 0
03.03.2006, 14:27:22
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33580401
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Не достаточно. Необходимо запустить MDAC_TYP.exe.
Setup Factory, например, умеет автоматически устанавливать его при необходимости.
...
Рейтинг: 0 / 0
03.03.2006, 15:12:37
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33580559
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
у меня нет на компе такого файла, но АДО работает
...
Рейтинг: 0 / 0
03.03.2006, 15:43:21
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33580656
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
barrabasу меня нет на компе такого файла, но АДО работает
Значит, у вас XP.
Если у клиента тоже XP, то MDAC не надо ставить.
Иначе - http://msdn.microsoft.com/data/mdac/default.aspx
...
Рейтинг: 0 / 0
03.03.2006, 16:01:47
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33582116
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
Что не так написал
http://]
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub Command1_Click()
On Error GoTo Err
    Dim dbs As New ADODB.Connection
    Dim rcs As New ADODB.Recordset
    dbs.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                           "Data Source=" & PathDB & "\test2000.mdb" & _
                           ";User Id=;Password=;"
    dbs.Open
    dbs.Execute "INSERT INTO TEST(TEST) VALUES ('111') "
    rcs.Open "Select * from test", , adOpenStatic, adLockReadOnly
    rcs.MoveFirst
    Me.L_Test.Caption = rcs.Fields("Test").Value
    Set dbs = Nothing
    Set rcs = Nothing
    Exit Sub
Err:
    Me.L_Test.Caption = "Îøèáêà ADO (Òåñò 1)"
End Sub
запись вставляется а на rcs.Open ругается говорит что нельзя использовать подключение оно закрыто или недоступто в данном контексте. Где ошибка ?
...
Рейтинг: 0 / 0
04.03.2006, 20:20:45
| Ответить | Цитировать | Написать  
Проблема с Date при запросе в таблицу Access. HELP!
    #33582132
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
Вопрос снимается. забыл указать соединение
...
Рейтинг: 0 / 0
04.03.2006, 20:50:37
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с Date при запросе в таблицу Access. HELP!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33582132&tid=2166268]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 189ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 69ms
get tp. blocked users:
 1ms
others: 215ms
total:  516ms
созд. / загр.: 516ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]