SQL Server – Les Mrd Trucs

Site « qui va bien » pour aider:
https://docs.microsoft.com/fr-fr/sql/t-sql/functions/functions?redirectedfrom=MSDN&view=sql-server-ver15

Connexion à une BDD sans contrôle:

Le projet VB doit avoir dans ses références:

Ouverture de la bdd (MaBase) et d’un recordset (MonRec):
   ‘Ouvre la BDD ADO du projet Ping
   Dim MaBase As ADODB.Connection
   Set MaBase = New ADODB.Connection
    MaBase.Open « Provider=SQLOLEDB.1;Password=MonBddMdp;Persist Security Info=True;User ID=MonBddLogin;Initial Catalog=MaBdd;Data Source=MonServer »

   ‘Ouvre la table ADO du projet Ping
   Dim MonRec As ADODB.Recordset
   Set MonRec = New ADODB.Recordset
   MonRec.CursorType = adOpenKeyset
   MonRec.LockType = adLockOptimistic
   MonRec.Open MonRecSource, MaBase, , , adCmdUnknown

Fermeture du tout:
   MonRec.Close
   MaBase.Close

Requêtes usuelles

Filtre les enregistrements dont le champ MonChamp est nul:

WHERE MonChamp is null

Filtre les enregistrements dont la date contenue dans le champ MonChamp est postérieure au 10/12/2014:

WHERE MonChamp >convert(datetime,’10-12-2014′)
Si le nom du champ est un mot réservé (par exemple Date), il doit être mis entre crochets: [Date]
La syntaxe de la date doit être du type: DD-MM-YYYY hh:nn:ss.sss (ou un morceau de celui-ci)

Compte les enregistrements de la machine "D T2":

SELECT count(*) FROM [ping2].[dbo].[TeSysK_Auto] where QuelleMachine = ‘D T2’

Compte les enregistrements de chaque machine:

SELECT [QuelleMachine],COUNT(EcrasementP1) NbEnr FROM [ping2].[dbo].[TeSysK_Auto] GROUP BY QuelleMachine