Discussion :

[AITOZ]

Bonjour,

J'ai d'un coté un serveur avec SQL server 2000 dessus et de l'autre sur des postes client j'ai une application en VB.NET.
J'ai sur le serveur, une procédure stockée avec un serveur lié et des paramètres.

Sur le serveur, quand j'EXEC la procédure avec les paramètres, ca fonctionne tres bien. mais depuis le programme client en VB.NET ca ne fonctionne pas.

J'ai beaucoup de transactions dans ce genre dans mon programme et elles fontionne toutes très bien. A la seule déffiérence avec celui-ci, c'est que la procédure stockée fait référence à un serveur lié.

Voici le code coté procédure stockée :
ALTER PROCEDURE ps_sgsa_suivifourrecep

@T1 VARCHAR(40),
@T2 VARCHAR(40)

AS
SELECT re_four, re_rfou, re_code, re_comm, re_lign, re_arti, re_desi, re_nbre, re_qrst, re_uqte, re_ctva, re_pcde, re_upri, re_prht
FROM PFLEX...GPRECEPT AS GPRECEPT_1
WHERE (re_rfou BETWEEN @T1 AND @T2)
ORDER BY re_four, re_rfou

et voici le code coté poste client :
'Définition de l'objet SqlCommand
Dim Dc_SuiviFour As New SqlClient.SqlCommand
Dim Da_SuiviFour As New SqlClient.SqlDataAdapter(Dc_SuiviFour)
Dim Ds_SuiviFour As New DataSet
Dim MyEtat As SGSA.SC_ST_SuiviRecFour
Dim Y As Integer

'Ouverture de la connexion
SqlConnection1.Open()

Dc_SuiviFour.Parameters.Add(New SqlClient.SqlParameter("@T1", SqlDbType.VarChar, 40)).Value = T1
Dc_SuiviFour.Parameters.Add(New SqlClient.SqlParameter("@T2", SqlDbType.VarChar, 40)).Value = T2

With Dc_SuiviFour
.Connection = SqlConnection1
.CommandType = CommandType.StoredProcedure
.CommandText = "ps_sgsa_suivifourrecep"
End With

Da_SuiviFour.Fill(Ds_SuiviFour)

Si quelqu'un à une idée ?

[m-mas]

Bonjour et bienvenu !

Essai d'utiliser les balises adéquates STP pour que ceci soit plus lisible !!

Sinon, est ce qu'il y a des messages d'erreurs (j'imagine qui non) à première vu je pense que c'est un problème VB.NET et non un problème SQL Server !!

Essai avec ce code :

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
 'Définition de l'objet SqlCommand
Dim Dc_SuiviFour As New SqlClient.SqlCommand
'--modif ici
Dim Da_SuiviFour As  SqlClient.SqlDataAdapter
Dim Ds_SuiviFour As New DataSet
Dim MyEtat As SGSA.SC_ST_SuiviRecFour
Dim Y As Integer
 
'Ouverture de la connexion
SqlConnection1.Open()
 
Dc_SuiviFour.Parameters.Add(New SqlClient.SqlParameter("@T1", SqlDbType.VarChar, 40)).Value = T1
Dc_SuiviFour.Parameters.Add(New SqlClient.SqlParameter("@T2", SqlDbType.VarChar, 40)).Value = T2
 
With Dc_SuiviFour
           .Connection = SqlConnection1
           .CommandType = CommandType.StoredProcedure
           .CommandText = "ps_sgsa_suivifourrecep"
End With
 
'--ajout ici
Da_SuiviFour = New SqlClient.SqlDataAdapter(Dc_SuiviFour)
 
Da_SuiviFour.Fill(Ds_SuiviFour)

[SQLpro]

dans quel contexte d'utilisateurs et privilèges SQL s'exécute le code client VB ? Quels sont les utilisateurs et privilèges d'exécution sur le serveur lié ???
Vous pouvez aussi utiliser la délégation de privilèges pour l'exécution distante.

A +