السلام عليكم ورحمة الله وبركاته
واجهتني مشكله عندما اقوم بعمل تحديث للمعلومات او تعديل وهي كالتالي
انا لما اريد التعديل على موضوع معين اقوم بسحب المعلومات من قاعدة البانات وعرضها على Textbox حتي يقدر المستخدم يقرأ البيانات القديمه ويعمل التحديث والتعديل عليها
-المشكلة اللي صارت هي-
اني لما اعمل تعديل واسوي حفظ ينفذ امر التحديث صح ولكن ماياخذ الا البيانات اللي قبل التعديل يعني يحفظ النص الاصلي فقط مع اني اعدل داخل textbox
وهذا الكود:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strCn1 As String
strCn1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb")
Dim cn1 As New OleDbConnection(strCn1)
cn1.Open()
Dim comm1 As New OleDbCommand
Dim read1 As OleDbDataReader
comm1.CommandText = "select title,new from news where id=" & Request.QueryString("ID")
comm1.Connection = cn1
read1 = comm1.ExecuteReader
read1.Read()
TextBox1.Text = read1("title")
TextBox2.Text = read1("new")
cn1.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim strCn As String
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb")
Dim cn As New OleDbConnection(strCn)
cn.Open()
Dim comm As New OleDbCommand
comm.CommandText = "update news set wname = '" & Session("username") & "' , title = '" & TextBox1.Text & "' , new = '" & TextBox2.Text & "', N_date = '" & Now() & "' where id ='" & Request.QueryString("ID") & "'"
comm.Connection = cn
comm.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
response.write("Error!!")
End Try
End Subتحياتي للجميع