Di seguito tutti gli interventi pubblicati sul sito, in ordine cronologico.
 
 

L'1 marzo 2010 e' stata recepita nell'ordinamento italiano la Direttiva Europea sui servizi di pagamento (Payment Services Directive, cd. PSD). Le operazioni di pagamento oggetto della normativa sono, tra l'altro, quelle effettuate tramite bonifico, RID, MAV, RAV, carte di credito e debito (bancomat). Sono esclusi gli assegni, le cambiali e i pagamenti di imposte e tasse.

A partire dal 1° gennaio 2010 le fatture per prestazioni di servizi generici emesse da operatori nazionali nei confronti di committenti non residenti (comunitari o extra-comunitari), fuori campo IVA ai sensi dell’art. 7-ter del DPR 633/72, sono da assoggettare ad imposta di bollo nella misura di 1,81 euro, se di importo superiore a 77,47 euro. (D.Lgs n.18 del 11/02/2010)

È stata una delle prime tecnologie di archiviazione ad avere una diffusione di massa, ma ormai il progresso, dopo circa 30 anni, ha portato nuovi prodotti più veloci e capienti. Dal marzo del 2011, Sony, che ha inventato il formato da 3,5 pollici di cui detiene ancora una quota del 70% di mercato, interromperà la produzione dei floppy disk e quindi manderà in pensione i famosi “dischetti” di plastica.

Questo che segue è un semplice esempio dell'uso di MS Excel come front-end per una semplice query su MS SQL Server.

Sub ADOExcelSQLServer()

      Dim Cn As ADODB.Connection

      Dim Server_Name As String

      Dim Database_Name As String

      Dim User_ID As String

      Dim Password As String

      Dim SQLStr As String

      Dim rs As ADODB.Recordset

      Set rs = New ADODB.Recordset

      Server_Name = "LAPTOP\SQL_EXPRESS" ' Enter your server name here

      Database_Name = "Northwind" ' Enter your database name here

      User_ID = "" ' enter your user ID here

      Password = "" ' Enter your password here

      SQLStr = "SELECT * FROM Orders" ' Enter your SQL here

      Set Cn = New ADODB.Connection

      Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _ ";Uid=" & User_ID & ";Pwd=" & Password & ";" rs.Open SQLStr, Cn, adOpenStatic

      With Worksheets("Sheet1")

           .Range("A2:Z500")

           .ClearContents

           .CopyFromRecordset rs

     End With

     rs.Close

     Set rs = Nothing

     Cn.Close

     Set Cn = Nothing

End Sub