Procedure stocké VBnet Odbc Connection sqlserver2008

Version imprimable

Bonjour à tous,
Lors d'un appel de procedure stocké dans vbnet, j'ai le message : "La procedure 'EtatProc' attends le parametre '@Dta' qui n'a pa été fournis"
alors que je l'affecte comme suit:--------------merci de m'aider car je suis bloqué depuis quelques jours

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Dim mConnection As SqlClient.SqlConnection '===================
        ' Dim Mread As OdbcDataReader

        Dim paramKod As New OdbcParameter
        Dim paramMoi As New OdbcParameter
        Dim paramAns As New OdbcParameter
        Dim paramOp As New OdbcParameter
        Dim paramKiz As New OdbcParameter

        '**************
        Dim mConnection1 As Odbc.OdbcConnection
        Dim BurAdapter As Odbc.OdbcDataAdapter
        Dim SqlCom As Odbc.OdbcCommand
        '*********************
        Try
        
            '*********************---------------------------------
            mConnection1 = New Odbc.OdbcConnection

            mConnection1.ConnectionString = "DSN=ComptaEp"
            BurAdapter = New Odbc.OdbcDataAdapter
            SqlCom = New Odbc.OdbcCommand
            SqlCom.CommandType = CommandType.StoredProcedure

            mConnection1.Open()

            SqlCom.CommandText = "EtatProc"     'NomProc
            SqlCom.Connection = mConnection1
            BurAdapter.SelectCommand = SqlCom
        
            paramKod.ParameterName = "DtA"
            paramKod.Direction = ParameterDirection.Input
            paramKod.OdbcType = OdbcType.DateTime
            paramKod.Value = DateOp

            paramMoi.ParameterName = "KoD"
            paramMoi.Direction = ParameterDirection.Input
            paramMoi.OdbcType = OdbcType.Int
            paramMoi.Value = CodiK

            paramOp.ParameterName = "TypOp"
            paramOp.Direction = ParameterDirection.Input
            paramOp.OdbcType = OdbcType.Int
            paramOp.Value = TyOp

            paramKiz.ParameterName = "Kinz"
            paramKiz.Direction = ParameterDirection.Input
            paramKiz.OdbcType = OdbcType.Int
            paramKiz.Value = KenZ


            SqlCom.Parameters.Clear()

            SqlCom.Parameters.Add(paramKod)
            SqlCom.Parameters.Add(paramMoi)
            SqlCom.Parameters.Add(paramOp)
            SqlCom.Parameters.Add(paramKiz)

            BurAdapter.Fill(DseT, "OperationTT")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, My.Application.Info.ProductName)
        End Try

Merci de m'aider

13/03/2015, 10h10
François M.

Bonjour

Il manque les "@" dans les noms des paramètres.

Sinon, quelle drôle d'idée d'utiliser ODBC pour se connecter à Sql Server. Quelle est la raison de ce choix pour le moins saugrenu ?
13/03/2015, 10h43
boutax123

Procedure stocké VBnet Odbc Connection sqlserver2008

j'ai essayé avec parameter.name="@Dta" est c'est toujours la même erreur :la procedure attends @dta qui n'a pas été fournis

j'ai utilisé sqlconnexionstring mais quand j'accede le serveur via le reseau l'utilisateur n'est pas authentifié:serv\administrateur connexion refusé

alors je cherche tjrs une solution
merci de m'aider
13/03/2015, 10h46
François M.

Citation:

Envoyé par boutax123

j'ai essayé avec parameter.name="@Dta" est c'est toujours la même erreur :la procedure attends @dta qui n'a pas été fournis

j'ai utilisé sqlconnexionstring mais quand j'accede le serveur via le reseau l'utilisateur n'est pas authentifié:serv\administrateur connexion refusé

alors je cherche tjrs une solution
merci de m'aider

On a assez peu de chance de t'aider si tu donnes aussi peu d'information.
Chaine de connexion pour commencer ?

Et tu n'as pas répondu à ma question sur le choix saugrenu de ODBC.

Procedure stocké VBnet Odbc Connection sqlserver2008

