Discussion :

[M.Zip]

bonjour a tous,

est-ce possible de faire plusieurs insertion de suite avec le mm recordset, du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set oRst = New ADODB.Recordset
oRst.CursorType = adOpenKeyset
oRst.Open "MaTable", conn, adOpenKeyset, adLockOptimistic, adCmdTable
 
do while (fin du fichier à lire)
  oRst.AddNew
  MaValeur1 = ligne du fichier
  oRst("MonChamp1") = MaValeur1
  ...
loop
 
oRst.Update
oRst.Close
Set oRst = Nothing

afin de ne faire qu'une seule écriture sur la base ?

Merci d'avance...

[Gwenn]

Salut,

aucune idee, faut essayer :o

j'aurai plutot fait une fonction Insert, qui execute une instruction SQL "INSERT INTO", execute avec une objet command, que j'aurai appelé autant de fois que necessaire

[roots_man]

Essaie ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
<%set rst = Server.CreateObject("ADODB.RecordSet")
rst.open "asdf", "asdf", 2, 3, 2
rst.AddNew
rst("MonChamps1")= "valeur"
rst("MonChamps2") = "valeur"
rst.upadte
 
rst("MonChamps1")= "valeur2"
rst("MonChamps2") = "valeur2"
rst.upadte
 
rst.close%>

Je ne suis pas sur mé je crois ke ca doit fonctionner

redis-nous comment.

[M.Zip]

j'ai 14000 ligne à insérer dans ma base alors je ne vais pas m'amuser à appeler 14000 fois ma fonction qui va se connecter/déconnecter 14000 fois.

Mais je vais essayer le reste. Merci

[thor22]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set oRst = New ADODB.Recordset 
oRst.CursorType = adOpenKeyset 
oRst.Open "MaTable", conn, adOpenKeyset, adLockOptimistic, adCmdTable 
 
do while (fin du fichier à lire) 
  oRst.AddNew 
  MaValeur1 = ligne du fichier 
  oRst("MonChamp1") = MaValeur1 
  ... 
  oRst.Update 
loop 
 
oRst.Close 
Set oRst = Nothing

Le "oRst.Update" exécute la commande.
Il faut donc la mettre dans la loop pour faire plusieurs insertions.
En toute logique en tout cas...
Pas testé.