Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
Oleg

ADO работает, а DAO не получается. В чем причина?

22.07.2011, 08:30. Показов 3430. Ответов 28
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вот этот кусок работает (ADO):
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL As String
 
    Set db = New ADODB.Connection
    db.Open 'TestOracl', 'ИмяПользователя', 'Пароль'
 
    sSQL = 'select * from ИмяТаблицы'
    Set rs = New ADODB.Recordset
    rs.ActiveConnection = db
    rs.Source = sSQL
    rs.Open
' ...
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
А вот этот кусок не работает (DAO)
Visual Basic
1
2
3
4
5
6
7
Dim MyDB As Database
Dim MyRS As Recordset
Dim sSQL As String
 
Set MyDB = OpenDatabase('TestOracl', dbDriverNoPrompt, True, 'ODBC')
sSQL = 'select * from ИмяТаблицы'
Set MyRS = MyDB.OpenRecordset(sSQL, dbOpenDynaset) ' Вот тут выдает ошибку
Выдает следующее сообщение:
The Microsoft Jet database engine cannot find the input table or query 'CLIENT'. Make sure it exists and that its name is spelled correctly.
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.07.2011, 08:30
Ответы с готовыми решениями:

Почему DAO, в отличие от ADO, ущербно работает с базой?
Уважаемые! Почему сложные SQL запросы, например на выборку слов с конкретной буквой на указанном месте из базы .mdb, через DAO работают...

Математическое уравнение. Получается неверный результат, не могу понять в чем причина, ошибок не выдает
namespace Work2 { class Program { static void Main(string args) { Console.OutputEncoding =...

Не работает слайдер, в чём причина
Не могу понять что со слайдером, работает только 1 раз, в одну или другую сторону и всё, делал такой же слайдер на кодепене всё отлично...

28
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
22.07.2011, 11:55
укажи текущую схему, например:

Code
1
select * from SCOTT.Orders
0
Oleg
22.07.2011, 12:59
Тогда она (прога) пишет, что не найдена база SCOTT.mdb
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
22.07.2011, 13:45
ты свою схему укажи.
Я тебе просто пример привел, как надо работать с оракловой базой.

Code
1
SELECT СХЕМА.ТАБЛИЦА.ПОЛЕ FROM СХЕМА.ТАБЛИЦА
0
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
22.07.2011, 13:47
Схема - это имя пользователя, который создал объекты в базе
0
6 / 6 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
24.07.2011, 16:23
A zachem DAO nuzhno?
0
Oleg
25.07.2011, 06:36
У меня стоит XP и VB6. Пишу прогу для W98.
ADO на W98 работать не хочет, думаю надо попробовать более старый способ.
Comanche
25.07.2011, 12:17
>> ADO на W98 работать не хочет

Да неужели?!?!?!
MDAC ставил?
Oleg
25.07.2011, 12:22
конечно! написал прогу с двумя кнопочками, одна называется ДАО, другая АДО. Первая не работает, вторая работает.
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
25.07.2011, 12:35
на 98 ADO прекрасно работает.
ты наверное не поставил нужный MDAC
0
Oleg
25.07.2011, 12:42
А я и говорю, что АДО работает
ДАО не работает
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
25.07.2011, 14:04
ставь MS Jet 4.0 SP8
0
6 / 6 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
25.07.2011, 23:23
DAO mozhet ne vsegda rabotat' s poslednimi versiyami ACCESS
0
Comanche
26.07.2011, 11:55
2Oleg:
м.б. я ослеп?! -

>> А я и говорю, что АДО работает
>> ДАО не работает

Но чуть выше:
>> ADO на W98 работать не хочет, думаю надо попробовать более старый способ.

Наверное, твоя очепятка.
Oleg
26.07.2011, 12:14
Совершенно верно... ADO работает у меня в XP, а при переносе на W98 не работает. Пытаюсь запустить DAO, не получается ни где...
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
26.07.2011, 12:40
ты просто из ODBC можешь приконектиться к ораклу?
если нет, то настраивай tnsnames.ora
0
Oleg
26.07.2011, 12:49
Вот с этого момента, если можно по подробнее, желательно с примерами. У меня стоит оракловый клиент (настроиный). Работают проги написанные на дельфи. Хочу написать свою на VB6, но не знаю как... (извините 'чайник' как в VB, так и в оракле)
Comanche
26.07.2011, 14:23
http://www.relib.com/articles/article.asp?id=7
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
26.07.2011, 15:06
открой ODBC manager ,создай новый DSN, укажи имя твоего оракла (см. tnsnames.ora) имя юзера и тд, нажми проверку соединения, если все ок, то будет работать через этот DSN как через ADO, так и через DAO
0
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
26.07.2011, 15:10
2 Comanche:
там немного устаревшая строка соедиения к ораклу, для 8-го и 9-го уже совсем другой драйвер:

8-ка: 'Oracle ODBC Driver'
9-ка: 'Oracle in [Имя из tnsnames.ora]'
например у меня так: 'Oracle in Oracle92'
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.07.2011, 15:10
Помогаю со студенческими работами здесь

Не работает код. В чём причина?
Добрый день! Простой код не работает #include<stdio.h> int main(void) { char ch; scanf_s("%c",&ch); ...

Не работает программа, в чем причина?
Необходимо вычислить значение функции y и посчитать сумму ее первых трех значений: y=sin|ax+b|, если x<a/b, y=cos|ax-b|,если...

Не работает условие в батнике. В чем причина
Добрый день! Имею такой батник @Echo off cls set pDot=C:\CONSXML\#DOT\Programs set pRes=c:\Формирование_Отчетов\Данные ...

Процессор работает на 69% из 100. В чем причина?
Здравствуйте, недавно выяснил, что процессор выдает не всю мощность, а всего 70%, сегодня проведя несколько стресс-тестов это...

На ПК совсем не работает VPN. В чем причина?
Суть проблемы: Установил Windows XP, интернет заработал сразу без каких-либо лишних установок драйверов. Поставил программу VPN Viscosity....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru