Discussion :

[beet2che]

bonjour
mon probléme est que le code suivant ne fonctionne pas et il n'y a aucune erreur qui s'affiche.sachant que le même code fonctionne en effectuant les changements nécessaires concernant une autre table de la base.
voiçi le 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
25
26
27
28
29
30
31
32
 Public Sub AddFieldRSV(ByVal idrsv As SqlTypes.SqlInt32, ByVal dtedebrsv As SqlTypes.SqlDateTime, ByVal dtefinrsv As SqlTypes.SqlDateTime, ByVal description As SqlTypes.SqlString, ByVal nserie As SqlTypes.SqlInt32, ByVal cdersp As SqlTypes.SqlInt32, ByVal service As SqlTypes.SqlString, ByVal dtedemande As SqlTypes.SqlDateTime)
            Dim query As String = "insert into DBMETROPTIM.dbo.NDS_METROPTIM_RSV values (@idrsv,@dtedebrsv,@dtefinrsv,@description,@nserie,@cdersp,@service,@dtedemande)"
 
            Try
                Dim SqlCnx As SqlConnection = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=master;Integrated Security=SSPI")
                Dim cmd As New SqlCommand(query, SqlCnx)
                cmd.Parameters.Add(New SqlParameter("@idrsv", SqlDbType.Int, 4))
                cmd.Parameters.Add(New SqlParameter("@dtedebrsv", SqlDbType.DateTime, 20))
                cmd.Parameters.Add(New SqlParameter("@dtefinrsv", SqlDbType.DateTime, 20))
                cmd.Parameters.Add(New SqlParameter("@description", SqlDbType.VarChar, 50))
                cmd.Parameters.Add(New SqlParameter("@nserie", SqlDbType.Int, 20))
                cmd.Parameters.Add(New SqlParameter("@cdersp", SqlDbType.Int, 20))
                cmd.Parameters.Add(New SqlParameter("@service", SqlDbType.VarChar, 20))
                cmd.Parameters.Add(New SqlParameter("@dtedemande", SqlDbType.DateTime, 20))
 
                cmd.Parameters("@idrsv").Value = idrsv
                cmd.Parameters("@dtedebrsv").Value = dtedebrsv
                cmd.Parameters("@dtefinrsv").Value = dtefinrsv
                cmd.Parameters("@description").Value = description
                cmd.Parameters("@nserie").Value = nserie
                cmd.Parameters("@cdersp").Value = cdersp
                cmd.Parameters("@service").Value = service
                cmd.Parameters("@dtedemande").Value = dtedemande
 
                SqlCnx.Open()
                cmd.ExecuteNonQuery()
                SqlCnx.Close()
            Catch sqlExc As SqlException
                MessageBox.Show(sqlExc.ToString, "Erreur de SQL Server!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
 
        End Sub

est ce que quelqu'un peut m'aider ?
cordialement

[Skalp]

Tu ne fais que "catcher" les exceptions de type SqlException.
Si cela ne fonctionne pas et que tu n'as aucun message qui s'affiche, rajoute un autre catch pour tout autre type d'exception :

Code :

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

1
2
3
4
5
Catch sqlExc As SqlException
    MessageBox.Show(sqlExc.ToString, "Erreur de SQL Server!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch genExc As Exception
    MessageBox.Show(genExc.ToString, "Erreur!", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

PS : sqlExc.ToString ne doit pas te renvoyer quelque chose d'intéressant, essaye plutôt d'afficher sqlExc.Message.

[Tusbar]

D'un côté, s'il ne catch pas l'exception, elle sera retournée au niveau de l'IDE, cependant il dit n'avoir aucune erreur.

"mon probléme est que le code suivant ne fonctionne pas"

Qu'est-ce qui ne fonctionne pas ? L'insertion dans la table ?

Sinon, on utilise Using pour SqlConnection.

[beet2che]

franchement g essayé de rajouter une autre catch afin de capter toutes les exceptions et ça marche pas.en fait mon probléme est que l'insertion ne s'effectue pas au niveau de la table.
voiçi le code concerant la requête du création de la table NDS_METROPTIM_VLD:

Code :

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

1
2
3
4
5
6
7
8
9
  Dim strQueryVLD As String = "USE DBMETROPTIM IF EXISTS ( SELECT * FROM DBMETROPTIM.dbo.sysobjects WHERE Name = 'NDS_METROPTIM_VLD' AND TYPE = 'u')" & _
            "BEGIN DROP TABLE DBMETROPTIM.dbo.NDS_METROPTIM_VLD END CREATE TABLE NDS_METROPTIM_VLD(" & _
             "IdVld Int  PRIMARY KEY ," & _
             "PremierAdresse varchar(50) ," & _
             "DeuxiemeAdresse varchar(50)," & _
             "Rslt varchar (50) ," & _
             "DteDebVld Datetime ," & _
             "DteFinVld Datetime , " & _
             "Description varchar(50) )"

cordialement

[tigunn]

Si tu as bien vérifier le typage de tes variables / Bdd, et que d'autres requetes s'execute tres bien; alors a tu essayer de détruire et recréer la table?

[beet2che]

bonjour
merci pour tous le monde de m'avoir aider.mais c'est bon ça marche
cordialement