Вопрос : Самая лучшая дорога скопировать показатель SQL using VB6

Hi специалисты, потребность
I мочь дублировать показатель в datatable после этого изменяют одно поле к по-разному value.
I am using это, но процесс принимает довольно долгое время.  Таблица раскрына как показан.  Это сделано раз в начале встречи.  Оператор выполняет действия где показатели добавлены к таблице.  Действие может добавить несколько новые рекорды, и после того как я основаны на входном сигнале оператора (несколько после того как первоначально показатели созданы), те показатели могут быть дублированным.  Дублирование нельзя сделать at the same time as творение показателей должных к work-flow оператора.  Дублированным показателям нужно иметь одно поле измененное к различному значению.  Это все работает, но командование .MOVENEXT принимает навсегда двигая за последним нашл показатель.  Также командование .FILTER принимает промежуток времени для того чтобы завершить.  Это datatable имеет близко к 1 миллиону показателям.  Я добавлял испытание прежде чем .MOVENEXT, котор нужно предотвратить его от пытаться двинуть за концом ых показателей, но то кажутся «громыхающий».  Все мысли? class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29:

class= " id= " codeSnippet822148 Open таблица: Установите rsResponses = новое ADODB.Recordset С rsResponses .CursorLocation = adUseServer .CursorType = adOpenForwardOnly .LockType = adLockOptimistic . Раскройте sCont, dbData, adCmdText Закончитесь с Дублируйте ые показатели, изменяя поле ProfID: sCont = «ProfID =» & lOrgID С rsResponses . Фильтр = sCont Сделайте пока не .BOF и не .EOF lQuestID =. Поля («QuestID») lAnsID =. Поля («AnsID») sComments =. Поля («комментарии») sGC =. Поля («GroupCode») sCont = «УСТАНОВИЛО NOCOUNT ДАЛЬШЕ; ВСТАВКА В» & sTDResponses & «(QuestID, MagID, ProfID, AnsID, комментарии, GroupCode)» _ & «ЗНАЧЕНИЯ (" & lQuestID & «,» & lMagID & «,» & lNewID & «,» & lAnsID & «,» _ & ««» & sComments & «», ««& sGC &» ") « Установите rsTemp = dbData.Execute (sCont) Установите rsTemp = ничего .MoveNext Петля . Фильтр = "" Конец с

class=

Ответ : Самая лучшая дорога скопировать показатель SQL using VB6

О'КЕЙО - оно не имеет значение что источник и назначение этим же.  

вставка в myTable
(QuestId, MagId, ProfId, AnsId, комментарии, GroupCode)
Отборное QuestId, MagId, «новое значение для ProfId» как ProfId, AnsId, комментарии, GroupCode
от
myTable T2
где T2.IsNew = 1    -- очевидно, subsitute ваша собственная логика в где клаузула

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