一点VB上的问题,请高手们留步帮个小忙,谢谢~~
大家好,我是VB新手,接触一个多星期,困难重重啊,下面是小弟我的困难之一,希望高手们不吝赐教~
代码如下,其中command1是添加功能,command6和command7分别是上一个和下一个功能
其他的功能待写,添加功能是好使的,能添加上,只是担心有些情况会不适用,各位看看有没有缺陷
关键的是上一个和下一个功能,怎么点都没反应,始终定位在初始的那一条记录或者刚添加上的记录上
麻烦朋友们分析下是什么原因,在下先行谢过~
Dim Rs As New ADODB.Recordset
Private Sub Form_Load()
Dim Cn As New ADODB.Connection
Dim cnstr As String
Dim Sql As String
cnstr = "provider=sqloledb;User ID = sa;password = 880805;initial catalog = 小区物业管理;Data Source = WAXSNYBB\WAXSN"
Cn.Open cnstr
Sql = "select * from 业主信息"
Rs.CursorLocation = adUseClient
Rs.Open Sql, Cn, adOpenDynamic, adLockOptimistic
Text1.Text = Rs(0)
Text2.Text = Rs(1)
Text3.Text = Rs(2)
Text4.Text = Rs(3)
Text5.Text = Rs(4)
Text6.Text = Rs(5)
Text7.Text = Rs(6)
End Sub
Private Sub Command1_Click()
If Command1.Caption = "添加" Then
Command1.Caption = "确认"
Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""
Text5.Text = "": Text6.Text = "": Text7.Text = ""
Text1.SetFocus
Else
Command1.Caption = "添加"
Rs.AddNew
Rs("业主编号") = Trim(Text1.Text)
Rs("业主姓名") = Trim(Text2.Text)
Rs("联系方式") = Trim(Text3.Text)
Rs("住宅面积") = Trim(Text4.Text)
Rs("家庭成员") = Trim(Text5.Text)
Rs("入住日期") = Trim(Text6.Text)
Rs("备注") = Trim(Text7.Text)
Rs.Update
End If
End Sub
Private Sub Command6_Click()
Rs.MovePrevious
If Rs.BOF Then
Rs.MoveFirst
End If
End Sub
Private Sub Command7_Click()
Rs.MoveNext
If Rs.EOF Then
Rs.MoveLast
End If
End Sub
[解决办法]
你所有的函数都没有错误处理
on error ....
至少需要加上这个
[解决办法]
刷新界面！
移动记录后还需要将内容显示到界面上。
[解决办法]
移动了指针后，你的textbox不会知道你指示的记录已经改变，所以你在moveprevious和movenext后要显示移动后的记录：
在后面添加：
Text1.Text = Rs(0)
Text2.Text = Rs(1)
Text3.Text = Rs(2)
Text4.Text = Rs(3)
Text5.Text = Rs(4)
Text6.Text = Rs(5)
Text7.Text = Rs(6)
