VBScript Modifier une table dans une bdd Résolu

Question

Bonjour &#224; tous!

J'ai un petit probl&#232;me en VBScript, je voudrais modifier une table dans une base de donn&#233;es Access. J'ai donc &#233;crit le code suivant:

Dim sage
    Dim db
    Dim req
    Dim rst1
    Dim rst2
    Dim rst3
    
    Set sage = CreateObject("ADODB.Connection")   
    sage.Open "SageGescoTD", "Bruno", "max"   'La je me connecte &#224; une source de donn&#233;es ODBC issue d'un logiciel de gestion commerciale
    
    Set db = CreateObject("ADODB.Connection")
    db.Open "Provider=microsoft.jet.oledb.4.0 ; data source= C:\MaBase.mdb" 

    Set rst1 = CreateObject("ADODB.Recordset")
    req = "DELETE Tbl_FComptet.* FROM Tbl_FComptet"
    rst1.Open req, db
    
    Set rst3 = CreateObject("ADODB.Recordset")
    rst3.Open "SELECT F_COMPTET.* FROM F_COMPTET", sage
    
    Set rst2 = CreateObject("ADODB.Recordset")
    rst2.Open "Tbl_FComptet", db
    
    While Not rst3.EOF
        rst2.AddNew
        rst2("BT_NUM") = rst3("BT_NUM")
        rst2("CA_NUM") = rst3("CA_NUM")
        rst2("CBCREATEUR") = rst3("CBCREATEUR")
        rst2("CBMODIFICATION") = rst3("CBMODIFICATION")
        rst2("CBREPLICATION") = rst3("CBREPLICATION")
....

Mon probl&#232;me vient du rst2.AddNew, j'ai un erreur me disant que l'objet "ADODB.Recordset" ne permet pas de faire de mise &#224; jour.

J'aurais bien &#233;crit une requ&#234;te du type "INSERT INTO" mais comme mes tables viennent de deux sources diff&#233;rentes je sais po comment faire

Si quelqu'un pouvait m'aider... PLEASE!

cs_wape · Answer

Bonjour,

Essaye qqch du genre :

(...)
Set rst2 = CreateObject("ADODB.Recordset")
rst2.CursorType = 1 '1:adOpenKeyset
rst2.CursorLocation = 3 '3:adUseClient
rst2.LockType = 3 '3:adLockOptimistic
rst2.Open "SELECT * FROM Tbl_FComptet", db

While Not rst3.EOF
    rst2.AddNew
    rst2("BT_NUM") = rst3("BT_NUM")
    rst2("CA_NUM") = rst3("CA_NUM")
    rst2("CBCREATEUR") = rst3("CBCREATEUR")
    rst2("CBMODIFICATION") = rst3("CBMODIFICATION")
    rst2("CBREPLICATION") = rst3("CBREPLICATION")
(...)

wape

Simouss33 · Answer

Merci bien wape, cela m'a &#233;t&#233; tr&#232;s utile.
Cela dit en passant, j'ai remarqu&#233; qu'on pouvait &#233;conomiser quelques lignes en faisant

rst2.Open "SELECT * FROM Tbl_FComptet", db, 2, 3

En tout cas merci pour ton aide.

Simouss33 · Answer

Merci bien wape, cela m'a &#233;t&#233; tr&#232;s utile.
Cela dit en passant, j'ai remarqu&#233; qu'on pouvait &#233;conomiser quelques lignes en faisant

rst2.Open "SELECT * FROM Tbl_FComptet", db, 2, 3

En tout cas merci pour ton aide.

VBScript Modifier une table dans une bdd

3 réponses

Discussions similaires