Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Удаление, добавление записей в БД 
V
    Опции темы
GyDi
Дата 22.3.2006, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 37
Регистрация: 12.1.2006

Репутация: нет
Всего: нет
Плз помогите. Подключаю через ADO Excel файл, пытаюсь удалить данные,но пишет "Текущий объект Recordset не поддерживает обновление". Что делать?
PM MAIL   Вверх
cardinal
Дата 22.3.2006, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
У тебя сам файл excel в это время закрыт? Может поэтому не поддерживается обновление...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
GyDi
Дата 23.3.2006, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 37
Регистрация: 12.1.2006

Репутация: нет
Всего: нет
Цитата(cardinal @ 22.3.2006, 19:47 Найти цитируемый пост)
У тебя сам файл excel в это время закрыт? Может поэтому не поддерживается обновление...

Закрыт, а надо что б был открыт?
PM MAIL   Вверх
cardinal
Дата 23.3.2006, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Нет, именно обычно надо чтобы фалй был закрыт. Код выкладывай...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
GyDi
Дата 23.3.2006, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 37
Регистрация: 12.1.2006

Репутация: нет
Всего: нет
Цитата(cardinal @ 23.3.2006, 16:45 Найти цитируемый пост)
Нет, именно обычно надо чтобы фалй был закрыт. Код выкладывай

Код

Set cn = New ADODB.Connection
    
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "data source=" & App.Path & "\2005.xls;" & "Extended Properties=Excel 8.0;"
        .Open
    End With
Set RcSet = New ADODB.Recordset

RcSet.Open "Select * from [2005$]", cn
    With cn1
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "data source=" & App.Path & "\2006.xls;" & "Extended Properties=Excel 8.0;"
        .Open
    End With
Set RcSet1 = New ADODB.Recordset
RcSet1.Open "Select * from [2006$]", cn1

Do While Not RcSet1.EOF
    Do While Not RcSet.EOF
         If RcSet.Fields(1).Value = RcSet1.Fields(1).Value Then
            RcSet1.Delete
            RcSet1.MoveNext
            RcSet1.Update
        End If
    RcSet.MoveNext
    Loop
RcSet.MoveFirst
RcSet1.MoveNext
Loop


Может я вообще все не так делаю?!
PM MAIL   Вверх
valex13
Дата 24.3.2006, 05:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 243
Регистрация: 29.1.2003
Где: Иркук. область, г . Иркутск

Репутация: 1
Всего: 1
Попробуй использовать объект Command, т.к. RecordSet (в зависимости от БД) на самом деле может не делать апдейт или попробуй апдейт сделать запросом.
Код

   Dim sa As ADODB.Command
PM MAIL ICQ   Вверх
GyDi
Дата 25.3.2006, 11:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 37
Регистрация: 12.1.2006

Репутация: нет
Всего: нет
Цитата(valex13 @ 24.3.2006, 05:39 Найти цитируемый пост)
попробуй апдейт сделать запросом

Может подскажет как?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0681 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.