KnowledgeBase

Tuesday, October 18, 2011

Export to XML from SQL Server

select EmployeeID, FirstName, LastName from employees

ORDER BY EmployeeID

FOR XML AUTO, elements

select EmployeeID, FirstName, LastName from employees

ORDER BY EmployeeID

FOR XML AUTO

Upload image into SQL Server 2005

INSERT INTO myTable(Document)

SELECT * FROM OPENROWSET(

BULK N'C:\Inetpub\wwwroot\file.jpg', SINGLE_BLOB

) rs

SQL Server T-SQL table variable example

DECLARE @tblTravelRecords table (

RequestID uniqueidentifier,

TravelNumber varchar(7),

EstimatedTravelCost decimal(11,2),

[status] int

)

INSERT INTO @tblTravelRecords

SELECT pol.RequestID

, pol.PONumber

, CAST( subtotal + pol.Shipping + IsNull(pol.Discount,0) + pol.SalesTax as decimal(11,2) ) as 'EstimatedTravelCost'

, pol.Status

FROM luPOStatus lu RIGHT JOIN (PurchaseOrderLog pol LEFT JOIN @tblPOsubtotal pod ON pol.RequestID=pod.RequestID) ON lu.StatusID=pol.Status

WHERE [Contract] = @Contract

AND TaskNumber = @TaskNumber

AND SubTask = @SubTask

AND ( UseFFPFunds <> 1 OR UseFFPFunds IS NULL )

Excel Functions

http://www.contextures.com/xlFunctions04.html

Listing all constraints in SQL Server & MS-Access

SELECT
FK_Table = FK.TABLE_NAME,
FK_Column = CU.COLUMN_NAME,
PK_Table = PK.TABLE_NAME,
PK_Column = PT.COLUMN_NAME,
Constraint_Name = C.CONSTRAINT_NAME
FROM
INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS C
INNER JOIN
INFORMATION_SCHEMA.TABLE_CONSTRAINTS FK
ON C.CONSTRAINT_NAME = FK.CONSTRAINT_NAME
INNER JOIN
INFORMATION_SCHEMA.TABLE_CONSTRAINTS PK
ON C.UNIQUE_CONSTRAINT_NAME = PK.CONSTRAINT_NAME
INNER JOIN
INFORMATION_SCHEMA.KEY_COLUMN_USAGE CU
ON C.CONSTRAINT_NAME = CU.CONSTRAINT_NAME
INNER JOIN
(
SELECT
i1.TABLE_NAME, i2.COLUMN_NAME
FROM
INFORMATION_SCHEMA.TABLE_CONSTRAINTS i1
INNER JOIN
INFORMATION_SCHEMA.KEY_COLUMN_USAGE i2
ON i1.CONSTRAINT_NAME = i2.CONSTRAINT_NAME
WHERE i1.CONSTRAINT_TYPE = 'PRIMARY KEY'
) PT
ON PT.TABLE_NAME = PK.TABLE_NAME
-- optional:
ORDER BY
1,2,3,4

If you want to limit it to specific tables, you can add any of the following immediately prior to the optional ORDER BY clause:

WHERE PK.TABLE_NAME='something'

WHERE FK.TABLE_NAME='something'

WHERE PK.TABLE_NAME IN ('one_thing', 'another')

WHERE FK.TABLE_NAME IN ('one_thing', 'another')

Microsoft Access

Here is some code that uses ADOX.Catalog:

<%
Set conn = CreateObject("ADODB.Connection")
Set cat = CreateObject("ADOX.Catalog")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=<path to db>"
Set cat.ActiveConnection = conn

Response.Write "<table border=1><tr>" & _
"<th>Parent Table/Column</th>" & _
"<th>Child Table/Column</th>" & _
"<th>Key Name</th></tr>"

For Each tbl in cat.Tables
if left(tbl.Name, 4) <> "MSys" then
For Each key in tbl.Keys
If key.Type = 2 Then
For Each col in key.Columns
Response.Write "<tr><td>" & tbl.Name & "." & _
col.Name & "</td><td>" & _
key.RelatedTable & "." & _
col.RelatedColumn & "</td><td>" & _
key.Name & "</td></tr>"
Next
End If
Next
End If
Next

Response.Write "</table>"

Set cat = Nothing
conn.Close : Set conn = Nothing
%>

Monday, October 17, 2011

Last Modified Date in SQL Server

USE Evaluation;

SELECT name, create_date, modify_date

FROM sys.objects

WHERE type = 'P'

ORDER BY modify_date DESC

GO

select o.name, o.create_date, o.modify_date, len(m.definition)
from sys.sql_modules as m inner join sys.objects as o on m.object_id=o.object_id
where type = 'P'
order by o.modify_date DESC

SELECT o.schema_ID, s.name, o.name, o.create_date, o.modify_date, len(m.[definition]) as 'Definition_length'
from sys.schemas s INNER JOIN (sys.sql_modules m inner join sys.objects o on m.object_id=o.object_id) ON s.schema_id = o.schema_id
where type = 'P'
and m.[definition] LIKE '%2015%'
--and o.name IN ('snapshot', 'snapshotbase', 'snapshotLimit', 'snapshotlimitnonhc', 'snapshot_rel2_model_a','snapshot_rel2_model_b', 'snapshot_rel2_model_c', 'snapshotlimitnonhc')
and s.name NOT IN ('Reporting')
order by o.schema_ID, o.name, o.modify_date DESC

select * from sys.schemas

Dim Item1 As DataListItem ' for the first DataList

'Dim Item2 As DataListItem ' for the second DataList

'########################################################################

For Each Item1 In dlst_TEST.Items

Dim lb_edit As LinkButton = dlst_TEST.Items(Item1.ItemIndex).FindControl("edit")

If lb_edit IsNot Nothing Then

lb_edit.Visible = False

End If

'If Page.FindControl("IDofControl") IsNot Nothing Then

'Dim lb_remove As LinkButton = dlst_TEST.Items(Item1.ItemIndex).FindControl("remove")

'lb_remove.Visible = False

'dlst_Group2 = dlst_Group1.Items(Item1.ItemIndex).FindControl("dlst_Group2")

''#######################################################################

'For Each Item2 In dlst_Group2.Items

' Dim rbl_Group2 As RadioButtonList = dlst_Group2.Items(Item2.ItemIndex).FindControl("rbl_Group2")

' rbl_Group2.Enabled = False

' 'Response.Write(rbl_Group2.ID)

'Next

Catch ex As Exception

With Me

.lblMessage.Text = "error disabling controls. " & ex.Message

.Bad_Message()

End With

End Try

End Sub

Javascript: select all listbox

//<![CDATA[

function selectAllOptions(id) {

var ref = document.getElementById(id);

for(i=0; i<ref.options.length; i++)

ref.options[i].selected = true;

}

//]]>

</script>