Discussion :

[sephiroth84]

Hello,

par rapport au code de la faq

http://dotnet.developpez.com/tutoriels/ado1/vbnet/#L0

à propos de l'objet Connection : je l'ai copié tel quel mais l'erreur suivante s'affiche :

'static' is not valid on a member variable declaration...

Qu'en est-il de cette erreur?

Merci d'avance

[leSeb]

Remplace le mot clé STATIC par SHARED. Static était le mot clé des anciennes version de visual basic. Maintenant, avec le VB.NET, c'est SHARED. C'est tout ....

[sephiroth84]

Yes, merci.

Pendant qu'on y est... j'ai un problème avec le Main : "End of statement expected"... pourtant j'ai recopié le code tel quel :

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
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
 
Namespace ExempleAdoNetVBnet
 
    Public Class SQLConnexion
        'static => shared
        public shared void Main() 
 
        Dim strConnexion As String = "Data Source=localhost; Integrated Security=SSPI;" & "Initial Catalog=Northwind"
            try
 
                Dim oConnection As SqlConnection = New SqlConnection(strConnexion)
                oConnection.Open()
                Console.WriteLine("Etat de la connexion : " & oConnection.State)
                oConnection.Close() 
 
            catch e as Exception 
 
                Console.WriteLine("L'erreur suivante a été rencontrée :" & e.Message) 
            End Try
 
        End Sub 
    End Class
End Namespace

[leSeb]

Voila ton code corrigé ...

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
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
 
Namespace ExempleAdoNetVBnet 
 
    Public Class SQLConnexion
        'static => shared 
        Public Shared Sub Main()
 
            Dim strConnexion As String = "Data Source=localhost; Integrated Security=SSPI;" & "Initial Catalog=Northwind"
            Try
 
                Dim oConnection As SqlConnection = New SqlConnection(strConnexion)
                oConnection.Open()
                Console.WriteLine("Etat de la connexion : " & oConnection.State)
                oConnection.Close()
 
            Catch e As Exception
 
                Console.WriteLine("L'erreur suivante a été rencontrée :" & e.Message)
            End Try
 
        End Sub
    End Class
 
End Namespace

[sephiroth84]

Ja, danke schön!

[Thomas Lebrun]

Ja, danke schön!

Pardon :