Ok voici mon code avec sql connection
le problem avec ce code quand j'accede au serveur c'est l'utilisateur SERV\administrateur n'est pas authentifié:acces au refusé
c'est pourquoi j'ai utilisé ODBC
avec Odbc j'arrive à acceder dans ma base de donnée c'est pourquoi

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 Dim mConnection As SqlClient.SqlConnection
        Dim paramKod As New SqlParameter
        Dim paramMoi As New SqlParameter
        Dim paramAns As New SqlParameter
        Dim paramOp As New SqlParameter
        Dim paramKiz As New SqlParameter
        Dim mSqlAdapter As SqlClient.SqlDataAdapter
        Dim mSqlCommand As SqlCommand
        Try
            mConnection = New SqlClient.SqlConnection
            mConnection.ConnectionString = "Server=(local);Initial Catalog=ComptaEpargne;Integrated Security=True"
            mSqlAdapter = New SqlClient.SqlDataAdapter
            mSqlCommand = New SqlCommand
            mSqlCommand.CommandType = CommandType.StoredProcedure
 
            mSqlCommand.CommandText = "SomTypOp" 'NomProc
            mSqlCommand.Connection = mConnection
            mSqlAdapter.SelectCommand = mSqlCommand
 
            paramKod.ParameterName = "DtA"
            paramKod.Direction = ParameterDirection.Input
            paramKod.SqlDbType = SqlDbType.DateTime
            paramKod.Value = DateOp
 
            paramMoi.ParameterName = "KoD"
            paramMoi.Direction = ParameterDirection.Input
            paramMoi.SqlDbType = SqlDbType.Int
            paramMoi.Value = CodiK
 
            paramOp.ParameterName = "TypOp"
            paramOp.Direction = ParameterDirection.Input
            paramOp.SqlDbType = SqlDbType.Int
            paramOp.Value = TyOp
 
            paramKiz.ParameterName = "Kinz"
            paramKiz.Direction = ParameterDirection.Input
            paramKiz.SqlDbType = SqlDbType.Int
            paramKiz.Value = KenZ
 
            mSqlCommand.Parameters.Clear()
 
            mSqlCommand.Parameters.Add(paramKod)
            mSqlCommand.Parameters.Add(paramMoi)
            mSqlCommand.Parameters.Add(paramOp)
            mSqlCommand.Parameters.Add(paramKiz)
            'mcbIntAn = New SqlClient.SqlCommandBuilder(mIntAnAdapter)
            mSqlAdapter.Fill(DseT, "OperationTT")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, My.Application.Info.ProductName)
        End Try

mais c'est que je ne comprend pas avec ODBC c'est le transfert du nom de paamatre qui ne va pas

merci de m'aider

13/03/2015, 11h44
François M.

