N.B. Il va de soit qu'à cette étape, vous avez déjà installé la base de données SQL Server!
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 administrant 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 et les paramètres de compilation suivant:
| chrome showtablesqlserver.pas /ref:$(Framework)\System.dll /ref:$(Framework)\System.Data.dll |
vous pourrez afficher la table «cdmworkgroup» vers la console:
NameSpace showtablesqlserver;
INTERFACE
Uses
System, System.Text, System.Data;
type
Prog = class
class method Main(Args: array of String);
end;
IMPLEMENTATION
class method Prog.Main(Args: array of String);
Var
conn:System.Data.SqlClient.SqlConnection;
stmt:System.Data.SqlClient.SqlCommand;
RS:System.Data.SqlClient.SqlDataReader;
begin
conn:=New System.Data.SqlClient.SqlConnection('Data Source=(local)\SQLEXPRESS;Initial Catalog=mybasededonnees_db;Integrated Security=True');
conn.Open();
stmt:=New System.Data.SqlClient.SqlCommand('SELECT WorkGroupId,Name_EN,Name_FR FROM cdmworkgroup', conn);
RS:=stmt.ExecuteReader();
While RS.Read() DO Begin
Console.WriteLine(RS.GetString(2));
End;
conn.Close();
end;
END.
Ensuite, vous devriez voir afficher un résultat ressemblant à celui-ci:
DéveloppementMaintenance
Direction
Teste
Dernière mise à jour : Dimanche, le 17 février 2008