| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 514 人关注过本帖
标题:幫我看下問題(新問題)
取消只看楼主 加入收藏
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
结帖率:70%
收藏
 问题点数:0 回复次数:2 
幫我看下問題(新問題)
private sub command1_click()
  Dim strcn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\t_login.mdb"
            Dim cn As New OleDbConnection(strcn)
            '  Dim command As OleDbCommand
            Dim ap As New OleDbDataAdapter
            Dim ds As New DataSet
            cn.Open()
            Dim mysql As String
            mysql = "select id,password1 from t_login"
            ap = New OleDbDataAdapter(mysql, cn)
            ap.Fill(ds, "t_login")
            cn.Close()
            Me.TextBox1.DataBindings.Add("text", ds, "t_login.id")
            Me.TextBox2.DataBindings.Add("text", ds, "t_login.password1")

        Catch ex As Exception
            MsgBox("有錯我就出現")
            Exit Sub
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.BindingContext(ds, "t_login").Position = 0
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TextBox1.BindingContext(ds, "t_login").Position += 1
    End Sub
End Class
點觸發了,下一 頁後,再點顯示,不會重新檢索數據,還是下一頁那筆數據

[ 本帖最后由 jxyga111 于 2011-7-12 11:59 编辑 ]
2011-07-11 13:39
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
那個我知道問題所在了。因為文本的內容差生錯誤
那為何我做的下一條記錄不行。此方案是按教程來的

烈焰照耀世界,斌凍凍千萬裏
2011-07-12 11:09
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
已解決謝謝

烈焰照耀世界,斌凍凍千萬裏
2011-07-12 11:19
快速回复:幫我看下問題(新問題)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016547 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved