Belirli bir günden önceki dosyaları silme metodu.
Aşağıdaki metod ile "folderPath" klasöründe beforeDayCount parametresinde belirtilen gün sayısından daha önce oluşturulmuş dosyalar silinir.
Public Shared Sub DeleteFiles(folderPath As String, Optional beforeDayCount As Integer = 30)
If (folderPath.Trim() <> "" And beforeDayCount <> 0) AndAlso System.IO.Directory.Exists(folderPath) Then
Dim folderInfo As New System.IO.DirectoryInfo(folderPath)
Dim fileList As System.IO.FileInfo() = folderInfo.GetFiles()
For Each fi As System.IO.FileInfo In fileList
If fi.LastWriteTime <= DateAdd(DateInterval.Day, IIf(beforeDayCount < 0, beforeDayCount, -1 * beforeDayCount), Date.Now) Then
Try
System.IO.File.Delete(fi.FullName)
Catch ex As Exception
End Try
End If
Next
End If
End Sub
Sunday, December 11, 2016
Friday, September 9, 2016
ASP.NET Web Service ile NT Domain Hesabı Kullanarak SQL Server'a Bağlanmak (Impersonation Yöntemi ile)
Kurumsal projelerde kullanılan sql generic user, şifre gereksinimi ve şifrenin belirli aralıklarla değiştirilmek istenmesi nedeniyle sorunlara neden olmaktadır. Bu nedenle sql user yerine bir domain üzerinde tanımlı nt user kullanarak şifre ihtiyacını ortadan kaldırmak mümkün.
1) Öncelikle web service’in kurulacağı app server üzerinde svctest adında bir domain user’ı oluşturulup ardından aynı user için SQL Server’daki ilgili database’ e db_owner hakkı verilmelidir.
2) IIS üzerine web service eklenmeden önce Application Pool oluşturulması gerekmektedir. Aşağıdaki şekilde oluşturulmalıdır.
TLS1.2 desteği isteniyorsa .NET CLR sürümü v4.5 ve üzeri olmalıdır.
1) Öncelikle web service’in kurulacağı app server üzerinde svctest adında bir domain user’ı oluşturulup ardından aynı user için SQL Server’daki ilgili database’ e db_owner hakkı verilmelidir.
2) IIS üzerine web service eklenmeden önce Application Pool oluşturulması gerekmektedir. Aşağıdaki şekilde oluşturulmalıdır.
TLS1.2 desteği isteniyorsa .NET CLR sürümü v4.5 ve üzeri olmalıdır.
Monday, August 22, 2016
JQuery.FileDownload plugin'i ile dosya download edilmesi
JQuery.FileDownload (https://github.com/johnculviner/jquery.fileDownload) plugin'ini düzgün çalıştırabilmek için Set-Cookie ve Cache-Control header larının code behind kısmında eklenmesi gerekiyor.
Download.aspx.vb
Response.Clear()
Dim timestamp As String =
Request.QueryString("timestamp")
timestamp = CodeHelper.CheckClientContent(timestamp)
Dim fileName As String = "File_" &
timestamp & ".xlsx"
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
Response.AddHeader("Content-Disposition", "attachment;filename=" &
fileName)
Response.AddHeader("Set-Cookie",
"fileDownload=true; path=/")
Response.AddHeader("Cache-Control",
"no-cache, no-store, must-revalidate")
EPPlus ile oluşturulmuş excel dosyanın download edilmesi
pck EPPlus package nesnesidir. Aşağıdaki kod try-catch bloğu içerisinde olmalıdır ve ThreadAbortException hatası kesinlikle handle edilmelidir.
Response.Clear()
Dim timestamp As String = Request.QueryString("timestamp")
timestamp = CodeHelper.CheckClientContent(timestamp)
Dim fileName As String = "File_" & timestamp & ".xlsx"
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
Response.AddHeader("Content-Disposition", "attachment;filename=" & fileName)
Using myMemoryStream As New MemoryStream
pck.SaveAs(myMemoryStream)
myMemoryStream.WriteTo(Response.OutputStream)
Response.Flush()
Response.End()
End Using
Tuesday, August 2, 2016
Linq ile Datatable'daki bir kolona ait distinct verileri list olarak alma
Dim sku_id_list = (From row In dtReturn.AsEnumerable()
Select row.Field(Of Integer)("sku_id")).Distinct().ToList()
Select row.Field(Of Integer)("sku_id")).Distinct().ToList()
Friday, July 22, 2016
SQL Server'da text split etme
Unutmamak için buraya ekledim. İnceledikten sonra konuyla ilgili buraya bir şeyler karalayacağım.
SELECT Source = q.value('(/n[1])', 'varchar(10)'),
RecordType = q.value('(/n[2])', 'varchar(20)'),
RecordNumber = q.value('(/n[3])', 'int'),
Status = q.value('(/n[4])', 'varchar(5)')
FROM (
SELECT q = Convert(xml,'<n>'+Replace(fieldName,'.','</n><n>')+'</n>')
FROM some_TABLE
) Q
'How do I split a string so I can access item x?
Subscribe to:
Posts (Atom)
