Скрипт ввода данных в БД / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скрипт ввода данных в БД

3 сообщений из 3, страница 1 из 1

Скрипт ввода данных в БД

#37646396

bubek

Гость

Приветствую господа знатоки!

Дайте пожалуйста кусок кода SQL (запрос), который записал бы элементы LIstbox'а в базу данных. ADODC Recordset очень долго это делает. Вот мой кусок из VB. Спасибо!!!!

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.

For i = 0 To Adodc1.Recordset.RecordCount - 1
If Trim(Adodc1.Recordset("num")) = Val(lstSold.List(j)) Then

Adodc1.Recordset("agent") = cmbAgent.Text
Adodc1.Recordset("datesold") = Date
Adodc1.Recordset("price") = txtPrice
Adodc1.Recordset("status") = "1"
Adodc1.Recordset("agreement") = "NO"
       
If chkCash.Value = Checked Then
   Adodc1.Recordset("nodebt") = 1
ElseIf chkNoCash.Value = Checked Then
   Adodc1.Recordset("fulldebt") = 1
End If
   Exit For
End If
   Adodc1.Recordset.MoveNext
Next i
Next j

Модератор: Тема перенесена из форума "MySQL".

...

Рейтинг:

0 / 0

03.02.2012, 19:00

| Ответить | Цитировать | Написать

Скрипт ввода данных в БД

#37646672

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Из этого куска кода нифига неясно, что и как надо писать и куда.
А очень долго - это может потому, что алгоритм кривой и по сто раз во вложенном цикле одно и то же делает?

В общем, вместо куска кода излагай лучше, что требуется.

...

Рейтинг:

0 / 0

03.02.2012, 23:52

| Ответить | Цитировать | Написать

Скрипт ввода данных в БД

#37646695

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

В приведенном коде ЭЛЕМЕНТЫ Листбокса нигде НЕ ЗАПИСЫВАЮТСЯ в БД.
Если предположить, что внешний цикл, который тут не приведен, это перебор листбокса, то действительно получается, что для КАЖДОГО элемента листбокса идет ПОЛНЫЙ перебор рекордсета. Так что это неbubekADODC Recordset очень долго это делает, а автор данного алгоритма очень долго это делает.

Ну а в целом всю эту конструкцию заменит один-единственный sql-запрос типа:

Код: sql

1.
2.
3.

UPDATE MyTable
SET agent=..., datesold=..., status='1', agreement='NO'
WHERE num IN (список номеров через запятую);

...

Рейтинг:

0 / 0

04.02.2012, 00:22

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скрипт ввода данных в БД

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=86&tid=2158094]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	28ms
get topic data:	12ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	340ms

total:	460ms