connexion SQL Server en VB
Bonjour,
Je sais qu'il existe pas mal de post sur ce sujet, mais malgré tout je n'arrive pas à faire ce que je souhaite.
Je souhaite pouvoir me connecter à une base de données à partir de VB. Je précise que je suis débutant dans ce language.
Je me suis inspiré de cet exemple.
J'ai tenté ceci, mais il me sort une erreur dès le début, avec "sub ou function non défini".
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
|
Sub Connexion()
' Exemple de gestion d'une connexion
Imports System
Imports System.Data.SqlClient
Imports System.IO
Namespace ExempleAdoNetVBnet
public class SQLConnexion
public static 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
End Sub |
