ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADO - Как убедиться что Execute отработал
22 сообщений из 47, страница 2 из 2
  2  все
ADO - Как убедиться что Execute отработал
    #36555467
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
Наверное я что то не понимаю.

есть база A0- основная коннект Mconn. Я хочу добавить в нее данные из других баз.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
'чистим arh_rep
Mconn.Execute ("DELETE arh_rep.* FROM arh_rep")
'Задаем свойства FileListBox
Lic.File1.Path = App.Path + "\data\Arhiv\"
Lic.File1.Pattern = "*.amd"
'перебор имен файлов в цыкле
For j =  0  To Lic.File1.ListCount -  1 
'MsgBox (File1.List(i))
'Подключаемся к архиву и копируем из аддинг нужные записи по Filter.Nm


новый коннект открыт "Ca"
подключились к J-ой  File1.List(i) БД по списку
потом:
Ca.Execute ("INSERT INTO arh_rep IN'" + App.Path + "\Data\kvartplata.amd' SELECT Adding.* FROM Adding WHERE (((Adding.KodKv)=" + Номер + "));")
закрываем коннект "Са"

Ca.Close

next J

после всего этого строим запрос через Mconn который остается все время открытым.


Данные не все или их нет совсем.

В чем ошибка не пойму.
...
Рейтинг: 0 / 0
01.04.2010, 14:02
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555489
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrey13В чем ошибка не пойму.

Вам уже сто раз сказали, в чем ошибка.
В том, что вы используете два коннекта, а нужно использовать ОДИН коннект - MSCONN. И через него подключаться ко всем файлам.
...
Рейтинг: 0 / 0
01.04.2010, 14:07
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555491
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
Забыл добавить хотя запрос пустой или не полный в arh_rep данные присутствуют.
...
Рейтинг: 0 / 0
01.04.2010, 14:07
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555504
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
Скорее всего я туплю, но не могу понять не как я могу скопировать данные из других баз неподключаясь к ним при помощи коннекта "Ca".
Пожалуйста, давайте по порядку.
1. Что бы скопировать данные из однорй БД1 в друю БД0(исходную) я должен ОБЯЗАТЕЛЬНО подключиться к БД1?
2. Что бы программа продолжала работать подключение к БД0 должно оставаться активным,
...
Рейтинг: 0 / 0
01.04.2010, 14:13
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555506
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrey13Забыл добавить хотя запрос пустой или не полный в arh_rep данные присутствуют.

Ох

Зачем вы спрашиваете совета на форуме, если не пытаетесь ими воспользоваться???????

Код: plaintext
Mconn.Execute ("INSERT INTO arh_rep SELECT Adding.* FROM Adding IN '"+Имя_файла+"' WHERE (((Adding.KodKv)=" + Номер + "));")
...
Рейтинг: 0 / 0
01.04.2010, 14:13
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555512
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrey13Скорее всего я туплю, но не могу понять не как я могу скопировать данные из других баз неподключаясь к ним при помощи коннекта "Ca".

Перечитайте топик, ответы уже давались
- через связанную таблицу
- через собирающее представление
- через указание имени файла в запросе

Почему у вас не вызывает вопроса ваша же собственная строка, где вы с помощью одного коннекта работаете с двумя файлами??
Код: plaintext
1.
Ca.Execute ("INSERT INTO arh_rep IN'" + App.Path + "\Data\kvartplata.amd' SELECT Adding.* FROM Adding WHERE (((Adding.KodKv)=" + Номер + "));")

Andrey13Пожалуйста, давайте по порядку.
1. Что бы скопировать данные из однорй БД1 в друю БД0(исходную) я должен ОБЯЗАТЕЛЬНО подключиться к БД1?

нет

Andrey132. Что бы программа продолжала работать подключение к БД0 должно оставаться активным,

нет
...
Рейтинг: 0 / 0
01.04.2010, 14:16
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555534
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
если не указать в Execute какой коннект как VB узнает откуда брать таблицу Adding?
Код: plaintext
SELECT Adding.* FROM Adding
...
Рейтинг: 0 / 0
01.04.2010, 14:23
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555543
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrey13если не указать в Execute какой коннект

А как вы в execute сможете не указать коннект? примерчик плиз
...
Рейтинг: 0 / 0
01.04.2010, 14:25
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555569
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
и я о том жэ. так какой коннект должен быть в execute? к БД1(исходной) ?
если да то его надо создать. я и подключаюсь каждый раз к новой БД(J) что бы из нее забрать данные.
Вопрос в том обязательно ли закрыать при этос коннект к БД0(основной) в которой и лежит
таблица arh_rep? если нет то почему не работает?
...
Рейтинг: 0 / 0
01.04.2010, 14:32
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555578
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Да к любой БД вы можете коннектиться, а к остальным обращаться через IN "+Имя_файла+"

Судя по тому, что архивов много, а базовый файл один, к нему и коннектитесь ЕДИНСТВЕННЫМ коннектом.
...
Рейтинг: 0 / 0
01.04.2010, 14:34
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555581
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
или будет работать и так:

