FindVB

Export DataTable To Excel ไม่ต้องสร้าง Excel Tag

2022-07-11T20:16:00.000-07:00

ที่มา : https://social.msdn.microsoft.com/Forums/en-US/812b55a1-73e1-47cd-beb2-06c49d1187d1/export-datatable-to-excel?forum=aspgettingstarted

By : User-2119480821 posted

ใส่ในปุ่ม Export หน้า ExportToExcel.aspx ได้เลย

//*********************

string constr = @"Server=xxxx;Database=xxxxxx;UID=xxxx;PWD=xxxxxxxx;Application Name=exportExcel";

using (SqlConnection con = new SqlConnection(constr))

{

using (SqlCommand cmd = new SqlCommand("SELECT * FROM [dbo].[tblCustomers] with(nolock)"))

{

using (SqlDataAdapter sda = new SqlDataAdapter())

{

cmd.Connection = con;

sda.SelectCommand = cmd;

using (DataTable dt = new DataTable())

{

sda.Fill(dt); // select data to datatable

GridView tmpGv = new GridView();

tmpGv.DataSource = dt;

tmpGv.DataBind();

System.IO.StringWriter sw = new System.IO.StringWriter();

System.Web.UI.HtmlTextWriter htw = new System.Web.UI.HtmlTextWriter(sw);

tmpGv.RenderControl(htw);

Response.Clear();

Response.Charset = "";

Response.ContentEncoding = System.Text.Encoding.UTF8;

Response.Cache.SetCacheability(HttpCacheability.NoCache);

Response.ContentType = "application/vnd.xls";

Response.AddHeader("content-disposition", "attachment;filename=" + "test.xls");

Response.Write(sw.ToString());

sw = null;

htw = null;

Response.Flush();

Response.End();

}

//***************

/* asp.net VB.net

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)

Dim constr As String = "Server=xxx;Database=xxx;UID=xxxxxx;PWD=xxxxxxx;Application Name=testexportExcel"

Using con As SqlConnection = New SqlConnection(constr)

Using cmd As SqlCommand = New SqlCommand("SELECT * FROM customers")

Using sda As SqlDataAdapter = New SqlDataAdapter()

cmd.Connection = con

sda.SelectCommand = cmd

Using dt As DataTable = New DataTable()

sda.Fill(dt)

Dim tmpGv As GridView = New GridView()

tmpGv.DataSource = dt

tmpGv.DataBind()

Dim sw As System.IO.StringWriter = New System.IO.StringWriter()

Dim htw As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(sw)

tmpGv.RenderControl(htw)

Response.Clear()

Response.Charset = ""

Response.ContentEncoding = System.Text.Encoding.UTF8

Response.Cache.SetCacheability(HttpCacheability.NoCache)

Response.ContentType = "application/vnd.xls"

Response.AddHeader("content-disposition", "attachment;filename=" & "test.xls")

Response.Write(sw.ToString())

sw = Nothing

htw = Nothing

Response.Flush()

Response.[End]()

End Using

End Sub

How To Migrate asp.net(under .net 4.5 ) website to TLS 1.2?

2019-06-05T20:49:00.002-07:00

เมื่อมีการปิด TLS1.0
Error : The request was aborted: Could not create SSL/TLS secure channel.
ที่มา : https://github.com/navossoc/KeePass-Yet-Another-Favicon-Downloader/issues/23
สาเหตุ : อ่านเองนะ https://www.swoo.co.uk/blog/post/40135/how-to-migrate-a-net-website-to-tls-12

วิธีการแก้ไข ที่ง่ายได้ผล
Old Code : เดิมมีให้เลือกแค่นี้(VB.net)

// Only available from .Net 4.5+

// System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls11 | System.Net.SecurityProtocolType.Tls12;

New Code : ตามนี้คับ

************************************************************
Dim _Tls12 As System.Security.Authentication.SslProtocols = CType(&HC00, System.Security.Authentication.SslProtocols)

Dim Tls12 As SecurityProtocolType = CType(_Tls12, SecurityProtocolType)
ServicePointManager.SecurityProtocol = Tls12

************************************************************

วิธีนี้ไม่ต้อง update .net Framework ได้ผลสำหรับผมนะ

Install IIS on windows10

2017-04-20T20:39:00.001-07:00

ไปที่ Control Panel\All Control Panel Items\Programs and Features

set Application Pools >> Enable 32-Bit Applications=True

Microsoft SQL Server T-SQL date and datetime formats

2016-10-29T02:31:00.001-07:00

Microsoft SQL Server T-SQL date and datetime formats
– Date time formats – mssql datetime
– MSSQL getdate returns current system date and time in standard internal format
SELECT convert(varchar, getdate(), 100) – mon dd yyyy hh:mmAM (or PM)
– Oct 2 2008 11:01AM
SELECT convert(varchar, getdate(), 101) – mm/dd/yyyy - 10/02/2008
SELECT convert(varchar, getdate(), 102) – yyyy.mm.dd – 2008.10.02
SELECT convert(varchar, getdate(), 103) – dd/mm/yyyy
SELECT convert(varchar, getdate(), 104) – dd.mm.yyyy
SELECT convert(varchar, getdate(), 105) – dd-mm-yyyy
SELECT convert(varchar, getdate(), 106) – dd mon yyyy
SELECT convert(varchar, getdate(), 107) – mon dd, yyyy
SELECT convert(varchar, getdate(), 108) – hh:mm:ss
SELECT convert(varchar, getdate(), 109) – mon dd yyyy hh:mm:ss:mmmAM (or PM)
– Oct 2 2008 11:02:44:013AM
SELECT convert(varchar, getdate(), 110) – mm-dd-yyyy
SELECT convert(varchar, getdate(), 111) – yyyy/mm/dd
SELECT convert(varchar, getdate(), 112) – yyyymmdd
SELECT convert(varchar, getdate(), 113) – dd mon yyyy hh:mm:ss:mmm
– 02 Oct 2008 11:02:07:577
SELECT convert(varchar, getdate(), 114) – hh:mm:ss:mmm(24h)
SELECT convert(varchar, getdate(), 120) – yyyy-mm-dd hh:mm:ss(24h)
SELECT convert(varchar, getdate(), 121) – yyyy-mm-dd hh:mm:ss.mmm
SELECT convert(varchar, getdate(), 126) – yyyy-mm-ddThh:mm:ss.mmm
– 2008-10-02T10:52:47.513
– SQL create different date styles with t-sql string functions
SELECT replace(convert(varchar, getdate(), 111), ‘/’, ‘ ‘) – yyyy mm dd
SELECT convert(varchar(7), getdate(), 126) – yyyy-mm
SELECT right(convert(varchar, getdate(), 106), 8) – mon yyyy

convert web asp.net from .net framework 2.0 to .net framework 3.5 fix Ajax return msg.d

2016-08-19T02:54:00.001-07:00

เพิ่ม tag javascript ในหน้าที่มีการเรียกใช้ ajax

$.ajaxSetup({
dataFilter: function (data) {
return JSON.stringify($.parseJSON(data).d);
}

});

เนื่องจาก project มีการเรียกใช้หลายที่ ทำให้แก้ไขยาก ถ้าใช้วิธีนี้ไม่ต้องแก้ไข code เก่าเลย ลดงาน ลดเวลา ไม่กระทบงานเก่า

เว็บเล่น file media video

2016-01-13T00:10:00.002-08:00

ตัวอย่าง
http://www.mia-pi.ca/promo_video2.html

ที่มา
http://www.mia-pi.ca/promo_video2.html

View Code

Error message 401.2.: Unauthorized: Logon failed due to server configuration. Verify that you have permission to view this directory or page based on the credentials you supplied and the authentication methods enabled on the Web server. Contact the Web server's administrator for additional assistance.

2015-04-19T06:55:00.002-07:00

วิธีแก้ไข
folder: %windir%\Microsoft.Net\Framework\v2.0.50.27\CONFIG\web.config
************************************
<system .web="">
<authorization>
<allow users="*" verbs="GET,POST">
</allow></authorization>
</system>
************************************
แก้ไขเป็น
*********************************
<system .web="">
<authorization>
<allow users="*" verbs="">
</allow></authorization>
</system>
*********************************

Linq OrderBy Extension

2015-03-24T03:34:00.000-07:00

ในการพัฒนาโปรแกรม ด้วย ASP.net ต้องมีการQuery ข้อมูลมาแสดงในGridView ซึ่งต้องมีส่วนของการ Sort Data แน่นอน และถ้าเราใช้ LinQ ละ? ผมจึงนำ Extension Method ใน LinQ นำมาฝาก
รูปแบบการเรียกใช้งานทำได้ดังนี้

list.OrderBy("SomeProperty");
list.OrderBy("SomeProperty DESC");
list.OrderBy("SomeProperty DESC, SomeOtherProperty");
list.OrderBy("SomeSubObject.SomeProperty ASC, SomeOtherProperty DESC");

ที่มา
Dynamic SQL-like Linq OrderBy Extension
http://aonnull.blogspot.com/2010/08/dynamic-sql-like-linq-orderby-extension.html

C#.net Convert To VB.net By :http://converter.telerik.com/

View Code

-------------------------------------------------

Imports System.Collections.Generic

  Imports System.Linq

  Imports System.Web

  Imports System.Linq.Expressions

  Imports System.Reflection



Module OrderByExtensions

'' Mutiple Sort in Linq Order by String example :"sAccount,CardID desc"

  '' objdata.OrderBy("sAccount asc") ,objdata.OrderBy("sAccount asc,CardID desc") 

  <System.Runtime.CompilerServices.Extension()> _

  Public Function OrderBy(Of T)(enumerable As IEnumerable(Of T), strorderBy As String) As IEnumerable(Of T)

  Return enumerable.AsQueryable().OrderBy(strorderBy).AsEnumerable()

  End Function

<System.Runtime.CompilerServices.Extension()> _

    Public Function OrderBy(Of T)(collection As IQueryable(Of T), strorderBy As String) As IQueryable(Of T)

    For Each orderByInfo As OrderByInfo In ParseOrderBy(strorderBy)

    collection = ApplyOrderBy(Of T)(collection, orderByInfo)

  Next


  Return collection

  End Function


  Private Function ApplyOrderBy(Of T)(collection As IQueryable(Of T), orderByInfo As OrderByInfo) As IQueryable(Of T)

    Dim props As String() = orderByInfo.PropertyName.Split("."c)

  Dim type As Type = GetType(T)


  Dim arg As ParameterExpression = Expression.Parameter(type, "x")

    Dim expr As Expression = arg

    For Each prop As String In props

    ' use reflection (not ComponentModel) to mirror LINQ

    Dim pi As PropertyInfo = type.GetProperty(prop)

    expr = Expression.[Property](expr, pi)

    type = pi.PropertyType

    Next

    Dim delegateType As Type = GetType(Func(Of ,)).MakeGenericType(GetType(T), type)

    Dim lambda As LambdaExpression = Expression.Lambda(delegateType, expr, arg)

  Dim methodName As String = [String].Empty


  If Not orderByInfo.Initial AndAlso TypeOf collection Is IOrderedQueryable(Of T) Then

    If orderByInfo.Direction = SortDirection.Ascending Then

    methodName = "ThenBy"

    Else

    methodName = "ThenByDescending"

    End If

    Else

    If orderByInfo.Direction = SortDirection.Ascending Then

    methodName = "OrderBy"

    Else

    methodName = "OrderByDescending"

    End If

  End If


  'TODO: apply caching to the generic methodsinfos?

  Return DirectCast(GetType(Queryable).GetMethods().[Single](Function(method) method.Name = methodName AndAlso method.IsGenericMethodDefinition AndAlso method.GetGenericArguments().Length = 2 AndAlso method.GetParameters().Length = 2).MakeGenericMethod(GetType(T), type).Invoke(Nothing, New Object() {collection, lambda}), IOrderedQueryable(Of T))


  End Function


  Private Function ParseOrderBy(orderBy As String) As IEnumerable(Of OrderByInfo)

    If [String].IsNullOrEmpty(orderBy) Then

    Return New List(Of OrderByInfo)

  End If


  Dim items As String() = orderBy.Split(","c)

    Dim initial As Boolean = True

    Dim listorderby As New List(Of OrderByInfo)

    For Each item As String In items

  Dim pair As String() = item.Trim().Split(" "c)


  If pair.Length > 2 Then

    Throw New ArgumentException([String].Format("Invalid OrderBy string '{0}'. Order By Format: Property, Property2 ASC, Property2 DESC", item))

  End If


  Dim prop As String = pair(0).Trim()


  If [String].IsNullOrEmpty(prop) Then

    Throw New ArgumentException("Invalid Property. Order By Format: Property, Property2 ASC, Property2 DESC")

  End If


  Dim dir As SortDirection = SortDirection.Ascending


  If pair.Length = 2 Then

    dir = (If("desc".Equals(pair(1).Trim(), StringComparison.OrdinalIgnoreCase), SortDirection.Descending, SortDirection.Ascending))

  End If


  Dim objclss = New OrderByInfo()

    objclss.PropertyName = prop

    objclss.Direction = dir

    objclss.Initial = initial

    listorderby.Add(objclss)

  


  initial = False

    Next

    Return listorderby

  End Function


  Private Class OrderByInfo

    Public Property PropertyName() As String

    Get

    Return m_PropertyName

    End Get

    Set(value As String)

    m_PropertyName = value

    End Set

    End Property

    Private m_PropertyName As String

    Public Property Direction() As SortDirection

    Get

    Return m_Direction

    End Get

    Set(value As SortDirection)

    m_Direction = value

    End Set

    End Property

    Private m_Direction As SortDirection

    Public Property Initial() As Boolean

    Get

    Return m_Initial

    End Get

    Set(value As Boolean)

    m_Initial = value

    End Set

    End Property

    Private m_Initial As Boolean

  End Class


  Private Enum SortDirection

    Ascending = 0

    Descending = 1

  End Enum


  End Module

  

------------------------------------------------

Prevent Remember My Password , Disable Remember My Password on brower

2014-10-06T02:03:00.003-07:00

ในหน้าเว็บที่ต้องกรอก UserName & Password เมื่อทำการ submit แล้ว Brower จะถามว่าต้องการบันทึกหรือไม่
เมื่อเราทำการกด บันทึกBrower ก็จะจำuser และ รหัสผ่านที่เรากรอกไป
ซึ่งทำให้ผู้ที่เข้ามาเปิดเว็บคนถัดไปสามารถใช้ ข้อมูลที่เก็บไว้ในที่นี้ log in เข้าไปได้

วิธีการป้องการ การจำในส่วนนี้ ทำได้ดังนี้
(Disable Remember My Password)
เพิ่ม tag
<div style=" visibility:hidden; width:0px; height:0px;">
<input id="txtpus" type="text" />
<input id="txtusper" type="password" />
</div>

How to disable filemonitoring on IIS using c# code

2014-03-14T02:03:00.001-07:00

add code in Global Event Application Start

View Code

-------------------------------------------------

//FIX disable AppDomain restart when deleting subdirectory



//This code will turn off monitoring from the root website directory.



//Monitoring of Bin, App_Themes and other folders will still be operational, so updated DLLs will still auto deploy.



System.Reflection.PropertyInfo p = typeof(System.Web.HttpRuntime).GetProperty("FileChangesMonitor", System.Reflection.BindingFlags.NonPublic | 

System.Reflection.BindingFlags.Public | System.Reflection.BindingFlags.Static);



object o = p.GetValue(null, null);



System.Reflection.FieldInfo f = o.GetType().GetField("_dirMonSubdirs", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic | 

System.Reflection.BindingFlags.IgnoreCase);



object monitor = f.GetValue(o); //Returns NULL



System.Reflection.MethodInfo m = monitor.GetType().GetMethod("StopMonitoring", System.Reflection.BindingFlags.Instance | System.Reflection.BindingFlags.NonPublic); m.Invoke(monitor, new object[] { }); 





------------------------------------------------

ที่มา :- http://www.narisa.com/forums/index.php?showtopic=27585

- http://stackoverflow.com/questions/3610240/how-to-disable-filemonitoring-on-iis-using-c-sharp-code
- http://www.ruxcom.com/aspnet-session-lost

ตัวอย่าง jquery waiting

2013-07-30T01:02:00.001-07:00

http://trentrichardson.com/examples/jQuery-Waiting/

ตัวอย่าง jquery waiting

เรื่องของ การGetUser

2012-06-20T20:35:00.000-07:00

'***********
Function getuser()
Response.Buffer = True : Response.Clear
IF (Len(Request.ServerVariables("LOGON_USER")) <> 0 ) then
strLogon = Right(Request.ServerVariables("LOGON_USER"),Len(Request.ServerVariables("LOGON_USER"))-InStr(Request.ServerVariables("LOGON_USER"),"\"))
response.Write uCase(strLogon)

Else
Response.Status = "401 Unauthorized"
Response.Write("System.UnauthorizedAccess Exception: Error Access is denied.")&"<br>"
response.write Response.Status
response.End()
End IF
End Function

http://www.mail-archive.com/activeserverpages@list.15seconds.com/msg00493.html

ดูราคาทองคำกันหน่อยเนอะ

2012-06-20T19:07:00.001-07:00

ติดตั้ง IIS 7 Windows 7

2012-06-14T07:14:00.000-07:00

ขอนำเสนอการติดตั้ง IIS 7 บน windows 7 แบบ step by step
1.Start >>control Panel >>Programs and Features
2.เลือกเมนู Turn Windows features on or off ทางฝั่งซ้ายมือ จะมีหน้าต่างขึ้นมา
3.set ในส่วนของ Internet Information Services ตามรูปด้านล้างเลยคับ แล้วกดปุ่ม ok

หายเหตุ: ไม่ต้องเลือก IIS 6 Management Console นะครับ ในรูปผิด

4. หลังจากนั้นระบบจะดำเนินการติดตั้ง IIS7 ให้

5. ทดสอบรัน webservice โดยเปิด IE แล้วพิมพ์ http://localhost/ แล้วกด enter จะได้ดังรูป

หากต้องการให้เพื่อนคุณเข้ามาใช้เว็บในเครื่องผ่าน IPAddress ก็สามารถทำได้ โดยเปิด IE แล้วพิมพ์ http://IPAddress/ แล้วกด enter [เช่น http://192.168.0.15/] ก็จะขึ้นเหมือนกัน

หากเครื่องคุณทำการปิด Firewall ไว้ เครื่องอื่นอาจจะเข้าไม่ได้ให้ทำการปิดหรือ เปิดสิทธิ์ให้เข้าถึงได้ก่อนครับ

Css Style ไล่สีพื้นหลัง ใช้ได้กับ Background หน้าเว็บ และButton

2012-06-07T23:50:00.000-07:00

ตัวอย่างการกำหนดให้

สีพื้นหลังดังตัวอย่างจาก css ทำได้ดังนี้(คลิก View Codeเพื่อดู style ครับ)

View Code

----------------------------------------------------------

<style type="text/css">

  .div-frm

  {

  text-align:center;vertical-align : middle; display : table-cell;

  background-image:-webkit-gradient(linear,left top,left bottom,from( #ffffff ),to( #5dafd3 )); 

  background-image:-webkit-linear-gradient( #ffffff,#5dafd3 );

  background-image:   -moz-linear-gradient( #ffffff,#5dafd3 ); 

  background-image:    -ms-linear-gradient( #ffffff,#5dafd3 ); 

  background-image:     -o-linear-gradient( #ffffff,#5dafd3 ); 

  background-image:        linear-gradient( #ffffff,#5dafd3 );

  }

  .new-Button{

  width:150px;

  height:70px;

  border-radius:10px; 

  text-align:center;

  vertical-align : middle; 

  font-size:14px;

  margin:7px;

  box-shadow: 0 1px 4px rgba(0, 0, 0, 0.2) inset;

  }

  .new-Button:hover{

  box-shadow: 0 0 12px #387BBE;

  text-shadow: 0 1px 0 #fdf581;

  font-size:16px;

  font-weight:bold;

  }

  .div-style-button{

  text-shadow: 0 1px 0 #FFFFFF;

  border-radius: 10px;

  box-shadow: 0 1px 4px rgba(0, 0, 0, 0.2) inset;

  }


.div-style-button:hover{

  text-shadow: 0 1px 0 #FFFFFF;

  border-radius: 10px;

  margin:7px;

  box-shadow: 0 0 12px #387BBE;

  }


</style>

  <div class="div-frm" style="width:300px; height:400px;">ตัวอย่าง1</div>

  <input type="submit" id="buttom" class="div-frm new-Button" value="ตัวอย่าง2" />

  <div class="div-frm div-style-button" style="width:100px; height:80px;">ตัวอย่าง3</div>



------------------------------------------------




ผลที่ได้จาก code ตัวอย่างครับด้านล้างคับ

ตัวอย่าง1

ตัวอย่าง3

การใส่สีพื้นหลังแบบ Linear-Gradient อาจจะเป็นเรื่องยากสำหรับบ้างท่าน แต่ก็มีตัวช่วยเว็บตามลิ้งเลยคับ
http://jquerymobile.com/themeroller/index.php

ตรงช่อง start และ End

text-align:center;vertical-align : middle; display : table-cell;
background-image:-webkit-gradient(linear,left top,left bottom,from( #ffffff ),to( #5dafd3 ));
background-image:-webkit-linear-gradient( #ffffff,#5dafd3 );
background-image: -moz-linear-gradient( #ffffff,#5dafd3 );
background-image: -ms-linear-gradient( #ffffff,#5dafd3 );
background-image: -o-linear-gradient( #ffffff,#5dafd3 );
background-image: linear-gradient( #ffffff,#5dafd3 );

แสดงได้ทั้ง IE , Chome, FireFox
ขอจบแค่นี้ก่อนจะเอาสิ่งดีๆมาเก็บไว้ใหม่คับ

การกำหนด choice User Logon in windows

2011-11-03T19:51:00.000-07:00

สถานการณ์มีอยู่ว่า ในเครื่องserver เราจะมีการกำหนดสิทธิ์ให้กับ User Remote Desktop ให้กับหลายๆคน แต่ละคนก็จะมีสิทธ์ ทำงานได้ตามสิทธิ์ และถ้ามีการกำหนด User ไว้เยอะๆๆ เวลาที่เราจะเข้ามาใช้งาน ที่หน้าserver จริง สิ่งที่เราเห็นคือ User ทั้งหลายทั้งปวงที่เราสร้างไว้จะแสดงเต็มจอเพื่อให้เราเลือกเข้าใช้ แต่เราซึ่งเป็น Admin หลักอยากเห็นแค่ User 1 คนในหน้านั้นเท่านั้น และอยากจะป้องกันไม่ให้ User คนอื่นๆ เข้ามาlogin ที่หน้าเครื่อง server มีวิธีการกำหนดสิทธิ์ดังนี้คับ

รูปการเปิดสิทธิ์ให้ทำการ Remote Desktop ผ่านเครื่องอื่น

ทำการเพิ่ม User อื่น ที่ไม่ใช่ Admin เข้าไป แค่นี้เราก็จะไม่ตาลายกับ User อื่นที่เราสร้างไว้ และยังป้องกันการเข้าใช้เครื่องผ่าน Userอื่นที่ไม่ใช้adminด้วยคับ

คำสั่งขยับ index ของKey AutoGenID ที่เป็น Integer หรือlong ใน SQLSERVER

2011-10-10T19:23:00.000-07:00

DBCC CHECKIDENT (TableName, RESEED, 50000)

หมายเหตุ ก่อนทำการrun คำสั่ง ต้องเปลี่ยน Key ที่เป้น Autogen ออก ก่อนจึงจะรันคำสั่งได้

คำสั่ง ดูรายงานข้อมูลในฐานข้อมูล Sqlserver

2011-07-25T19:07:00.000-07:00

เนื่องจากระบบที่ผมดูแลอยู่มานาน ฐานข้อมูลเริ่มใหญ่ขึ้นเรื่อยจึงอยากทราบว่ามีตารางไหนบ้างที่มีจำนวน recode เยอะ มากจะได้clear โดยมีคำสั่งดังนี้

SELECT
    [TableName] = so.name,
    [RowCount] = MAX(si.rows)
FROM
    sysobjects so,
    sysindexes si
WHERE
    so.xtype = 'U'
    AND
    si.id = OBJECT_ID(so.name)
GROUP BY
    so.name
ORDER BY
    2 DESC

Check Query use CPU Time
<ที่มา:https://stackoverflow.com/questions/945063/how-do-i-find-out-what-is-hammering-my-sql-server>

SELECT TOP 20
qs.sql_handle,
qs.execution_count,
qs.total_worker_time AS Total_CPU,
total_CPU_inSeconds = --Converted from microseconds
qs.total_worker_time/1000000,
average_CPU_inSeconds = --Converted from microseconds
(qs.total_worker_time/1000000) / qs.execution_count,
qs.total_elapsed_time,
total_elapsed_time_inSeconds = --Converted from microseconds
qs.total_elapsed_time/1000000,
st.text,
qp.query_plan
FROM
sys.dm_exec_query_stats AS qs
CROSS APPLY
sys.dm_exec_sql_text(qs.sql_handle) AS st
CROSS APPLY
sys.dm_exec_query_plan (qs.plan_handle) AS qp
ORDER BY
qs.total_worker_time DESC

สูตรเกี่ยวกับบุคลิกของตัวเองที่ควรไปจะคู่ กับสูตรสุขภาพมีอย่างนี้

2011-05-25T21:03:00.000-07:00

สูตรเกี่ยวกับบุคลิกของตัวเองที่ควรไปจะคู่ กับสูตรสุขภาพมีอย่างนี้

๑. อย่าเปรียบเทียบ ชีวิตของตัว เองกับคนอื่น คุณไม่รู้หรอกว่าคนที่คุณอิจฉานั้นเขา มีความทุกข์ยิ่งกว่าคุณอย่างไรบ้าง
๒. อย่าคิดทางลบ เกี่ยวกับ เรื่องที่คุณควบคุมหรือกำหนดไม่ได้ แทนที่จะมองโลก ในแง่ร้าย , ก็ทุ่มเทกำลังและพลังงานให้กับความคิด ทางบวก ณ ปัจจุบันเสีย
๓. อย่าทำอะไร เกินกว่าที่ตัวเองทำได้ ...รู้ว่าขีดจำกัดของตัวเองอยู่ที่ไหน
๔.. อย่าเอา จริงเอาจังกับตัวเองนัก เพราะคนอื่นเขา ไม่ได้ซีเรียสกับคุณเท่าไหร่หรอก
๕. อย่า เสียเวลา และพลังงานอันมีค่าของคุณ กับ เรื่องหยุมหยิม หรือเรื่องซุบซิบ....นอกเสียจากว่ามันจะทำให้คุณ ผ่อนคลายได้อย่างจริงจัง
๖. จงฝันตอนตื่น มากกว่าตอน หลับ
๗. ความ รู้สึกอิจฉาริษยาเป็นเรื่องเสียเวลาเปล่า ๆ ปลี้ ๆ...คิดให้ดีก็จะรู้ว่าคุณมีทุกอย่างที่คุณจำเป็นต้องมีแล้ว
๘. ลืมเรื่อง ขัดแย้งในอดีตเสีย และอย่าได้เตือนสามี หรือภรรยาคุณเกี่ยวกับความผิดพลาดในอดีตของอีกฝ่ายหนึ่งเลย เพราะมันจะทำลายความสุขปัจจุบันของคุณ
๙. ชีวิตนี้สั้นเกินกว่าที่เราจะไปโกรธเกลียดใคร... จงอย่าเกลียดคนอื่น
๑๐.ประกาศ สงบศึกกับอดีตให้สิ้น , จะได้ไม่ทำลายปัจจุบันของคุณ
๑๑.ไม่มีใครกำหนดความสุขของคุณได้นอกจากคุณเอง
๑๒.จง เข้าใจเสียว่า ชีวิตก็คือโรงเรียน คุณมาเพื่อเรียน รู้ และ ปัญหาเป็น เพียง ส่วนหนึ่งของหลักสูตร ซึ่งมาแล้วก็หาย ไป...เหมือนโจทย์วิชาพีชคณิต...แต่สิ่งที่คุณเรีย?รู้นั้นอยู่กับคุณตลอด ชีวิต
๑๓. จง ยิ้มและหัวเราะมากขึ้น
๑๔. คุณ ไม่จำเป็นต้องชนะทุกครั้งที่ถก เถียงกับคนอื่น หรอก...บางครั้งก็ยอมรับว่าเราเห็นแตกต่างกัน ได้...

เห็นพ้องที่จะเห็นต่างก็ไม่เห็นเสียหายแต่อย่างไร
แล้ว เราควรจะมีทัศนคติอย่างไรต่อชุมชนและคนรอบข้าง เราล่ะ ?

๑. อย่าลืมโทรฯหาครอบครัวบ่อย ๆ
๒. จงหาอะไรดี ๆ ให้คนอื่นทุกวัน
๓. จงให้อภัยทุกคนสำหรับทุกอย่าง
๔. จงหาเวลาอยู่กับคนอายุเกิน 70 และต่ำกว่า 6 ขวบ
๕. พยายามทำให้อย่างน้อย 3 คนยิ้มได้ทุกวัน
๖. คนอื่นเขาคิดอย่างไรกับคุณไม่ใช่ เรื่องของคุณสัก หน่อย
๗. งานของคุณไม่ดูแลคุณตอนคุณป่วยหรอก แต่ครอบครัวและเพื่อนคุณต่างหากเล่าที่จะดูแลคุณในยามคุณมีปัญหา สุขภาพ

ดังนั้น , อย่าได้ห่างเหินกับคนใกล้ชิดเป็น อันขาด

และ ถ้าหากสามารถดำรงชีวิตให้มีความหมายได้ , ก็ควรจะทำ ดังต่อไปนี้

๑. ทำสิ่งที่ควรทำ
๒. อะไรที่ไม่เป็นประโยชน์ , ไม่สวย , ไม่น่ารื่นรมย์ , จงทิ้ง ไปเสีย...เก็บไว้ทำไม ?
๓. เวลาและพระเจ้าย่อมรักษาแผล ทุกอย่างได้
๔. ไม่ว่าสถานการณ์จะดีหรือเลวปานใด , เดี๋ยว มันก็เปลี่ยน
๕. ไม่ว่าคุณจะรู้สึกอย่างไรในตอนเช้าของทุกวัน , จงลุก จากเตียง , แต่ง ตัวและปรากฎตัวต่อหน้าคนที่เราร่วมงาน ด้วย... get up, dress up and show up.
๖. สิ่งที่ดีที่สุดยังมาไม่ถึง
๗. ถ้าคุณยังลุกขึ้นตอนเช้าได้ , อย่าลืมขอบคุณพระเจ้า หรือสิ่ง ศักดิ์สิทธิ์ที่คุณนับถือเสียด้วย
๘. เชื่อเถอะว่าส่วนลึก ๆ ในใจของคุณนั้นมีความสุข เสมอ...ดังนั้น , ส่วนนอกของคุณทุกข์โศกไปทำไมเล่า

ที่มา:ได้รับจากemailครับ
ไดอารี่ออนไลน์ : www.iamnidnoi.com

VB.net การ Read & Write XML file (แบบset Config)

2011-05-02T20:43:00.000-07:00

ในการพัฒนาโปรแกรม ด้วย windows Application ต้องมีการทำ config เกี่ยวกับ Database,username,password,key ที่ผ่านมาเราอาจจะเคยเห็น โปรแกรมที่เป็น Application ใช้ file .ini, .txt และ .xml ซึ่งการ Read & Write xml มีหลากหลายแบบ ผมมีตัวอย่างการ set xml อย่างง่ายมาฝากดังตัวอย่าง

<?xml version="1.0" encoding="utf-8" ?>
- <configuration>
<ServerName>xxx.xxx.xxx.xxx</ServerName>
<UserName>findvb</UserName>
<Password>1234</Password>
</configuration>

ขั้นตอนคือ เราจะต้องมี pathfile ของ xmlของเราก่อนโดยใน fuctionผมกำหนดไว้ที่
Private filename As String = Application.StartupPath & "\" & "dataconfig.xml"

View Code

-------------------------------------------------

Imports System.Xml

Imports System.Text

Private filename As String = Application.StartupPath & "\" & "config.xml"

Public str_Servername As String = "ServerName"

Public str_UserName As String = "UserName"

Public str_Password As String = "Password"



Public Sub SetWriteXML(ByVal servername As String, ByVal username As String, ByVal pwd As String)

If Not IO.File.Exists(filename) Then

            Dim xmlText = "<?xml version='1.0' encoding='utf-8'?>" & _

                          "<configuration>" & _

                          "</configuration>"

            Dim xmlDoc As New XmlDocument()

            xmlDoc.LoadXml(xmlText)

            xmlDoc.Save(filename)

        End If

Try

'Create file, overwrite if exists

'enc is encoding object required by constructor

'It is null, so default encoding is used

Dim objXMLTW As New XmlTextWriter(filename, Encoding.UTF8)

With objXMLTW

.IndentChar = vbTab

.Indentation = 1

.Formatting = Formatting.Indented



.WriteStartDocument()

'Top level (Parent element)

.WriteStartElement("configuration")



'Child elements, from request form

.WriteElementString(str_Servername, servername)

.WriteElementString(str_UserName, username)

.WriteElementString(str_Password, pwd)



.WriteEndElement() 'End top level element

.WriteEndDocument() 'End Document

.Flush() 'Write to file

.Close()

End With

Catch Ex As Exception



End Try

End Sub



Public Function GetReadXML(ByVal keyName As String) As String

Dim getvalue As String = ""

Dim XmlDoc As XmlDocument = New XmlDocument()

Try

With XmlDoc

XmlDoc.Load(filename)

getvalue = .SelectSingleNode("configuration/" & keyName).InnerText()

XmlDoc = Nothing

End With

Catch ex As Exception

End Try

Return getvalue

End Function



------------------------------------------------

วิธีทำให้เว็บเรารันบน ie แล้วให้ compatibility ตลอด

2011-04-28T02:53:00.000-07:00

เวลาเราเปิดเว็บบน ie แล้วให้ขึ้น compatibility view websites designed for older browsers will often look better and problems such as out-of-place
วิธีแก้ไขให้เราไป เพิ่ม tag ใน web.config

------------------------------------------------

<system.webServer>

<httpprotocol>

<customheaders>

<clear />

<add name="X-UA-Compatible" value="IE=8" />

</customHeaders>

</httpProtocol>

</system.webServer>

------------------------------------------------

VB.net แสดงจำนวนเงินเป็นตัวหนังสือ ไทย

2011-04-28T00:50:00.000-07:00

Function แสดงจำนวนเงินเป็นตัวหนังสือไทย
ChangeToThaibathWord("523.25") = ห้าร้อยยี่สิบสามบาทยี่สิบห้าสตางค์

View Code

----------------------------------------------------------

Public Function ChangeToThaibathWord(ByVal mondyValue As String) As String

Dim digit() As String = {"เอ็ด", "สิบ", "ร้อย", "พัน", "หมื่น", "แสน", "ล้าน", "สิบล้าน", "ร้อยล้าน", "พันล้าน"}

Dim tmp() As String = mondyValue.Split(".".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)

Dim intNumber = tmp(0).Replace(",", "")

Dim decNumber As String

If (tmp.Length > 1) Then

decNumber = tmp(1)

Else

decNumber = ""

End If



Dim result As String = ""

Dim testChar As String = ""

Dim splitChar As String = ""



Dim wordLength As Integer = intNumber.Length - 1

For intPosition As Integer = 0 To wordLength

splitChar = intNumber.Substring(intPosition, 1)

Select Case splitChar

Case "0" : testChar = ""

Case "1" : testChar = "หนึ่ง"

Case "2" : testChar = "สอง"

Case "3" : testChar = "สาม"

Case "4" : testChar = "สี่"

Case "5" : testChar = "ห้า"

Case "6" : testChar = "หก"

Case "7" : testChar = "เจ็ด"

Case "8" : testChar = "แปด"

Case "9" : testChar = "เก้า"

End Select



Select Case (wordLength - intPosition)

Case 0

If (splitChar = "1") Then

If (wordLength = 0) Then

result = result & testChar

Else

result = result & digit(wordLength - intPosition)

End If

Else

result = result & testChar

End If

Case 1

Select Case splitChar

Case "0"

Case "1"

result = result & digit(wordLength - intPosition)

Case "2"

testChar = "ยี่"

result = result & testChar & digit(wordLength - intPosition)

Case Else

result = result & testChar & digit(wordLength - intPosition)

End Select

Case Else

Select Case splitChar

Case "0"

Case Else

result = result & testChar & digit(wordLength - intPosition)

End Select

End Select



Next

result = result & "บาท"



Dim stang As String = ""

If (decNumber.Length > 0) Then

wordLength = decNumber.Length - 1

For intPosition As Integer = 0 To wordLength

splitChar = decNumber.Substring(intPosition, 1)

Select Case splitChar

Case "0" : testChar = ""

Case "1" : testChar = "หนึ่ง"

Case "2" : testChar = "สอง"

Case "3" : testChar = "สาม"

Case "4" : testChar = "สี่"

Case "5" : testChar = "ห้า"

Case "6" : testChar = "หก"

Case "7" : testChar = "เจ็ด"

Case "8" : testChar = "แปด"

Case "9" : testChar = "เก้า"

End Select



Select Case (wordLength - intPosition)

Case 0

If (splitChar = "1") Then

If (wordLength = 0) Then

stang = stang & testChar

Else

stang = stang & digit(wordLength - intPosition)

End If

Else

stang = stang & testChar

End If

Case 1

Select Case splitChar

Case "0"

Case "1"

stang = stang & digit(wordLength - intPosition)

Case "2"

testChar = "ยี่"

stang = stang & testChar & digit(wordLength - intPosition)

Case Else

stang = stang & testChar & digit(wordLength - intPosition)

End Select

Case Else

Select Case splitChar

Case "0"

Case Else

stang = stang & testChar & digit(wordLength - intPosition)

End Select

End Select



Next

End If



If (stang.Trim().Length > 0) Then

stang = stang & "สตางค์"

Else

stang = "ถ้วน"

End If



result = result & stang



Return result

End Function

------------------------------------------------

หวังว่าคงเป็นประโยชน์นะครับ

คู่มือการติดตั้งโปรแกรม SQLServer2008 R2 Express

2011-04-28T00:21:00.000-07:00

ไปที่ลิ้งด้านล่างเลยจ้า
คลิ๊กที่นี่
ขอบคุณผู้จัดทำด้วยครับ

tag Blink ไม่ทำงานใน IE8 & Chrome มีวิธีแก้ไขให้ทำแบบนี้นะ

2011-04-27T23:18:00.001-07:00

ตัวนี้ใช้จาวาสคริปช่วยในการแสดงผล โดยปรับ style display

View Code

-------------------------------------------------

<html>

<body>

<script type="text/javascript">



function animateBlink(aa) {

var myTA = document.getElementById(aa);

if (myTA.style.display == '') {

myTA.style.display = 'none';

} else {

myTA.style.display = '';

}

setTimeout("animateBlink('"+aa+"');", 500);

}

setTimeout("animateBlink('data1');", 500);

</script>

<span id="data1">Your text</span>

</body>

</html>

------------------------------------------------

****************
Your text

ใช้ จาวา script ช่วยได้(it work in Chome , IE)

การตั้งค่า IIS ไม่ให้แสดงรูปภาพและ Css

2011-01-19T02:33:00.000-08:00

เนื่องจากผมได้ทดสอบติดตั้ง iis ใหม่ บน windows 7 แต่ผมได้กำหนดค่าไว้ไม่ครับทำให้เว็บที่รันผ่าน iis นั้นรันได้แต่ไม่มีรูปภาพแสดงในเว็บเลย ทำให้ผมต้องหาวิธีไปกำหนดค่าในiis ให้แสดงรูปด้วย ซึ่งสามารถทำการแก้ไขได้ดังนี้
การ set iis ไม่ให้แสดงรูป และ css
    ไปที่ Add Remove Programe
    1 Turn Window Feature on or off
    2 select +Internet Information Services
    3 Select +World Wide Web Services
    4 Select +Common Http Features
    5 check Static Content

หวังว่าจะช่วยบางคนได้ หากพบปัญหาเดียวกัน