N.B. Il va de soit qu'à cette étape, vous avez déjà installé la base de données SQL Server sur votre poste ou un serveur !
Ensuite, en supposant que vous avez une base de données nommé «mybasededonnees_db» dans votre base de données SQL Server Express avec la table «cdmworkgroup» ayant le contenu suivante :
Cin | WorkGroupId | Name_EN | Name_FR | Description | Status | CreateDate | CreateUserId | LastUpdate | UpdateUserId |
---|---|---|---|---|---|---|---|---|---|
000 | 0000023901 | Coder | Développement | Groupe de programmeur effectuant de la recherche et développement (R&D). | A | 2006/03/09 | SYSADM | 2006/03/09 | SYSADM |
000 | 0000023902 | Maintenance | Maintenance | Groupe maintenant les divers services réseaux, implantant les développements, maintenant l'état actuel du matériel et administratant les accès. | A | 2006/03/09 | SYSADM | 2006/03/09 | SYSADM |
000 | 0000023903 | Direction | Direction | Direction Groupe de travail s'occupant des divers orientations à prendre sur les projets et les produits. | I | 2006/03/09 | SYSADM | 2006/03/09 | SYSADM |
075 | 0000000068 | Test | Teste | Groupe désigné pour le contrôle de la Qualité | A | 2006/03/09 | STREMBLAY | 2006/03/09 | STREMBLAY |
Grâce à ce petit programme, vous pourrez afficher la table «cdmworkgroup» vers la console :
- Imports System
- Imports System.Data.SqlClient
-
- Module Module1
-
- Sub Main()
- Dim conn As SqlConnection = New SqlConnection("Data Source=(local)\SQLEXPRESS;Initial Catalog=master;Integrated Security=True")
- Try
- conn.Open()
- Dim stmt As New SqlCommand("SELECT WorkGroupId,Name_EN,Name_FR FROM cdmworkgroup;", conn)
- Dim RS As SqlDataReader = stmt.ExecuteReader()
- While RS.Read()
- Console.WriteLine(CStr(RS("Name_FR")))
- End While
- conn.Close()
- Catch
- Console.WriteLine("Connexion impossible: ", conn.ConnectionString)
- End Try
- End Sub
-
- End Module
Ensuite, vous devriez voir afficher un résultat ressemblant à celui-ci :
DéveloppementMaintenance
Direction
Teste
Dernière mise à jour : Samedi, le 22 octobre 2016