Discussion :

[tibofo]

Bonjour,

j'essaie de réaliser ma toute première appli pour lire une base SQL Server 2008 en ADO.
J'ai trouvé dans les tutoriels, un guide super et j'ai essayé de le suivre.
Mais j'ai une erreur lors de la lecture de la requête SQL.

« Erreur d'exécution '3001': l'application utilise les arguments qui sont de type incorrect, sont hors de plage acceptable ou sont en conflit avec un autre. »

Voici mon code qui est divisé en 3 boutons commandes :
le premier pour établir la connexion
le 2ème pour faire la requête
le 3ème pour fermer la connexion

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
25
26
 
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
 
NomUtilisateur = "sa"  
MotDePasse = "lemien"
NomServeur = "SRV_SQL\I08"
NomBaseDeDonnées = "BIJOU"
cnx.ConnectionString = "UID=" & NomUtilisateur & ";PWD=" & MotDePasse & ";" & "DRIVER={SQL Server};Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"
 
cnx.Open 
 
'  XXXXX deuxième bouton
Dim rst As New ADODB.Recordset
rst.Open "SELECT CT_NUM FROM F_COMPTET", cnx 
rst.MoveLast
rst.MoveFirst
 
While Not(rst.EOF)
  MsgBox rst("CT_NUM")
  rst.MoveNext
Wend
 
 
' Troisième bouton
rst.Close

La même requête fonctionne sur mon Sql Management Studio et avec la même connexion (sa)

Dans mon projet, j'ai les références suivantes :
Visual Basic For Applications
Visual Basic runtime objects and procedures
Visual Basic objects and procedures
OLE automation
Microsoft ActiveX Data Objects 2.7 Library

(j'ai essayé en remplacçant par le 2.8 mais résultat identique)


Auriez-vous une idée ?

Merci

[sevyc64]

Hummm, je reconnais cette base et table, c'est du SAGE L100


Puisque tu es en SQL2008, essaye peut-être en changeant le paramètre driver dans la chaine de connexion :

Code :

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

Driver={SQL Server Native Client 10.0}

[tibofo]

J'ai, en partie trouvé, mais j'aimerais savoir si c'est possible ?

J'ai changé mon code : en regroupant tout sur 1 seul bouton et là, cela fonctionne !!


Mais j'aurais aimé garder mes boutons car j'aurais pu créer un bouton "select des tiers" , un bouton "select des écritures" ....

Est-ce possible de diviser mon code ou incompatible avec ADO ?

Merci d'avance

[tibofo]

Hummm, je reconnais cette base et table, c'est du SAGE L100

origine sud-ouest ? Bordeaux --> Sage ?

Yess man ! J'ai re-divisé en 3 boutons et tester avec la nouvelle déclaration = même erreur 3001.

Si je regroupe le code, cela remarche.

[OhMonBato]

Ca n'a peut etre aucun rapport mais avec l'extrait de code que tu donnes dans ton premier message, on ne voit pas à quel niveau sont faites tes déclarations puisque tu as omis de mettre les lignes de type

Code :

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

1
2
3
 
Private Sub Command1_Click()
End Sub

[sevyc64]

origine sud-ouest ? Bordeaux

Non, à coté de Pau

Sage ?

ex-intégrateur Sage sur L100 et L1000, en recherche d'emploi

Yess man ! J'ai re-divisé en 3 boutons et tester avec la nouvelle déclaration = même erreur 3001.

Si je regroupe le code, cela remarche.

Cela doit venir alors de ta connexion. La variable cnx, si elle n'est pas globale, ne sera connue que dans le premier bouton, pas dans le second.

[tibofo]

Merci pour l'idée :

Code :

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

Public cnx As ADODB.Connection

permet que cela fonctionne en 3 boutons !!

Merci encore