erreur avec un recordset et une insertion.

[Phiss]

Bonjour,

voila mon problème.
J'ai un accès à une base de données sql server a effectué et pour cela j'utilise

Code :

1
2
3
4
5
6
7
8
9
10
SQLQuery = "SELECT * FROM table WHERE Id=" & id
       With RSupdate
        .Open SQLQuery, DBTmpConnect, 2, 3, &H0001
        .Fields("Qte") = avoirQte
        .Fields("Stock") = avoirQte
        .Fields("MontantTTC") = avoirQte * .Fields("PrixUTTC")
        .Update
       End With
       RSupdate.Close
       Set RSupdate = Nothing

Le souci est que cela ne marche pas avec sql server alors que cela tournait avec access?
Est ce que cela est une coincidence ou cela vient réellement de ça?

[Mateache]

C'est quoi que tu as une erreur ou simplement que la mise à jour ne se fait pas ?

Enfin moi je te conseillerai de faire plutot :

Code :

DBTmpConnect.execute("UPDATE table SET Qte=" & avoirQte & ", Stock=" & avoirqte & ", MontantTTC=" & avoirqte*rsupdate("PrixUTTC") & " WHERE ID=" & id & " ")

[Phiss]

C'est sur cette solution que j'étais partit.
Le seul problème c'estq ue j'ai plus de 1000 accès à ma base comme ça.
L'exemple ci dessus était un cas parmis d'autre

Sinon niveau erreur j'ai ça

Code :

1
2
3
4
 
Microsoft OLE DB Provider for ODBC Drivers erreur '80004005' 
 
[Microsoft][SQL Native Client][SQL Server]Impossible de trouver le serveur '' dans sysservers. Exécutez sp_addlinkedserver pour ajouter ce serveur à sysservers.

[Mateache]

Dans d'autre cas ta connexion marche ou pas ?

Et l'ouverture du recordset avec cette connexion elle marche ou pas ?

[Phiss]

L'ouverture marche mais pas l'insertion ou la mise à jour.
C'est bien ça mon problème.

Et en plus ils bugguent tous.
J'ai déjà commencé à modifier mes connections mais vu le temps que j'y ais passer et ce qui me reste a faire je me disais qu'il y avai peut être un autre moyen.

[Mateache]

c'est peut etre dans les paramètres de ton ouverture moi je fais rs.open SQL,conn,1,3 essaye comme ca

[pc75]

Il ne manquerai pas un Edit ou un AddNew ?

[Phiss]

bon je n'ai peut être pas mis le bon exemple.
En voilà un autre.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Set RSinsert = Server.CreateObject("ADODB.Recordset")
     With RSinsert
      .Open table, cnn, 2, 3, &H0200
      .AddNew
      .Fields("Date") = date
      .Fields("TVA") = 19.6
      .Fields("NetTTC") = 120
      .Fields("ModeReglement") = "CB"
      .Update
     End With
     RSinsert.Close
     Set RSinsert = Nothing

[Mateache]

et quand tu fais ca , ca te fais l'erreur que tu m'as mis plus haut ?

Parce que la je ne vois pas d'erreur c'est surement un problème dans ta connexion .

[Pymm]

Je pencherai également pour un problème de connexion
certaines traitement necessites paramètres(verrou,...) particuliers
pitite question : c'est quoi le

&H0200

?

[Mateache]

Oui je me demandait aussi ce que c'est que ce &H0200 ou &H0001 que tu met en fin d'ouverture de ton Recordset.