USE database
GO
SELECT f.name AS ForeignKey,
OBJECT_NAME(f.parent_object_id) AS TableName,
COL_NAME(fc.parent_object_id,
fc.parent_column_id) AS ColumnName,
OBJECT_NAME (f.referenced_object_id) AS ReferenceTableName,
COL_NAME(fc.referenced_object_id,
fc.referenced_column_id) AS ReferenceColumnName
FROM sys.foreign_keys AS f
INNER JOIN sys.foreign_key_columns AS fc
ON f.OBJECT_ID = fc.constraint_object_id
Thursday, July 2, 2009
Wednesday, July 1, 2009
Short-cuts In VS 2008?
There are 450 keyboard shortcuts in key VS 2005.
If you want to see all these then use following macro.
To Run Macro
1.Tools->Macro->Macro IDE OR ALT+F11
2.Expan MyMacro->Open Module1
3.Copy the following code
4.Run Macro (F5)
Check file c:\\Shortcuts.html
'Start Macro
Public Module Module1
Public Sub ListShortcutsInHTML()
'Declare a StreamWriter
Dim sw As System.IO.StreamWriter
sw = New IO.StreamWriter("c:\\Shortcuts.html")
'Write the beginning HTML
WriteHTMLStart(sw)
' Add a row for each keyboard shortcut
For Each c As Command In DTE.Commands
If c.Name <> "" Then
Dim bindings As System.Array
bindings = CType(c.Bindings, System.Array)
For i As Integer = 0 To bindings.Length - 1
sw.WriteLine("")
sw.WriteLine("" + c.Name + "")
sw.WriteLine("" + bindings(i) + "")
sw.WriteLine("")
Next
End If
Next
'Write the end HTML
WriteHTMLEnd(sw)
'Flush and close the stream
sw.Flush()
sw.Close()
End Sub
Public Sub WriteHTMLStart(ByVal sw As System.IO.StreamWriter)
sw.WriteLine("")
sw.WriteLine("")
sw.WriteLine("")
sw.WriteLine("Visual Studio Keyboard Shortcuts")
sw.WriteLine("")
sw.WriteLine("")
sw.WriteLine("")
sw.WriteLine("
sw.WriteLine("")
sw.WriteLine("")
")
sw.WriteLine("")
sw.WriteLine("")
sw.WriteLine("")
End Sub
End Module
If you want to see all these then use following macro.
To Run Macro
1.Tools->Macro->Macro IDE OR ALT+F11
2.Expan MyMacro->Open Module1
3.Copy the following code
4.Run Macro (F5)
Check file c:\\Shortcuts.html
'Start Macro
Public Module Module1
Public Sub ListShortcutsInHTML()
'Declare a StreamWriter
Dim sw As System.IO.StreamWriter
sw = New IO.StreamWriter("c:\\Shortcuts.html")
'Write the beginning HTML
WriteHTMLStart(sw)
' Add a row for each keyboard shortcut
For Each c As Command In DTE.Commands
If c.Name <> "" Then
Dim bindings As System.Array
bindings = CType(c.Bindings, System.Array)
For i As Integer = 0 To bindings.Length - 1
sw.WriteLine("")
sw.WriteLine("" + c.Name + "")
sw.WriteLine("" + bindings(i) + "")
sw.WriteLine("")
Next
End If
Next
'Write the end HTML
WriteHTMLEnd(sw)
'Flush and close the stream
sw.Flush()
sw.Close()
End Sub
Public Sub WriteHTMLStart(ByVal sw As System.IO.StreamWriter)
sw.WriteLine("")
sw.WriteLine("")
sw.WriteLine("
sw.WriteLine("Visual Studio Keyboard Shortcuts")
sw.WriteLine("")
sw.WriteLine("")
sw.WriteLine("")
sw.WriteLine("
Visual Studio 2005 Keyboard Shortcuts
")sw.WriteLine("")
sw.WriteLine("
| Command | Shortcut |
sw.WriteLine("")
sw.WriteLine("")
sw.WriteLine("")
End Sub
End Module
Subscribe to:
Posts (Atom)