Discussion :

[Tragnee]

Bonjour à tous,

pour gagner en performance, j'ai décidé de migrer vers PostgreSQL.

J'ai fait un script simple pour teste et apparement, j'ai loupé une étape... Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
<% 
    set conn = Server.CreateObject("ADODB.Connection")
    conn.ConnectionString= "DRIVER={PostgreSQL};SERVER=127.0.0.1;port=6986;DATABASE=Nordi_Site6;UID=postgres;PWD=test;"
    conn.Open
 
    Req = "SELECT * from acces"
 
    set rs = Server.CreateObject("ADODB.Recordset")
    rs.open Req, conn, adOpenDynamic, adLockOptimistic
 
    while not rs.eof
 
        response.Write(rs("accesnumauto") & " - " & rs("accesnumusers") & " - " & rs("accesip"))
        response.write("<br>")
 
        rs("transit") = "OK"
        rs.update
 
        rs.movenext
    wend
 
 
%>

J'ai des soucis au niveau du rs.open : si je ne mets pas les parametres de curseur et de bloquage, il me fait mon affichage mais ne modifie pas... Avec les paramètres, il me dit : "
ADODB.Recordset
error '800a0bb9'
Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres.
/Test/index.asp, line 17" (Ligne 17 = rs.open...)


Qui peut m'aider car là, je ne trouve pas de solution sur Google...


Merci beaucoup,
Mike

[mael94420]

J'ai ce soucis quand ma table est vide, est ce le cas pour toi?
sinon essaye de remplacer adOpenDynamic, adLockOptimistic par 3, 3 mais bon ca ne devrai rien changer.
je ne voi pas d'autre solution que la table vide.

[Tragnee]

La table n'est pas vide !!!
J'ai essayé 3,3 et j'ai l'erreur :

[FONT=Arial]Microsoft OLE DB Provider for ODBC Drivers[/FONT] [FONT=Arial]error '80004005'[/FONT]
[FONT=Arial]ERROR: column "oid" does not exist[/FONT]
[FONT=Arial]/Test/index.asp[/FONT][FONT=Arial], line 17[/FONT]




[FONT=Arial]As-tu une idée pour cette erreur-ci ???[/FONT]


[FONT=Arial]Merci en tout cas de ton aide...
[/FONT]

[Immobilis]

Ceci marche très bien chez moi (SQL Server)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Dim rs
 Set rs = server.CreateObject("adodb.recordset")
  rs.CursorLocation = 3
  rs.CursorType = 1
  rs.LockType = 3
  rs.open "SELECT * FROM [MATABLE];", objConn
   While not rs.eof
     response.Write(rs("MONCHAMP1")) 
     rs("MONCHAMP2") = "TOTO"
     rs.update
     response.Write(" - " & rs("MONCHAMP2") & "<br>" + Chr(13) + Chr(10))
    rs.movenext
   wend
  rs.close
 Set rs = nothing

A+

[Tragnee]

C'est bien ce qu'il me semblait... le souci vient de la DB PostgreSQL qui est plus orientée "requetes UPDATE..." que recordset.update...

Merci de ton aide,
Michael

[Immobilis]

UPDATE est aussi très pratique: http://www.w3schools.com/sql/sql_update.asp

[Tragnee]

Je sais bien que UPDATE est bien pratique mais là, l'application fait plusieurs milliers de lignes de code et mon associé avait commencé avec les recordset.update...

===> on n'a pas envie de changer !!!

Solution choisie : passer à SQL server !!

[Immobilis]

Pas forcement car mm si les deux sont possibles sous SQL Server, j'ai du modifier certaines requetes (INSERT) qui utilisaient recordset.addnew car je n'arrivai pas à récupérer l'ID auto.

Changer de BD me semble une solution bien moins pratique que de changer quelques lignes de script.

A+

[Tragnee]

Je me doute bien mais les quelques lignes de code se chiffrent en dizaines de milliers de lignes et donc, on va d'abord essayer avec SQL Serveur...