Si il y a un retour accès refusé, vérifier que l'instance Sql Server est bien configurée pour autoriser l’utilisateur connecté à utiliser la base (puisque tu utilises l'authentification intégrée), dans le cas contraire, précise un utilisateur Sql Server et n'utilise pas l'authentification intégrée (il doit y en avoir un puisque il doit être configuré dans le DSN d'ODBC).

Je trouve la démarche, qui consiste à ne pas se poser la question du pourquoi ton authentification est refusée et à passer sur ODBC sans essayer de réfléchir, vraiment bizarre.

Il est absurde d'utiliser ODBC, qui dégrade les perfs, quand on cause depuis une appli .Net à une instance SQL Server.
13/03/2015, 11h54
boutax123

Procedure stocké VBnet Odbc Connection sqlserver2008

Ok,
je crois aussi que je vais laisser tomber le odbc
ma config sql2008 est OK(je crois) car qd j'installe l'applik sur le serveur ca marche bien
le soucis c'est quand j'accede sur labase via le reseau
le serveur n'est plus (local)
qu'est que je dois mettre à la place de (local),la syntaxe qoui....
"Server=(local);Initial Catalog=ComptaEpargne;Integrated Security=True"

j'ai mis directement le nom duserveur " server=SRVBP " mais l'acces est tjrs refusé

merci de m'aider
13/03/2015, 12h08
François M.

Citation:

Envoyé par boutax123

Ok,
je crois aussi que je vais laisser tomber le odbc
ma config sql2008 est OK(je crois) car qd j'installe l'applik sur le serveur ca marche bien

Je répète ce que j'ai dit au dessus :

vérifier que l'instance Sql Server est bien configurée pour autoriser l’utilisateur connecté à utiliser la base (puisque tu utilises l'authentification intégrée), dans le cas contraire, précise un utilisateur Sql Server et n'utilise pas l'authentification intégrée (il doit y en avoir un puisque il doit être configuré dans le DSN d'ODBC).
13/03/2015, 12h21
boutax123

Procedure stocké VBnet Odbc Connection sqlserver2008

Comment on verifie l'instancesql
sur le serveur l'utilisateur ets authenfié et l application marche bien
quand j'accede via reseau que le problem persciste ,qu'est que je dois mettre à la place de (local)
merci de m'aider
13/03/2015, 12h44
François M.

Citation:

Envoyé par boutax123

Comment on verifie l'instancesql
sur le serveur l'utilisateur ets authenfié et l application marche bien
quand j'accede via reseau que le problem persciste ,qu'est que je dois mettre à la place de (local)
merci de m'aider

Et c'est le même utilisateur sur le serveur et sur la station de travail ?

Poster le détail complet de l'exception.
13/03/2015, 12h58
boutax123

Procedure stocké VBnet Odbc Connection sqlserver2008

C'est le même utilisateur car le station de travail est membre du domaine
SRV\administrateur
le message d'erreur est :Impossible d'ouvrir la base de données "ComptaEp" demandée par la connexion. La connexion a échoué. Échec de l'ouverture de session de l'utilisateur 'SRV\Administrateur'.
alors que sur le serveur je n'ai aucun problem
Merci de m'aider
13/03/2015, 13h36
François M.

Citation:

Envoyé par boutax123

C'est le même utilisateur car le station de travail est membre du domaine
SRV\administrateur
le message d'erreur est :Impossible d'ouvrir la base de données "ComptaEp" demandée par la connexion. La connexion a échoué. Échec de l'ouverture de session de l'utilisateur 'SRV\Administrateur'.
alors que sur le serveur je n'ai aucun problem
Merci de m'aider

Je ne veux pas le message d'erreur, je veux le DETAIL COMPLET de l'exception et notamment l'InnerException si elle existe.
Accessoirement, je ne vois pas le rapport entre le fait que la station de travail soit membre d'un domaine et l'utilisateur utilisé sur le serveur.
Merci de me dire quel compte est utilisé sur le serveur.
Est ce une application serveur (tournant sous IIS par exemple) ou une application utilisateur ?

Donner la liste des utilisateurs Windows autorisés sur l'instance Sql Server (on ira plus vite).

Merci de donner des infos complètes et pas parcellaires !
13/03/2015, 14h08
boutax123

Procedure stocké VBnet Odbc Connection sqlserver2008

c'est une application Windows dans VB8
l’utilisateur administrateur est autorisé à accéder à la base car j'arrive a y acceder sur le serveur sql2008
c'est cette meme utilisateur qui accede via poste de travail sur le reseau
mais cette même utilisateur est refusé quand j'entre via le reseau..j'ai verifié les config sql ,sqlbroser,les IP et firewall exeption pour les port
je suis tjrs bloqué
merci de m'aider

Procedure stocké VBnet Odbc Connection sqlserver2008

je prends main un program qui est deja ecrit en vb8 et sql2008
Avec les deux methodes,

odbc DNS=Opdsn

1ere: L'erreur est @dset n'est pas fourni pour le parametre du procedure stocké

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Private Sub Etat1(ByRef DseT As DataSet, ByRef CodiK As Integer, ByRef DateOp As Date, ByRef TyOp As Integer, ByRef KenZ As Integer)
        Dim mConnection As SqlClient.SqlConnection '===================
        ' Dim Mread As OdbcDataReader
 
        Dim paramKod As New OdbcParameter
        Dim paramMoi As New OdbcParameter
        Dim paramAns As New OdbcParameter
        Dim paramOp As New OdbcParameter
        Dim paramKiz As New OdbcParameter
 
 
        '**************
        Dim mConnection1 As Odbc.OdbcConnection
        Dim BurAdapter As Odbc.OdbcDataAdapter
        Dim SqlCom As Odbc.OdbcCommand
        '*********************
 
        ' Dim mSqlAdapter As SqlClient.SqlDataAdapter '========================
        ' Dim mSqlCommand As SqlCommand  '=======================
        Try
            '**********************-------------------------------------
            'mConnection = New SqlClient.SqlConnection
            ' mConnection.ConnectionString = "Server=(local);Initial Catalog=ComptaEpargne;Integrated Security=True"
            ' mSqlAdapter = New SqlClient.SqlDataAdapter
            ' mSqlCommand = New SqlCommand
            ' mSqlCommand.CommandType = CommandType.StoredProcedure
            '*********************---------------------------------
 
            mConnection1 = New Odbc.OdbcConnection
 
            mConnection1.ConnectionString = "DSN=ComptaEp"
            BurAdapter = New Odbc.OdbcDataAdapter
            SqlCom = New Odbc.OdbcCommand
            SqlCom.CommandType = CommandType.StoredProcedure
 
            mConnection1.Open()
 
            SqlCom.CommandText = "EtatProc" 'NomProc
            SqlCom.Connection = mConnection1
            BurAdapter.SelectCommand = SqlCom
 
 
            paramKod.ParameterName = "@DtA"
            paramKod.Direction = ParameterDirection.Input
            paramKod.OdbcType = OdbcType.DateTime
            paramKod.Value = DateOp
 
 
            paramMoi.ParameterName = "@KoD"
            paramMoi.Direction = ParameterDirection.Input
            paramMoi.OdbcType = OdbcType.Int
            paramMoi.Value = CodiK
 
            paramOp.ParameterName = "@TypOp"
            paramOp.Direction = ParameterDirection.Input
            paramOp.OdbcType = OdbcType.Int
            paramOp.Value = TyOp
 
            paramKiz.ParameterName = "@Kinz"
            paramKiz.Direction = ParameterDirection.Input
            paramKiz.OdbcType = OdbcType.Int
            paramKiz.Value = KenZ
 
 
            SqlCom.Parameters.Clear()
 
            SqlCom.Parameters.Add(paramKod)
            SqlCom.Parameters.Add(paramMoi)
            SqlCom.Parameters.Add(paramOp)
            SqlCom.Parameters.Add(paramKiz)
 
            BurAdapter.Fill(DseT, "OperationTT")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, My.Application.Info.ProductName)
        End Try
    End Sub

