|
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.
Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!
|
 Çevrimiçi Üyeler
feb123
Üye Sayısı:    
Ziyaretçiler nerede?
| |
|
"ASP.Net Verileri alma ve Kaydetme Sorunu"
Merhaba arkadaşlar sayfam ilk yüklenirken verilerimi rahatça alıyorum. Ancak textlerde bir değişiklik yaptığımda ve kaydet butonuna bastığım zaman kaydetmiyor. Hem butonun clik olayı hemde sayfanın page_load olayı çalışıyor. Lütfen yardım edin bu sorunu nasıl aşabilirim.
Imports System.Data.OleDb
Imports System.Data
Partial Class Deneme
Inherits System.Web.UI.UserControl
Protected Sub CmdKaydet_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdKaydet.Click
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=" & Server.MapPath("App_DataDeneme.mdb"))
Cn.Open()
Dim Ssql As New OleDbCommand("UPDATE Tbl_Kisiler SET Adi=@Adi,Soyadi=@Soyadi where SiraNo=@SiraNo", Cn)
Ssql.Parameters.Add("@Adi", OleDbType.Variant).Value = TextBox1.Text
Ssql.Parameters.Add("@Soyadi", OleDbType.Variant).Value = TextBox2.Text
Ssql.Parameters.Add("@SiraNo", OleDbType.Variant).Value = 1
Ssql.ExecuteNonQuery()
Cn.Close()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=" & Server.MapPath("App_DataDeneme.mdb"))
Cn.Open()
Dim Ssql As New OleDbCommand("Select * From Tbl_Kisiler", Cn)
Dim Rs As OleDbDataReader
Rs = Ssql.ExecuteReader
Rs.Read()
TextBox1.Text = Rs.Item("Adi")
TextBox2.Text = Rs.Item("Soyadi")
Rs.Close()
Cn.Close()
End Sub
End Class
  shener | 04.03.2010 12:29
|
verileri alırken potback kontrolu yapmalısın
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
if ispostback=false then
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;data source=" & Server.MapPath("App_DataDeneme.mdb"))
Cn.Open()
Dim Ssql As New OleDbCommand("Select * From Tbl_Kisiler", Cn)
Dim Rs As OleDbDataReader
Rs = Ssql.ExecuteReader
Rs.Read()
TextBox1.Text = Rs.Item("Adi")
TextBox2.Text = Rs.Item("Soyadi")
Rs.Close()
Cn.Close()
end if
End Sub
End Class
sahinkalem | 30.04.2010 00:02 |
|
Tüm Kategoriler |
ASP/ASP.Net |
ASP/ASP.Net 1. Sayfa
|
|
