چک کردن وجود دیتابیس در SQLSERVER2005 از طریق VB.NET

        Dim con As New SqlClient.SqlConnection("data source = .sqlexpress;database = master ; Integrated Security=True")
        Dim cmd As New SqlClient.SqlCommand(Nothing, con)
        Dim reader As SqlClient.SqlDataReader
        cmd.CommandText = "SELECT count(*) FROM sys.sysdatabases WHERE [NAME]='pubs'"
        Try
            con.Open()
            Dim a As Integer = CType(cmd.ExecuteScalar(), Integer)
            If a > 0 Then
                MessageBox.Show("Your database exist...")
            Else
                MessageBox.Show("Not found....")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        con.Close()

جملات نقض

اَللّهُمَّ کُنْ لِوَلِیِّکَ الْحُجَّةِ بْنِ الْحَسَنِ صَلَواتُکَ عَلَیْهِ وَعَلى آبائِهِ فی هذِهِ السّاعَةِ وَفی کُلِّ ساعَةٍ وَلِیّاً وَحافِظاً وَقائِداً وَناصِراً وَدَلیلاً وَعَیْناً حَتّى تُسْکِنَهُ أَرْضَکَ طَوْعاً وَتُمَتِّعَهُ فیها طَویلاً

آموختن بدون اندیشیدن رنجی است بیهوده و اندیشیدن بدون آموختن کاری است بس خطرناک

امانوئل کانت : در به کار گیری فهم خویش دلیر باش !!!

برای شنا کردن به سمت مخالف رودخانه، قدرت و جرات لازم است . وگرنه هر ماهی مرده ای هم می تواند از طرف موافق جریان آب حرکت کند . دکتر علی شریعتی

هرچه داناتر بشوی، از دست دادن وقت برایت آزار دهنده تر است.

هر روز در اطراف ما هزاران سیب از درخت به زمین می افتد اما آنچه وجود ندارد دیدگاه نیوتنی است.

زندگی مثل دوچرخه سواری می مونه ..واسه حفظ تعادلت همیشه باید در حرکت باشی ....آلبرت انیشت

بدترین گناه این است که به کسی که تو را راستگو می پندارد دروغ بگویی.
شکسپیر

انتقال ساده مکان نما

Private Sub fMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.Up
Me.SelectNextControl(Me.ActiveControl, False, True, False, True)

Case Keys.Down
Me.SelectNextControl(Me.ActiveControl, True, True, False, True)

End Select

End Sub