La 2eme : Acces refusé de l'utilisateur

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 Private Sub SomOpBur(ByRef DseT As DataSet, ByRef CodiK As Integer, ByRef DateOp As Date, ByRef TyOp As Integer, ByRef KenZ As Integer)
        Dim mConnection As SqlClient.SqlConnection
        Dim paramKod As New SqlParameter
        Dim paramMoi As New SqlParameter
        Dim paramAns As New SqlParameter
        Dim paramOp As New SqlParameter
        Dim paramKiz As New SqlParameter
        Dim mSqlAdapter As SqlClient.SqlDataAdapter
        Dim mSqlCommand As SqlCommand
        Try
            mConnection = New SqlClient.SqlConnection
            mConnection.ConnectionString = "Server=(local);Initial Catalog=ComptaEpargne;Integrated Security=True"
            mSqlAdapter = New SqlClient.SqlDataAdapter
            mSqlCommand = New SqlCommand
            mSqlCommand.CommandType = CommandType.StoredProcedure
 
            mSqlCommand.CommandText = "SomTypOp" 'NomProc
            mSqlCommand.Connection = mConnection
            mSqlAdapter.SelectCommand = mSqlCommand
 
            paramKod.ParameterName = "DtA"
            paramKod.Direction = ParameterDirection.Input
            paramKod.SqlDbType = SqlDbType.DateTime
            paramKod.Value = DateOp
 
 
            paramMoi.ParameterName = "KoD"
            paramMoi.Direction = ParameterDirection.Input
            paramMoi.SqlDbType = SqlDbType.Int
            paramMoi.Value = CodiK
 
            paramOp.ParameterName = "TypOp"
            paramOp.Direction = ParameterDirection.Input
            paramOp.SqlDbType = SqlDbType.Int
            paramOp.Value = TyOp
 
            paramKiz.ParameterName = "Kinz"
            paramKiz.Direction = ParameterDirection.Input
            paramKiz.SqlDbType = SqlDbType.Int
            paramKiz.Value = KenZ
 
 
            mSqlCommand.Parameters.Clear()
 
            mSqlCommand.Parameters.Add(paramKod)
            mSqlCommand.Parameters.Add(paramMoi)
            mSqlCommand.Parameters.Add(paramOp)
            mSqlCommand.Parameters.Add(paramKiz)
            'mcbIntAn = New SqlClient.SqlCommandBuilder(mIntAnAdapter)
            mSqlAdapter.Fill(DseT, "OperationTT")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, My.Application.Info.ProductName)
        End Try
    End Sub

alors que les deux methodes marches sur le serveur ,

merci de m'aider

13/03/2015, 14h56
François M.

Sauf que la connexion ODBC n'utilise visiblement pas la "Trusted Connection", mais un user SQL SERVER plus probablement.

Et je vous ai demandé :
- le détail de l'exception.
- la liste des users windows autorisés sur l'instance.

Si vous lancez le SSMS sur le poste de travail, et vous vous connectez à la base en authentification intégrée, est ce que ça marche ? (je suppose que non).

Pourquoi ne pas utiliser avec la SqlConnection l'user SQL Server défini dans le DSN de la connexion ODBC ?
13/03/2015, 15h20
boutax123

Procedure stocké VBnet Odbc Connection sqlserver2008

c'est quoi le SSMS comment l'executer?
---->Pourquoi ne pas utiliser avec la SqlConnection l'user SQL Server défini dans le DSN de la connexion ODBC ?
comment on fait!!!????
16/03/2015, 12h45
François M.

Citation:

Envoyé par boutax123

c'est quoi le SSMS comment l'executer?

Venant de quelqu'un qui met dans son profil "Administrateur de base de données" la question ne manque pas de sel !
C'est le Sql Server Management Studio.

Et vous n'avez pas répondu aux autres questions, notamment celle concernant le détail complet de l'exception.