UC知道VB 往TextBox中添加数据库的记录
来源：百度知道 编辑：UC知道 时间：2024/09/23 01:38:53
我打算做一个试卷出题系统。
大概的思路如下：题目存在Access数据库中，VB中画两个TextBox，两个ComandButton 按钮。 其中一个TextBox用于载入Aceess的题目，另一个给给用户填写答案。两个按钮用于上下翻题目。
我现在就是不太明白从数据库中往TextBox中读入题目，以及上下翻题目。
麻烦高手指点迷津，最好代码详细点。谢谢！
这是部分代码，如果按下Cmd4(即“下一题”)，他只能显示到数据库中第二题，再往下就没反应了
Private Sub Form_Load()
Dim NextOne2 As New ADODB.Recordset
Dim Sqlstr As String
Dim DBstr As String
Frame1.Visible = True
Frame3.Visible = False
DBstr = "select * from UserTest "
NextOne2.Open DBstr, DBCnn, adOpenStatic, adLockReadOnly
NextOne2.MoveFirst
Text2.Text = NextOne2.Fields("题目").Value
Text3.Text = NextOne2.RecordCount
NextOne2.Close
Private Sub Cmd4_Click()
Dim NextOne2 As New ADODB.Recordset
Dim Sqlstr As String
Dim DBstr As String
DBstr = "select * from UserTest "
NextOne2.Open DBstr, DBCnn, adOpenDynamic, adLockReadOnly
If
大概的思路如下：题目存在Access数据库中，VB中画两个TextBox，两个ComandButton 按钮。 其中一个TextBox用于载入Aceess的题目，另一个给给用户填写答案。两个按钮用于上下翻题目。
我现在就是不太明白从数据库中往TextBox中读入题目，以及上下翻题目。
麻烦高手指点迷津，最好代码详细点。谢谢！
这是部分代码，如果按下Cmd4(即“下一题”)，他只能显示到数据库中第二题，再往下就没反应了
Private Sub Form_Load()
Dim NextOne2 As New ADODB.Recordset
Dim Sqlstr As String
Dim DBstr As String
Frame1.Visible = True
Frame3.Visible = False
DBstr = "select * from UserTest "
NextOne2.Open DBstr, DBCnn, adOpenStatic, adLockReadOnly
NextOne2.MoveFirst
Text2.Text = NextOne2.Fields("题目").Value
Text3.Text = NextOne2.RecordCount
NextOne2.Close
Private Sub Cmd4_Click()
Dim NextOne2 As New ADODB.Recordset
Dim Sqlstr As String
Dim DBstr As String
DBstr = "select * from UserTest "
NextOne2.Open DBstr, DBCnn, adOpenDynamic, adLockReadOnly
If
NextOne2 在cmd4中,永远都是打开后,进行一个MoveNext,当然永远只能显示第二条记录
建议你用一个变量记录当前是第几条记录
假设当前是第N条记录,则
在cmd4的事件中,打开NextOne2 后,用NextOne2.Move N+1来访问第N条的下一条记录
Dim NextOne2 As New ADODB.Recordset
Private Sub Form_Load()
Dim Sqlstr As String
Dim DBstr As String
Frame1.Visible = True
Frame3.Visible = False
DBstr = "select * from UserTest "
NextOne2.Open DBstr, DBCnn, adOpenStatic, adLockReadOnly
NextOne2.MoveFirst
Text2.Text = NextOne2.Fields("题目").Value
Text3.Text = NextOne2.RecordCount
end sub
Private Sub Cmd4_Click()
NextOne2.MoveNext
If NextOne2.EOF Then
Cmd4.Enabled = False
Else
Text2.Text = NextOne2.Fields("题目").Value
end if
end sub