ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разрешить изменение RecordSet
15 сообщений из 15, страница 1 из 1
Разрешить изменение RecordSet
    #38263059
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
' Microsoft ActiveX Data Objects 2.x Library
Dim cn As New adodb.Connection, rs As New adodb.Recordset
Dim Cmd1 As New adodb.Command
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & prevMonth & ";Extended Properties=dBase IV"
    .CursorLocation = adUseClient
    .Open
End With

Cmd1.CommandText = "Select * From main"
rs.CursorLocation = adUseClient
rs.Open Cmd1, cn, adOpenDynamic, adLockPessimistic
rs.Fields(0).Value = "999999"



Ошибка на строке rs.Fields(0).Value:
"не удается изменить свойство ActiveConnection объекта recordset с объектом command в качестве источника"

Делал через метод cn.Execute - тоже не дает что-то делать с набором.
Мне нужно вносить изменения в RecordSet, при этом мне не надо отправлять эти изменения на сервер - таблицы источника должны остаться в оригинале.
Как тут правильно развести ситуацию?
...
Рейтинг: 0 / 0
18.05.2013, 09:43
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263094
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Исправил

CmdText = "Select * From main"
rs.CursorLocation = adUseClient
rs.Open CmdText, cn, adOpenDynamic, adLockPessimistic
rs.Fields(0).Value = "999999"

Для Rs.Open первым параметром строка, а передавать эту строку в объект Command было не нужно.

Теперь другая ошибка:
"Недостаточные сведения о ключевом столбце для обновления"
...
Рейтинг: 0 / 0
18.05.2013, 10:55
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263117
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Shizuku Теперь другая ошибка:
"Недостаточные сведения о ключевом столбце для обновления"
PK есть в таблице ?
...
Рейтинг: 0 / 0
18.05.2013, 11:29
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263121
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
qwerty112PK есть в таблице ?

Нету. Точнее он там где-то есть, но это же DBASE IV ! Там dbf и cdx, составные индексы и т.п. Отправляю SELECT и всё... Как там указать, где какое поле? Молча возвращает данные.
Вот если бы можно было в самой выборке или recordset пометить ключевое поле/поля...
...
Рейтинг: 0 / 0
18.05.2013, 11:38
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263139
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
У тебя не dBase, у тебя FoxPro (возможно, даже VFP).
Попробуй подключиться через другого провайдера - там, ЕМНИП, ODBC-драйвер более качественный...
Код: vbnet
1.
2.
    .Provider = "vfpoledb"
    .ConnectionString = "Data Source=" & prevMonth
...
Рейтинг: 0 / 0
18.05.2013, 12:03
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263144
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
AndreTMУ тебя не dBase, у тебя FoxPro (возможно, даже VFP).


Ну, если быть точным, то DBASE III - ранний FopxPro v2.6a

Ошибка: "Не удаётся найти указанный поставщик..."
...
Рейтинг: 0 / 0
18.05.2013, 12:13
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263201
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Ага... А какие у вас вообще ODBC-драйверы установлены? И ОСь какая?
...
Рейтинг: 0 / 0
18.05.2013, 13:29
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263346
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
AndreTM,

Win8, мною дополнительно скачаны и установлены:
VFPODBC.msi

VFPOLEDBSetup.msi

И еще MySQL ODBC, но он к этой задаче отношения не имеет
...
Рейтинг: 0 / 0
18.05.2013, 16:41
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263543
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
ShizukuWin8, мною дополнительно скачаны и установлены:
VFPODBC.msi

VFPOLEDBSetup.msi
Отсюда ? ИМХО, вам надо качать и ставить vfpoledb.msm
Ну и шерстить именно этот раздел на предмет разных видов подключений к тем самым dbf от последней версии FPD...
...
Рейтинг: 0 / 0
18.05.2013, 21:11
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263608
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
AndreTMИМХО, вам надо качать и ставить vfpoledb.msm
Оттуда. А vfpoledb.msm не устанавливается (regsvr32 его не берет). Потом я вычитал, что он нужен лишь при создании инсталляторов и всякого такого...
...
Рейтинг: 0 / 0
18.05.2013, 22:51
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263660
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Вот там было то же самое. Майские что-ли плохо проходят?..
Попробуйте запустить мой пример оттуда - если не пойдет, то проблема действительно в драйверах ODBC/OLEDB. Как помочь - не скажу даже отдаленно; у меня для работы с ADODB отдельные компы как (на которых я занимаюсь разработкой) как настроены раз - так и пашут... и да, на них фокс установлен (либо есть, либо был). Так шта

Могу только посоветовать попробовать проделать "поставить-удалить" VFP9 (это недолго и небольно :)) - может, заработают драйверы.
Ещё как вариант - поднять виртуальную машину с XP и на ней уже "по рельсам, по шпалам" работать с базами FPD.
...
Рейтинг: 0 / 0
19.05.2013, 00:48
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263666
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Да, и ещё - попробуйте прокрутить проверку вот этим
...
Рейтинг: 0 / 0
19.05.2013, 01:01
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263670
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Заодно - вот вам файлик из комплекта VFP9sp2.
Закиньте его в "С:\Program Files\Common Files\System\Ole DB\" и перерегистрируйте.
...
Рейтинг: 0 / 0
19.05.2013, 01:34
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38263712
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Стоит у меня FoxPro, куда ж без него... Последний. И кстати, вопреки всем утверждениям прекрасно себя чувствует на восьмерке.
Вот если Excel не осилю, придется все сначала, под лисиц, делать. Там есть отличная штука - которая CursorAdapter
...
Рейтинг: 0 / 0
19.05.2013, 09:20
| Ответить | Цитировать | Написать  
Разрешить изменение RecordSet
    #38279113
Shizuku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shizuku
Гость
Проблему до конца не решил, но для моей задачи неважно чтобы именно исходный курсор был "живым". И я просто переписал его содержимое в динамический (программный, виртуальный... - не знаю как правильно назвать) RecordSet, с которым уже игрался как душе угодно.

Пример такого RecordSet:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
With rsBuild
 .CursorLocation = adUseClient
 .Fields.Append "num_ls", adDouble, 8
 .Fields.Append "num_dog", adVarWChar, 7, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "datdog", adDate, 8, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "fam", adVarWChar, 30, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "im", adVarWChar, 20, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "ot", adVarWChar, 20, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "nname", adVarWChar, 30
 .Fields.Append "n_dom", adVarWChar, 20, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "n_kv", adVarWChar, 4, attrib:=adFldIsNullable + adFldUpdatable
 .Fields.Append "crsumma", adDouble, 8
 .Fields.Append "prsumma", adDouble, 8
 .Fields.Append "kolmes", adDouble, 8
 .Open
' Здесь действия над таблицей
 .Close
End With
...
Рейтинг: 0 / 0
29.05.2013, 18:31
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разрешить изменение RecordSet
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38263660&tid=2156947]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 55ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 280ms
total:  441ms
созд. / загр.: 441ms
x
x
Закрыть


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