Asp Net te Mesaj Gönderme

Bu örneğimizde asp.net te mesaj gönderme konusuna değineceğiz. Formunuza 3 adet TextBox,2 adet Button, 1 adet Linkbutton ekleyin. Aşağıda Şekil 1 de gösterildiği gibi formunuzu oluşturun. Default2.aspx te
GridView nesnesinde kaydedilen mesajları
göstereceğiz...Bahadirsa

Şekil 1

Şekil 2

Şekil 3

Default.aspx.vb kodları:

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = "Gönderenin Adı Soyadı:"
        Label2.Text = "Konu Başlığı:"
        Button1.Text = "Temizle"
        Button2.Text = "Mesajı Gönder"
        TextBox3.TextMode = TextBoxMode.MultiLine
        LinkButton1.Text = "Tüm Yazılan Mesajları Görmek İçin Linke Tıklayınız...Bahadirsa "
        Label3.Visible = False
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("Lütfen bütün kısımları doldurunuz...")
        End If

        If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then

            Dim baglan As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\bahadirsamesaj.mdf;Integrated Security=True;User Instance=True")

            Dim adp As New Data.SqlClient.SqlDataAdapter
            adp.SelectCommand = New Data.SqlClient.SqlCommand("Select * From mesajlar", baglan)
            Dim CB As Data.SqlClient.SqlCommandBuilder = New Data.SqlClient.SqlCommandBuilder(adp)

            baglan.Open()
            Dim ds1 As New Data.DataTable
            adp.Fill(ds1)

            Dim rw1 As Data.DataRow
            rw1 = ds1.NewRow
            ‘Datasetimiz için yeni bir satır tanımlıyoruz

            Dim x1 As Integer
            x1 = ds1.Rows.Count ‘Veritabanımızdaki kayıt sayısı

            rw1.Item("ad") = TextBox1.Text
            rw1.Item("konubaslik") = TextBox2.Text
            rw1.Item("mesaj") = TextBox3.Text

            ds1.Rows.InsertAt(rw1, x1 + 1)

            adp.Update(ds1)

            adp.InsertCommand = New Data.SqlClient.SqlCommand("Insert * From mesajlar", baglan)

            adp.UpdateCommand = New Data.SqlClient.SqlCommand("Update * From mesajlar", baglan)

            Dim cmd As Data.SqlClient.SqlCommand = New Data.SqlClient.SqlCommand("Select * From mesajlar", baglan)
            Try

                cmd.ExecuteNonQuery()

            Catch

                MsgBox("Veritabanında Hata...Bahadirsa")

            Finally

                cmd.Dispose()

            End Try
            Label3.Visible = True
            Label3.Text = "Mesajınız Başarıyla Gönderildi...Bahadirsa"
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            baglan.Close()
       
        End If
      
    End Sub

  
    Protected Sub LinkButton1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Load
        LinkButton1.PostBackUrl = "Default2.aspx"
    End Sub
End Class

Default2.aspx e aşağıdaki kodları yazın.

Default2.aspx kodlari:

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        LinkButton1.Text = "<<< Ana Sayfa"
        Dim baglan As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\bahadirsamesaj.mdf;Integrated Security=True;User Instance=True")

        Dim adp As New Data.SqlClient.SqlDataAdapter
        adp.SelectCommand = New Data.SqlClient.SqlCommand("Select * From mesajlar", baglan)
        Dim CB As Data.SqlClient.SqlCommandBuilder = New Data.SqlClient.SqlCommandBuilder(adp)

        baglan.Open()
        Dim ds1 As New Data.DataTable
        adp.Fill(ds1)

        Dim rw1 As Data.DataRow
        rw1 = ds1.NewRow
        ‘Datasetimiz için yeni bir satır tanımlıyoruz

      
        adp.Update(ds1)

        adp.InsertCommand = New Data.SqlClient.SqlCommand("Insert * From mesajlar", baglan)

        adp.UpdateCommand = New Data.SqlClient.SqlCommand("Update * From mesajlar", baglan)

        Dim cmd As Data.SqlClient.SqlCommand = New Data.SqlClient.SqlCommand("Select * From mesajlar", baglan)
        Try

            cmd.ExecuteNonQuery()

        Catch

            MsgBox("Veritabanında Hata...Bahadirsa")

        Finally

            cmd.Dispose()

        End Try

        GridView1.DataSource = ds1.DefaultView
        GridView1.DataBind()

        baglan.Close()
    End Sub

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

    Protected Sub LinkButton1_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        LinkButton1.PostBackUrl = "Default.aspx"
    End Sub

Faydalı olması dileğiyle. Bir sonraki makalede görüşmek üzere...Bahadirsa