class= " lineNumbers " de
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= de
class= " de l'id= le " codeSnippet822148 de Open la table :
Placer les rsResponses = nouvel ADODB.Recordset
Avec des rsResponses
.CursorLocation = adUseServer
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
. Ouvrir le sCont, dbData, adCmdText
Finir avec
Reproduire les disques trouvés, changeant le champ de ProfID :
sCont = « ProfID = » et lOrgID
Avec des rsResponses
. Filtre = sCont
Faire tandis que pas .BOF et pas .EOF
lQuestID =. Champs (« QuestID »)
lAnsID =. Champs (« AnsID »)
sComments =. Champs (« commentaires »)
sGC =. Champs (« GroupCode »)
le sCont = « A PLACÉ NOCOUNT DESSUS ; INSERTION DANS » et sTDResponses et « (QuestID, MagID, ProfID, AnsID, commentaires, GroupCode) » _
et « VALEURS (" et lQuestID et « , » et lMagID et « , » et lNewID et « , » et lAnsID et « , » _
et « « » et sComments et « », « « et sGC et » ") «
Placer le rsTemp = le dbData.Execute (le sCont)
Placer le rsTemp = rien
.MoveNext
Boucle
. Filtre = ""
Extrémité avec
|
