一更新问题!!!

Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(ConfigurationSettings.AppSettings("LawConnStr"))
        Dim sql As String = "Update pic set pic" & CStr(Request("no")) & "='" & TextBox1.Text & "',txt" & CStr(Request("no")) & "='" & TextBox2.Text & "',lei" & CStr(Request("no")) & "='" & TextBox3.Text & "',prono" & CStr(Request("no")) & "='" & TextBox4.Text & "',yang" & CStr(Request("no")) & "='" & TextBox5.Text & "',pro" & CStr(Request("no")) & "='" & TextBox6.Text & "' where id=" & CInt(Request("id"))
        Dim Cmd As New System.Data.OleDb.OleDbCommand(sql, conn)
        conn.Open()
        Cmd.ExecuteNonQuery()
        conn.Close()
    End Sub
textbox改变时.更新语句里的textbox始终没变,所以总是更新不了,请高手帮我看看啊!!!

Answer 1

呵呵。你没有在page_load事件中写
if not ispostback then
''拌定数据
end if加个if not ispostback就可以了。不然你每次都重新拌定。。所以更新不了

Answer 2

在Page_Load事件里加上If Not IsPostBack判断，这样可以使得你的数据不会每次点按扭的时候都重新从数据库中读一次，可以保证你的textbox的值是你刚才填的值。

Answer 3

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load               If Not Page.IsPostBack Then
            把你对textBox的初始化赋值放在这儿         
        End If
    End Sub

Answer 4

if not ispostback then
''拌定数据
end if里面的绑定数据应该怎么写啊?    谢谢!!

Answer 5

按钮一按，就开始从page_load执行，你的page_load中一定有对textBox操作的代码

Answer 6

一定要在page_load中写，让页面加载时显示，则会达到你的效果！

Answer 7

if not ispostback then
''数据绑定
end if

Answer 8

这个问题经常见啊．．．导致这样的问题是由于回发引起的，楼主需要将绑定ＴextBox的代码放在
If Not IsPost Back 
'绑定代码
End If
里．

Answer 9

其实这个问题最多是的关于DropDownList的绑定问题的．接分了，楼主．

Answer 10

if not ispostback then
  数据绑定
end if

Answer 11

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       if not ispostback then
  xx()
      end if
end sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        xx()
    End Sub    Sub xx()
        Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(ConfigurationSettings.AppSettings("LawConnStr"))
        Dim sql As String = "Update pic set pic" & CStr(Request("no")) & "='" & TextBox1.Text & "',txt" & CStr(Request("no")) & "='" & TextBox2.Text & "',lei" & CStr(Request("no")) & "='" & TextBox3.Text & "',prono" & CStr(Request("no")) & "='" & TextBox4.Text & "',yang" & CStr(Request("no")) & "='" & TextBox5.Text & "',pro" & CStr(Request("no")) & "='" & TextBox6.Text & "' where id=" & CInt(Request("id"))
        Dim Cmd As New System.Data.OleDb.OleDbCommand(sql, conn)
        conn.Open()
        Cmd.ExecuteNonQuery()
        conn.Close()
    End Sub我是这样写的,还有什么问题吗??

Answer 12

楼主的各位都以为你的TextBox是从数据库里读出来后绑定上的．我刚才看了一下，好像不是哪样的．如果不是，那也就没有必要IsPostBack与否了．

Answer 13

但是你的Sql写的太乱,让人很难看清楚.
不知道楼主为什么要这样写代码呢?CStr(Request("no")) 是什么意思?有什么意义?

Answer 14

像这样的操作最好用Parameters问题就会得以解决.
不要把简单问题复杂化了.

Answer 15

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(ConfigurationSettings.AppSettings("LawConnStr"))
        Dim sql As String = "Update pic set pic" & CStr(Request("no")) & "=@pic,txt" & CStr(Request("no")) & "=@txt,lei" & CStr(Request("no")) & "=@lei,prono" & CStr(Request("no")) & "=@prono,yang" & CStr(Request("no")) & "=@yang,pro" & CStr(Request("no")) & "=@pro where id=" & CInt(Request("id"))
        Dim Cmd As New System.Data.OleDb.OleDbCommand(sql, conn)
        Cmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@pic", System.Data.OleDb.OleDbType.VarChar, 100))
        Cmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@txt", System.Data.OleDb.OleDbType.VarChar, 100))
        Cmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@lei", System.Data.OleDb.OleDbType.VarChar, 100))
        Cmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@prono", System.Data.OleDb.OleDbType.VarChar, 100))
        Cmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@yang", System.Data.OleDb.OleDbType.VarChar, 100))
        Cmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@pro", System.Data.OleDb.OleDbType.VarChar, 100))
        Cmd.Parameters("@pic").Value = TextBox1.Text
        Cmd.Parameters("@txt").Value = TextBox2.Text
        Cmd.Parameters("@lei").Value = TextBox3.Text
        Cmd.Parameters("@prono").Value = TextBox4.Text
        Cmd.Parameters("@yang").Value = TextBox5.Text
        Cmd.Parameters("@pro").Value = TextBox6.Text
        conn.Open()
        Cmd.ExecuteNonQuery()
        conn.Close()
    End Sub谢谢啊!   是这样吗!!