Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Альтернатива CurrentDb / 25 сообщений из 27, страница 1 из 2
  1  все
17.05.2004, 18:19
    #32520997
v skopin
v skopin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Альтернатива CurrentDb
Доброго времени суток!


Использую соединение не 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:22
    #32521001
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Альтернатива CurrentDb
как выглядет ЭТО работающе

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

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

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

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

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

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

может ему
CurrentProject-ы (и т.п.) сгодятся
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2004, 19:01
    #32521084
мдя
мдя
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Альтернатива CurrentDb
апаздал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2004, 19:08
    #32521093
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Альтернатива CurrentDb
проверил из хэлпа работает
Код: 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:13
    #32521108
v skopin
v skopin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Альтернатива CurrentDb
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
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Альтернатива CurrentDb / 25 сообщений из 27, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 559ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1674569]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 167ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 71ms
get tp. blocked users:
 2ms
others: 271ms
total:  559ms
x
x
Закрыть


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