SELECT *
FROM Customers
WHERE CustomerId = 123456

SELECT *
FROM Customers
WHERE CustomerId = 123456

<xml>
<customer id="123456">
<name>John Doe</name>
</customer>
</xml>

Imports System

Class [class]
    Shared Sub [shared](ByVal [boolean] As Boolean)
        If [boolean] Then
            Console.WriteLine("true")
        Else
            Console.WriteLine("false")
        End If
    End Sub
End Class

Module [module]
    Sub Main()
        [class].[shared](True)

        ' This prints out: ".
        Console.WriteLine("""")

        ' This prints out: a"b.
        Console.WriteLine("a""b")

        ' This prints out: a.
        Console.WriteLine("a"c)

        ' This prints out: ".
        Console.WriteLine(""""c)
    End Sub
End Module

Dim d As Date
d = # 8/23/1970 3:45:39AM #
d = # 8/23/1970 #
d = # 3:45:39AM #
d = # 3:45:39 #
d = # 13:45:39 #
d = # 13:45:39PM #

Dim n As Float
n = (0.0, .99F, 1.0E-2D, 1.0E+3D, .5E4, 1E3R, 4D)

Dim i As Integer
i = (0, 123, 45L, &HA0I, &O177S)

public class HelloWorld()
{
   public static void main(string[] args)
   {
      Console.Writeline("Hello World!")
   }
}

public class HelloWorld()
{
   public static void main(string[] args)
   {
      Console.Writeline("Hello World!")
   }
}

/**********************************************************************************************************************
 Purpose:
 Returns a single result set similar to sp_Space used for all user tables at once.

 Notes:
 1. May be used as a view, stored procedure, or table-valued funtion. 2. Must comment out 1 "Schema" in the SELECT list below prior to use.  See the adjacent comments for more info.

 Revision History:
 Rev 00 - 22 Jan 2007 - Jeff Moden
                      - Initital creation for SQL Server 2000
 Rev 01 - 11 Mar 2007 - Jeff Moden
                      - Add automatic page size determination for future compliance
 Rev 02 - 05 Jan 2008 - Jeff Moden
                      - Change "Owner" to "Schema" in output.  Add optional code per Note 2 to find correct schema name
**********************************************************************************************************************/
--===== Ensure that all row counts, etc is up to snuff
     -- Obviously, this will not work in a view or UDF and should be removed if in a view or UDF. External code should 
     -- execute the command below prior to retrieving from the view or UDF.
   DBCC UPDATEUSAGE(0) WITH COUNT_ROWS, NO_INFOMSGS 

--===== Return the single result set similar to what sp_SpaceUsed returns for a table, but more
 SELECT DBName       = DB_NAME(),
        SchemaName   = SCHEMA_NAME(so.UID), --Comment out if for SQL Server 2000
        --SchemaName   = USER_NAME(so.UID),   --Comment out if for SQL Server 2005
        TableName    = so.Name,
        TableID      = so.ID/*just a test*/,
        MinRowSize   = MIN(si.MinLen),
        MaxRowSize   = MAX(si.XMaxLen),
        ReservedKB   = SUM(CASE WHEN si.IndID IN (0,1,255) THEN si.Reserved       ELSE 0 END) * pkb.PageKB,
        DataKB       = SUM(CASE WHEN si.IndID IN (0,1    ) THEN si.DPages         ELSE 0 END) * pkb.PageKB
                     + SUM(CASE WHEN si.IndID IN (    255) THEN ISNULL(si.Used,0) ELSE 0 END) * pkb.PageKB,
        IndexKB      = SUM(CASE WHEN si.IndID IN (0,1,255) THEN si.Used           ELSE 0 END) * pkb.PageKB
                     - SUM(CASE WHEN si.IndID IN (0,1    ) THEN si.DPages         ELSE 0 END) * pkb.PageKB
                     - SUM(CASE WHEN si.IndID IN (    255) THEN ISNULL(si.Used,0) ELSE 0 END) * pkb.PageKB,
        UnusedKB     = SUM(CASE WHEN si.IndID IN (0,1,255) THEN si.Reserved       ELSE 0 END) * pkb.PageKB
                     - SUM(CASE WHEN si.IndID IN (0,1,255) THEN si.Used           ELSE 0 END) * pkb.PageKB,
        Rows         = SUM(CASE WHEN si.IndID IN (0,1    ) THEN si.Rows           ELSE 0 END),
        RowModCtr    = MIN(si.RowModCtr),
        HasTextImage = MAX(CASE WHEN si.IndID IN (    255) THEN 1                 ELSE 0 END),
        HasClustered = MAX(CASE WHEN si.IndID IN (  1    ) THEN 1                 ELSE 0 END)
   FROM dbo.SysObjects so,
        dbo.SysIndexes si,
        (--Derived table finds page size in KB according to system type
         SELECT Low/1024 AS PageKB --1024 is a binary Kilo-byte
           FROM Master.dbo.spt_Values 
          WHERE Number = 1   --Identifies the primary row for the given type
            AND Type   = 'E'--Identifies row for system type
        ) pkb
  WHERE si.ID = so.ID
    AND si.IndID IN (0, --Table w/o Text or Image Data
                     1, --Table with clustered index
                   255) --Table w/ Text or Image Data
    AND so.XType = 'U'  --User Tables
    AND PERMISSIONS(so.ID) <> 0 
  GROUP BY so.Name,
           so.UID,
           so.ID,
           pkb.PageKB
  ORDER BY ReservedKB DESC

 SELECT '(1)1)'

Ben Adderson (10/5/2009)

---

RBarryYoung (9/30/2009)

---

So [ code="vb" ] has been removed then? Wow, that's a bummer.

I have tried to replace it with [ code="other" ], unfortunately, "other" seems to mean C/C++/C#/Java or anything else that looks like C. It completely messes up the comment's for VB programs (because it treats them like a C/C++/C#/Java quotation mark). ...

Hi Barry,

I've just added [ code="vb" ] :)

I've updated my original post with an example, but I'm not very familiar with VB, so if you could give it a try and let us know about any issues, that would be great!

'APP_DataBase (vba)
'
' This is the module for the APP application's
'Database functions, routines and constants.
'
'2007-06-08 B.Young Created
'
Option Explicit

Public appDB As New ADODB.Connection


Public Function IsOpenDB() As Boolean
' function to track the DB status
    IsOpenDB = (appDB.State <> 0)   ' 0=closed
End Function

Public Sub CloseDB()
'Close the database if it is open.
    If IsOpenDB Then appDB.Close
End Sub

Public Function OpenDB() As Boolean
'Open the Database and indicate if sucessful
 Static sPrev As String
 Dim sFile As String
 
 If IsOpenDB Then
    OpenDB = True   'we are already open
    Exit Function
 End If
 
 If sPrev = "" Then sPrev = GetSetting(APP_AppName, "History", "DBName")
 
 With Application.FileDialog(msoFileDialogFilePicker)
    'specify the file open dialog
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Access Workbooks", "*.mdb"
    .Filters.Add "All Files", "*.*"
    .InitialFileName = sPrev
    .Title = "Open TIP Database"
    
    .Show
    
    If .SelectedItems.Count > 0 Then
        sFile = .SelectedItems(1)
    Else    'user canceled ...
        OpenDB = False
        Exit Function
    End If
 End With

 'appDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\byoung\APP\Main.mdb"
 appDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFile
 On Error Resume Next
    appDB.Open
 If Err.Number <> 0 Then
    MsgBox "Error(" & Err.Number & "): " & Err.Description, vbOKOnly + vbCritical, "Error in OpenDB"
    OpenDB = False
    Exit Function
 End If
 
 'Opened ok, so finsh-up and exit
 OpenDB = True
 sPrev = sFile
 SaveSetting APP_AppName, "History", "DBName", sPrev

End Function

Public Function DBLookup(SQLCommand As String, Optional DefaultVal As Variant = "") As Variant
'Execute a SQL statement and return a single value.
    Dim rs As Recordset
    
 On Error GoTo ErrHandler       'Handle any/all DB errors
    
    If Not IsOpenDB Then OpenDB
    
    ' execute the command
    Set rs = appDB.Execute(SQLCommand)
    
    ' extract the first field of the first record returned
    rs.MoveFirst
    DBLookup = rs.Fields(0).Value
    Exit Function
    
ErrHandler:
    ' whatever the error is, just assign the default value and return
    DBLookup = DefaultVal
    Exit Function
End Function

Public Sub DBExecute(SQLCommand As String, Optional RecordsAffected As Long = 0)
'Execute a SQL statement that returns no values.
    
    If Not IsOpenDB Then OpenDB
    
    appDB.Execute SQLCommand, RecordsAffected
    
End Sub

'===================

SELECT session_id FROM sys.dm_exec_requests WHERE session_id > 50

SELECT session_id FROM sys.dm_exec_requests WHERE session_id > 50

USE <Database Name>

USE <Database Name>

We walk in the dark places no others will enter
We stand on the bridge and no one may pass