Comment faire un SQL Update via Ado ...Résolu

Question

Bonjour,



J'arrive &#224; faire un SELECT avec ADO mais quand je fais une commande
Update, j'obtiens une r&#233;ponse "TABLE OU VUE INCORRECTE" pourtant dans
Sqlplus &#231;a va donc je pense que j'ai merd&#233; dans le code mais o&#249; ...
c'est l&#224; que j'ai besoin de l'avis d'un grand maitre du vb ;o)



Merci &#224; tous

...

rsResult.Close

Label4.Caption = "Etape finale"

Label3.Caption = ""

Label2.Caption = "Veuillez patienter pendant que le programme formate les donn&#233;es"

DoEvents

msg = "17"

SQL "UPDATE honorair SET type_chambre 'NA' WHERE type_chambre = ' '"

Call ExecSQL(SQL, rsResult, cmdADO)



' Proc&#233;dure d'&#233;x&#233;cution d'une commande SQL

Public Sub ExecSQL(sSQL As String, rsADOExec As ADODB.Recordset, ado As ADODB.Command)

    If sSQL <> "" Then

        ado.CommandText = sSQL

        rsADOExec.CursorLocation = adUseClient

        rsADOExec.CursorType = adOpenDynamic

        rsADOExec.LockType = adLockOptimistic

        rsADOExec.Open ado ==> SE PLANTE ICI

        ado.CommandText = ""

    End If

End Sub

cs_Jack · Accepted Answer

Salut
Parce que la m&#233;thode rst.Open ne fonctionne qu'avec un Select, c'est normal puisque tu lui demandes de r&#233;cup&#233;rer une s&#233;rie d'enregistrements.
Pour les commandes Delete ou Update, il faut utiliser
maConnexion.Execute maRequ&#232;te, maVar
et il te renverra dans maVar le nombre d'enrtegistrements touch&#233;s par ta commande.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_CharlEm · Answer

Bonjour,



Merci pour la r&#233;ponse, je comprend maintenant pourquoi &#231;a ne fonctionne
pas mais je dois avoir mal adapt&#233; mon code car il me dit "Table ou vue
inexistante".



Dim SQL As String

Public objADO As New ADODB.Connection

Public cmdADO As New ADODB.Command

...

objADO.Open "Provider=MSDAORA.1;Password=xxx;User ID=corfac;Data Source=corf"

cmdADO.ActiveConnection = objADO

...

SQL "UPDATE honorair SET type_chambre 'NA' WHERE type_chambre = ' '"

cmdADO.CommandText = SQL

cmdADO.Execute SQL ==> se plante ici

...



Moulte merci

cs_CharlEm · Answer

Non mea culpa c'est moi qui avait fait une f&#244;te d'ourtaugraffe .



Encore merci Jack

Comment faire un SQL Update via Ado ...

3 réponses

Discussions similaires