ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Альтернатива CurrentDb
25 сообщений из 27, страница 1 из 2
  1  все
Альтернатива CurrentDb
    #32520997
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
Доброго времени суток!


Использую соединение не DAO,
пытался:

а) Set db1 = CurrentDb

б) db1.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db\acc_test_db\ДБ1.mdb")

Как в танке!!! Причом, после замены на ДБ2.mdb всё работает - но нужен имено CurrentDb!

Заранее благодарен В. Скопин!
...
Рейтинг: 0 / 0
17.05.2004, 18:19
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521001
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
как выглядет ЭТО работающе

после замены на ДБ2.mdb всё работает - но нужен имено CurrentDb
...
Рейтинг: 0 / 0
17.05.2004, 18:22
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521002
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Не совсем понятно :(

CurrentDB - если можно так выразиться, уже открыт, зачем же еще раз?
...
Рейтинг: 0 / 0
17.05.2004, 18:23
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521010
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
пишет ошибку при а и б
...
Рейтинг: 0 / 0
17.05.2004, 18:25
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521015
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
а ДБ2.mdb - это левый, не текущий ДБ
...
Рейтинг: 0 / 0
17.05.2004, 18:27
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521017
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Какую ошибку пишет???
...
Рейтинг: 0 / 0
17.05.2004, 18:27
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521018
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Зачем Вам CurrentDB, если Вы потом пытаетесь переопределить переменную db1?

В чем суть вопроса? Сформулируйте точнее, желательно с котом и ошибками (оригинальными)
...
Рейтинг: 0 / 0
17.05.2004, 18:28
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521022
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
какой access ?
+кусок работающего кода
+ дальше будет RecordSet или Execute ?
...
Рейтинг: 0 / 0
17.05.2004, 18:28
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521024
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
в очередь подсказчики
...
Рейтинг: 0 / 0
17.05.2004, 18:29
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521034
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
при а 13 - недоволенный тип

при б USER ADMIN уже использует ДБ, только это ошибка дальше формуляр не идет
...
Рейтинг: 0 / 0
17.05.2004, 18:35
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521038
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Как описана переменная db1?
...
Рейтинг: 0 / 0
17.05.2004, 18:37
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521042
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
какой access - 2000
+кусок работающего кода -нет - это почти первая строка
+ дальше будет RecordSet или Execute ? -ДА
...
Рейтинг: 0 / 0
17.05.2004, 18:38
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521044
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
Как описана переменная db1? As Database
...
Рейтинг: 0 / 0
17.05.2004, 18:40
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521050
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
Sorry!
Dim db1 As Databases
...
Рейтинг: 0 / 0
17.05.2004, 18:41
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521056
мдя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мдя
Участник
судя по стартовому вопросу он хочет открыть ADO.Connection, а не Database
...
Рейтинг: 0 / 0
17.05.2004, 18:43
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521062
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
As Database s ???

2 мдя:
Он хочет открыть текущую базу.
...
Рейтинг: 0 / 0
17.05.2004, 18:46
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521064
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Ага текущую mdb не подключая DAO
может через Documents найти полный путь на currentdb ?
...
Рейтинг: 0 / 0
17.05.2004, 18:49
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521067
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
As Databases???

2 мдя:
Он хочет открыть текущую базу.
- нет без `s` вариантов!!!
...
Рейтинг: 0 / 0
17.05.2004, 18:51
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521071
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
сам пишу на 97 + DAO
не проверяя предлагаю
currentproject.connection
и из него openrecordset или его аналог в ADO
...
Рейтинг: 0 / 0
17.05.2004, 18:52
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521072
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Нет вариантов, потому что не подключено DAO...
...
Рейтинг: 0 / 0
17.05.2004, 18:52
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521078
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
Set db_acc = New CurrentProject
всем спасибо вроде так работает!
...
Рейтинг: 0 / 0
17.05.2004, 18:57
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521081
мдя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мдя
Участник
осталось выяснить, на кой оно ему далось,
если он ДАО объекты/методы юзать не собирается

может ему
CurrentProject-ы (и т.п.) сгодятся
...
Рейтинг: 0 / 0
17.05.2004, 19:00
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521084
мдя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
мдя
Участник
апаздал
...
Рейтинг: 0 / 0
17.05.2004, 19:01
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521093
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
проверил из хэлпа работает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
   Dim cnn1 As ADODB.Connection
    Dim rstEmployees As ADODB.Recordset
    Set cnn1 = CurrentProject.Connection
    Set rstEmployees = New ADODB.Recordset
    rstEmployees.CursorType = adOpenKeyset
    rstEmployees.LockType = adLockOptimistic
    rstEmployees.Open "T1", cnn1, , , adCmdTable
    rstEmployees.MoveFirst
    Debug.Print rstEmployees![Comp_Name]
...
Рейтинг: 0 / 0
17.05.2004, 19:08
| Ответить | Цитировать | Написать  
Альтернатива CurrentDb
    #32521108
v skopin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
v skopin
Участник
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Set cnn1 = CurrentProject.Connection
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "T1", cnn1, , , adCmdTable
rstEmployees.MoveFirst
Debug.Print rstEmployees![Comp_Name]

САМОЕ ГРАМОТНОЕ РЕШЕНИЕ!!!
...
Рейтинг: 0 / 0
17.05.2004, 19:13
| Ответить | Цитировать | Написать  
25 сообщений из 27, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Альтернатива CurrentDb
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1629&tid=1674569]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 56ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 63ms
get tp. blocked users:
 1ms
others: 244ms
total:  408ms
созд. / загр.: 408ms
x
x
Закрыть


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