Mconn.Execute ("INSERT INTO arh_rep IN'" + App.Path + "\Data\kvartplata.amd' SELECT Adding.* FROM App.Path + "\Data\Имя базы.Adding WHERE (((Adding.KodKv)=" + Номер + "));")
...
Рейтинг: 0 / 0
01.04.2010, 14:35
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555598
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrey13или будет работать и так:

Mconn.Execute ("INSERT INTO arh_rep IN'" + App.Path + "\Data\kvartplata.amd' SELECT Adding.* FROM App.Path + "\Data\Имя базы.Adding WHERE (((Adding.KodKv)=" + Номер + "));")

Не будет.
Я уже написал, как будет, вы ответы вообще читаете?
...
Рейтинг: 0 / 0
01.04.2010, 14:38
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555599
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
Тогда ошибка в самом запрое?
можно явно указать путь к базе в SELECT Adding.* FROM?
Только как это сделать (в смысле после имени базы . или !...) и как будет и будет ли работаь WHERE?
...
Рейтинг: 0 / 0
01.04.2010, 14:38
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555603
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrey13Тогда ошибка в самом запрое?
можно явно указать путь к базе в SELECT Adding.* FROM?
Только как это сделать (в смысле после имени базы . или !...) и как будет и будет ли работаь WHERE?

Перечитайте топик, вы пропускаете ответы через один
...
Рейтинг: 0 / 0
01.04.2010, 14:39
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555628
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
Ох

Зачем вы спрашиваете совета на форуме, если не пытаетесь ими воспользоваться???????

Код: plaintext
Mconn.Execute ("INSERT INTO arh_rep SELECT Adding.* FROM Adding IN '"+Имя_файла+"' WHERE (((Adding.KodKv)=" + Номер + "));")
[/quot]

только появился у меня на экране.
если получитсясделать так то свою ошибку понял.
Спасибо.
...
Рейтинг: 0 / 0
01.04.2010, 14:48
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555659
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
Скажите пожалуйста Ваше мнение
многократное
Mconn.Execute ("DELETE arh_rep.* FROM arh_rep")
а затем добавление данных в arh_rep. Будет вызывать необходимость переодического обслуживания базы access т.е. сжаитя?
Спасибо.
...
Рейтинг: 0 / 0
01.04.2010, 14:56
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555667
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrey13Скажите пожалуйста Ваше мнение
многократное
Mconn.Execute ("DELETE arh_rep.* FROM arh_rep")
а затем добавление данных в arh_rep. Будет вызывать необходимость переодического обслуживания базы access т.е. сжаитя?
Спасибо.

Нет

То есть база расширится до определенного объема, но потом расширяться перестанет
...
Рейтинг: 0 / 0
01.04.2010, 14:58
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555671
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Вы еще, кстати, подумайте, а нужно ли вообще гонять туда-сюда данные, особенно большой объем? Может просто сделать объединяющий запрос и выбирать из него? Не нужно будет ничего удалять и копировать.
...
Рейтинг: 0 / 0
01.04.2010, 14:59
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555706
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
пока не умею.

дайте если не сложно пример обдъеденяющего запроса. в MSDN на саете у меня не работает скролинк и виснет комп.
надо собрать данные из N-го количества баз с таблиц с одинаковой структурой. В таблицеесть одно поле ключ повторения не допускаються, а они неизбежны если соеденять таблицы.
спасибо.
...
Рейтинг: 0 / 0
01.04.2010, 15:08
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36555796
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrey13пока не умею.

дайте если не сложно пример обдъеденяющего запроса. в MSDN на саете у меня не работает скролинк и виснет комп.
надо собрать данные из N-го количества баз с таблиц с одинаковой структурой. В таблицеесть одно поле ключ повторения не допускаються, а они неизбежны если соеденять таблицы.
спасибо.

Вы патологически пропускаете сообщения. Еще раз прошу перечитать топик, так как именно этот пример я давал.

С ключом - можно использовать формулы.
К примеру, если у вас не больше ста таблиц в архиве:
Код: plaintext
OldKey* 100 +N AS NewKey
Где N - номер архивной таблицы
...
Рейтинг: 0 / 0
01.04.2010, 15:28
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36558742
Фотография Andrey13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey13
Участник
Shocker.Pro огромное Вам спасибо, проблему решил.
Действительно достаточно одного коннекта.
Если кому поможет вот он:

Код: plaintext
Mconn.Execute ("INSERT INTO arh_rep SELECT Adding.* FROM Adding IN '" + App.Path + "\Data\arhiv\" + strSur + "' WHERE (((Adding.KodKv)=" + Номер + "));")
...
Рейтинг: 0 / 0
02.04.2010, 20:12
| Ответить | Цитировать | Написать  
ADO - Как убедиться что Execute отработал
    #36558757
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Жаль, что вняли совету только дойдя до второй страницы, но, тем не менее
Всегда пожалуйста
...
Рейтинг: 0 / 0
02.04.2010, 20:25
| Ответить | Цитировать | Написать  
22 сообщений из 47, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADO - Как убедиться что Execute отработал
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36555543&tid=2159982]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 228ms
total:  359ms
созд. / загр.: 359ms
x
x
Закрыть


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