Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / AddNew. Проблемы. / 7 сообщений из 7, страница 1 из 1
24.03.2005, 19:03:15
    #32979528
мадама
мадама
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AddNew. Проблемы.
VB6 аппликация, база MS SQL Server. Использую ADO Data Control. У меня есть кнопка Add Record. Под ней код:

Код: plaintext
1.
2.
3.
4.
Me.Adodc.Recordset.AddNew
Me.employee_no.Text = glob_strUserID
Me.date = Now()
Me.record_no = fFindNextRecordNo
Me.client_org_code.SetFocus

где по-существу важна только первая строка. На нажатии загибается и выдаёт
"Runtime error -2147217887(80040e21). ODBC driver does not support the requested properties"

Тем, у кого было терпение дочитать досюда, пишу дальше.
Recordset заводится следующим образом:

Код: plaintext
1.
2.
3.
4.
5.
sSql = "тут моё выражение для этого"
Adodc.RecordSource = sSql
Adodc.CursorType = adOpenKeyset
Adodc.CursorLocation = adUseClient
Adodc.LockType = adLockOptimistic
Adodc.Refresh

Причём у меня на машине не загибается и на ещё одной машине. У всех остальных загибается. Единственное отличие - у нас установлен сиквеловский Enterprise Manager и все эти дела, а у них нет. Это единственное отличие, которое я пока вижу. Посоветуйте пожалуйста что-нибудь хорошее. Я не в отчаянии, но близко к тому.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2005, 19:11:41
    #32979546
nibbles
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AddNew. Проблемы.
мадамаVB6 аппликация, база MS SQL Server. Использую ADO Data Control. У меня есть кнопка Add Record. Под ней код:

Код: plaintext
1.
2.
3.
4.
Me.Adodc.Recordset.AddNew
Me.employee_no.Text = glob_strUserID
Me.date = Now()
Me.record_no = fFindNextRecordNo
Me.client_org_code.SetFocus

где по-существу важна только первая строка. На нажатии загибается и выдаёт
"Runtime error -2147217887(80040e21). ODBC driver does not support the requested properties"

Тем, у кого было терпение дочитать досюда, пишу дальше.
Recordset заводится следующим образом:

Код: plaintext
1.
2.
3.
4.
5.
sSql = "тут моё выражение для этого"
Adodc.RecordSource = sSql
Adodc.CursorType = adOpenKeyset
Adodc.CursorLocation = adUseClient
Adodc.LockType = adLockOptimistic
Adodc.Refresh

Причём у меня на машине не загибается и на ещё одной машине. У всех остальных загибается. Единственное отличие - у нас установлен сиквеловский Enterprise Manager и все эти дела, а у них нет. Это единственное отличие, которое я пока вижу. Посоветуйте пожалуйста что-нибудь хорошее. Я не в отчаянии, но близко к тому.

1. MDAC на все клиентские машины
2. Проверить права доступа к SQL Server у пользователей на клиентских машинах
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2005, 19:20:55
    #32979557
мадама
мадама
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AddNew. Проблемы.
MDAC вроде стоит. Права доступа есть у них по полной программе. Ведь всё остальное работает и работает нормально c ADO и c SQL Server.
Это просто хрень с ADO Data Control.
Но попробую пройтись по MDACу ещё раз. Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2005, 19:48:43
    #32979599
nibbles
nibbles
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AddNew. Проблемы.
мадамаMDAC вроде стоит. Права доступа есть у них по полной программе. Ведь всё остальное работает и работает нормально c ADO и c SQL Server.
Это просто хрень с ADO Data Control.
Но попробую пройтись по MDACу ещё раз. Спасибо.

EM или QA с "проблемных" машин получается законнектиться к SQL Server?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2005, 20:07:37
    #32979612
мадама
мадама
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AddNew. Проблемы.
Со всех машин получается законнектиться. У меня не проблем с connection. Это работает и данные показывает. Просто операция AddNew почему-то не работает, и именно с ADO DataControl. У "непроблемных" машин стоит MS SQL Server 7. Там всё, и EM или QA. Наверное я неправильно выразилась в начале. Извиняюсь за путанное объяснение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2005, 22:40:09
    #32979740
мадама
мадама
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AddNew. Проблемы.
Поиск сужается. Не любит мою строчку

Me.record_no = fFindNextRecordNo

Без неё работает. Это функция, которая вычисляет номер записи.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2005, 00:02:41
    #32979768
мадама
мадама
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AddNew. Проблемы.
Переделала функцию, влючила её в тело рутины AddNew. Работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / AddNew. Проблемы. / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 364ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2168055]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 66ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 235ms
total:  364ms
x
x
Закрыть


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