[R] Récupérer des données d'une requête SQL

[VoLCoM20]

Bonjour,

Je cherche à récupérer un résultat d'une requête SQL. J'ai déjà réussi à faire fonctionner ce code mais l'à rien ne fonctionne. C'est pourtant si simple, mais j'ai vraiment besoin de votre aide.

Code : Tout sélectionner

$constrim="DRIVER={SQL Server};SERVER=***;DATABASE=***;uid=***;pwd=***;"
$adCN = ObjCreate ("ADODB.Connection")
$adCN.Open ($constrim)

if @error Then
    MsgBox(0, "ERROR", "Failed to connect to the database")
    Exit
Else
    MsgBox(0, "Success!", "Connection to database successful!")
EndIf

$sQuery = "SELECT ProjctID, ShortProjectName, ResponsibleID, PLastName, PFirstName, CUSTNAME FROM ... WHERE ProjctID = '110'"

$result = $adCN.Execute($sQuery)
MsgBox(0, "", $result.Fields("PFirstName").Value)

$adCN.Close
 

Message d'erreur :


Merci pour votre aide !

[jchd]

Est-ce ProjctID = '110' ou ProjctID = 110 ou ProjectID = '110' ou ProjectID = 110 ?

Sinon, remplace
$result = $adCN.Execute($sQuery)
par
$result = $adCN.Open($sQuery)

[VoLCoM20]

C'est bien ProjctID = '110'

Le remplacement pour : $result = $adCN.Open($sQuery) ne fonctionne pas.

Merci.

[jchd]

Utiliser un gestionnaire d'erreur COM. Le test If @error ne marche pas sur un objet.

[VoLCoM20]

Avec les erreurs COM, j'obtient le même résultat.



Sinon, il y a une autre façon de faire une requête SQL ?

Merci.

[VoLCoM20]

Problème réglé !
Je vous confirme que le code fonctionne. Le problème était dans la requête.

Merci

[jguinch]

Si le problème est résolu, merci de passer le titre du premier message en [R]

[Jerome]

Coucou,

Je pense que cet UDF, présent sur le site anglais d'autoit, et que j'ai beaucoup utilisé, vous aidera
Exemple :

► Afficher le texte

Code : Tout sélectionner

$oADODB = _SQL_Startup()

    If $oADODB = $SQL_ERROR then
        exit

    EndIf


    If _sql_Connect(-1,"Server/ip","database","login","pass") = $SQL_ERROR then

        _SQL_Close()
        Exit
    EndIf

    Local $aData,$iRows,$iColumns
    $sql_query = _SQL_GetTable2D(-1,"SELECT * FROM data",$aData,$iRows,$iColumns)
    $LieuString = ""
    For $i = 1 to UBound($aData) - 1 ; stock des infos dans la listview provenant de la requete de select.
        ;script
    Next

    $requete = "INSERT INTO haha VALUES ('ho')"

    If _SQL_Execute(-1, $requete) = $SQL_ERROR then

        $err = _SQL_GetErrMsg()
EndIf

    _SQL_Close()

Jérôme