Sadece mantığı anlatacağım ve Vb.net kodları paylaşcam.
İlk önce veritabanı tablomu oluşturdum.
Sohbet tablosunun alanları:
id otomatik sayı
gonderen metin
mesaj text
saat metin
şeklinde belirledim.
Safyama ise bir adet update panel ekledim ve bunun içerisine birtane Datalist ve birtane Timer yerleştirdim. Bunların dışında ise bir adet textbox ve bir buton yerleştirdim. Butona tıklandığında yazdığımız yazı veritabanımıza gircek. Sayfanın en altına yada en üstüne bir adette label ekliyoruz. Bu labele sessiondan yada cookie den aldığımız üye ismimizi atıyoruzki her defasında veritabnında üye adını arayıp işlemcimizi yormayalım.
İlk olarak Timer'ımızın çalışma aralığını 500 olarak belirleyelim (yarım saniye) bunu 1000 olarakta kullanabilirsiniz. Daha sonra timerla veri tabanına bağlanarak sohbet tablosuna eklenmiş son 20 veriyi ekranımıza taşıması için sorgumuzu yazıyoruz.
Ardından form load olayında session yada cooike den uye id numarasını alarak uyelerim tablomda ki konumunu sorguluyor ve elde ettiğim uye adı değerini eklediğim labelime aktarıyorum.
Buttonın clik olayında ise insert into deyimini kullanarak veritabanına yazılan mesaj kaydediyoruz. Kaydedilen mesajın hemen ekrana çıkması içinde komutu ExecuteNonQuery ile çalıştırdıktan hemen sonra timer ımızdaki sorgunun aynısı kullanarak datalistimize verileri çekiyoruz.
Umarım anlatabilmişimdir. Örnek kodlar aşağıda mevcuttur.
Bunu kendiniz geliştirebilirsiniz. Smile özellikleri katabilirsiniz.
Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles sohbetyenile.Tick
Dim c As New OleDbConnection
c.ConnectionString = "Provider=microsoft.jet.oledb.4.0; Data Source=" & Server.MapPath("App_Data/veritabani.mdb")
c.Open()
Dim ds As New DataSet
Dim adap As New OleDbDataAdapter("select top 20 * from sohbet order by id desc", c)
adap.Fill(ds, "dol")
DataList3.DataSource = ds.Tables(0)
DataList3.DataBind()
c.Close()
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim c As New OleDbConnection
c.ConnectionString = "Provider=microsoft.jet.oledb.4.0; Data Source=" & Server.MapPath("App_Data/vdeposu.mdb")
c.Open()
Dim komut As New OleDbCommand("insert into sohbet(gonderen,mesaj,saat) values('" & uyeninadi.Text & "','" & TextBox3.Text & "','" & Now.TimeOfDay & "')", c)
komut.ExecuteNonQuery()
Dim ds As New DataSet
Dim adap As New OleDbDataAdapter("select top 20 * from sohbet order by id desc", c)
adap.Fill(ds, "dol")
DataList3.DataSource = ds.Tables(0)
DataList3.DataBind()
c.Close()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim couye As HttpCookie = Request.Cookies("coid")
Dim giris As String
If couye IsNot Nothing Then
giris = couye("oid")
ElseIf Session("ksbid") Then
giris = Session("ksbid")
Else
Response.Redirect("uyegiris.aspx")
End If
Dim c As New OleDbConnection
c.ConnectionString = "Provider=microsoft.jet.oledb.4.0; Data Source=" & Server.MapPath("App_Data/vdeposu.mdb")
c.Open()
Dim ds As New DataSet
Dim adap As New OleDbDataAdapter("select * from uyelerim where id=" & giris, c)
adap.Fill(ds, "ola")
Dim kayit As DataRow = ds.Tables(0).Rows(0)
uyeninadi.Text = kayit("uyeadialani").ToString
c.Close()
End Sub