VB.NET ToUpper() fonksiyonu içinde CultureInfo kullanmak

        Dim uStr As String
        Dim str As String = "iıu"
        uStr = str.ToUpper(New CultureInfo("en-US", False))   'returns IIU

SQL Server'da log dosyasını shrink etmek (kesin çözüm)

SQL Server'da veritabanı ve log dosyasını shrink etmek (Kesin Çözüm)

ALTER DATABASE VeritabaniAdi SET RECOVERY SIMPLE 
GO
DBCC SHRINKDATABASE  ( 'VeritabaniAdi', 0 )
GO
ALTER DATABASE VeritabaniAdi  SET RECOVERY FULL 

VB.NET'te windows schedule ekleme

VB.NET'te windows schedule ekleme

Dim JobID As String = "Test"
Dim mgmtClass As New ManagementClass("Win32_ScheduledJob")
Dim methodArgs(6) As Object 'seven arguments
methodArgs(0) = "Notepad.exe"
methodArgs(1) = "********143000.000000-420"
methodArgs(2) = True
methodArgs(3) = 1 Or 4 Or 16 'days of the week? 
methodArgs(4) = Nothing
methodArgs(5) = True
Methodargs(6) = JobID
'Execute the method
Dim errorNum As Integer = mgmtClass.InvokeMethod("Create", methodArgs)
MsgBox(errorNum) 'Zero means success. 

http://social.msdn.microsoft.com/Forums/en-US/vblanguage/thread/04eca99a-d167-4388-b010-7d5ded0da86e/

http://msdn.microsoft.com/en-us/library/aa394399(VS.85).aspx

VB.NET'de dosya adı değiştirmek

VB.NET'de dosya adı değiştirmek

My.Computer.FileSystem.RenameFile("c:\foldername\test.txt", "test2.txt")

Transact-SQL: DATETIME tipindeki veriden saat bilgisi olmadan sadece DATE kısmını almak.

SELECT (CAST(YEAR([Date]) AS VARCHAR(4)) + '-' + RIGHT('00' + CAST(MONTH([Date]) AS VARCHAR(2)),2) + '-' + RIGHT('00' + CAST(DAY([Date]) AS VARCHAR(2)),2)) AS [strDate], * FROM appointment

SELECT CONVERT(DATE, CAST([Date] AS VARCHAR), 120) AS [strDate], * FROM appointment

VB.NET: ListView HitTest Kullanımı

ListViewHitTestInfo Kullanımı

    Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim ht As ListViewHitTestInfo = ListView1.HitTest(New Point(e.X, e.Y))
            MessageBox.Show(ht.Item.Index.ToString & " - " & ht.SubItem.Text)
        End If
    End Sub