Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с Date при запросе в таблицу Access. HELP! / 16 сообщений из 16, страница 1 из 1
01.03.2006, 09:43:14
    #33572547
54321
54321
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
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:47:57
    #33572562
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
Where BETWEEN Data1 and Data2
по промежутку с по
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2006, 10:20:06
    #33572672
neal
neal
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
Все равно какой формат даты Вы видите в поле Access, обращаясь через запросы нужно передавать дату в формате

"#"&format(datevar,"mm\/dd\/yyyy")&"#"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2006, 22:21:18
    #33575336
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
Код: 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
| Ответить | Цитировать | Написать  
03.03.2006, 10:22:05
    #33579032
barrabas
barrabas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
Есть приложение и mdb база. Приложение использует злементы Data (простые не ADO).
1. Можно ли присвоить Data набор записей из SQL запроса объединяющего несколько таблиц (пусть даже этот набор будет необновляемым)?
2. Как выполнить запрос на обновление и добавление к мдб файлу?
3. Можно ли создать объект DataBase (на основе моего mdb файла) а в нем например иcпользовать метод Execute "Текст запроса"?
4. Можно ли получить достут к объектам mdb таким как TableDefs?

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

Пока все вопросы, кто знает прошу ответить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2006, 11:03:00
    #33579238
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
для выполнения обнавления базам используется Объект 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:39:44
    #33579420
barrabas
barrabas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
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:51:46
    #33579462
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
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, 12:12:07
    #33579554
barrabas
barrabas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
Все понятно, остался последний (надеюсь) вопрос, программа делается (вернее вносятся изменения в старую) для человека который в другом городе, Win97, office97 (аксесса нет). Не получится ли так что я сделаю у себя отошлю, а у него нет ADO библиотек, вобщем что нужно ему скопировать в System32 и зарегистрировать (сделаю батник чтоб он не парился) чтоб точно заработало?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2006, 13:13:30
    #33579812
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
Сделайте такой исталлятор, который бы сам поставил все нужные библиотеки, влючая MDAC.
А Win97 - это что?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2006, 14:27:22
    #33580199
barrabas
barrabas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
MelkiadesСделайте такой исталлятор, который бы сам поставил все нужные библиотеки, влючая MDAC.
А Win97 - это что?
Это Win98 (я перепутал просто), ну это понятно, мне бы знать какие именно библиотеки (msado15.dll достаточно будет?)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2006, 15:12:37
    #33580401
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
Не достаточно. Необходимо запустить MDAC_TYP.exe.
Setup Factory, например, умеет автоматически устанавливать его при необходимости.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2006, 15:43:21
    #33580559
barrabas
barrabas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
у меня нет на компе такого файла, но АДО работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2006, 16:01:47
    #33580656
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
barrabasу меня нет на компе такого файла, но АДО работает
Значит, у вас XP.
Если у клиента тоже XP, то MDAC не надо ставить.
Иначе - http://msdn.microsoft.com/data/mdac/default.aspx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2006, 20:20:45
    #33582116
barrabas
barrabas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
Что не так написал
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:50:37
    #33582132
barrabas
barrabas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Date при запросе в таблицу Access. HELP!
Вопрос снимается. забыл указать соединение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с Date при запросе в таблицу Access. HELP! / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 335ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166268]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 193ms
total:  335ms
x
x
Закрыть


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