新手问个程序问题,请各们大侠帮忙看下
大家好,我是刚刚学VB的一个菜鸟,最近按一本书编了一个程序,老是出现错误,自己又解决不了,所以请大家帮帮忙,程序是这样的:
Private Sub cmdNext_Click()
objRS.MoveNext '使后一记录成为当前记录 (这一句老是出现错误,说找不到对象)
If objRS.EOF Then '如果记录指针指向最后一个记录之后,就使其指向最后记录
objRS.MoveLast
End If
txtUserName = objRS.Fields("用户名").Value
txtPassword = objRS.Field("口令").Value
txtMsg = objRS.AbsolutePosition & "/" & objRS.RecordCount
End Sub
Private Sub cmdpre_Click()
objRS.MovePrevious '使前一记录成为当前记录
If objRS.BOF Then '如果记录指针指向最前一个记录之前,就使其指向第一个记录
objRS.MoveFirst
End If
txtUserName = objRS.Fields("用户名").Value
txtPassword = objRS.Fields("口令").Value
txtMsg = objRS.AbsolutePosition & "/" & objRS.RecordCount
End Sub
Private Sub Form_Load()
Dim objCn As New ADODB.Connection
With objCn
objCn.ConnectionString = "Provider = SQLOLEDB.1;Password =123 ; Persist Security Info = True;User ID = AAA;Initial Catalog =FENG; Data Source = 219.222.99.247"
objCn.Open
End With
Set objRS = New Recordset
With objRS
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.Open "SELECT *FROM 测试表", objCn
Set .ActiveConnection = Nothing
End With
objCn.Close: Set objCn = Nothing '释放数据库连接
txtUserName = objRS.Fields("用户名").Value
txtPassword = objRS.Fields("口令").Value
txtMsg = objRS.AbsolutePosition & "/" & objRS.RecordCount
End Sub
问题点数：20、回复次数：11Top
1 楼chuting（学习的动力）回复于 2005-03-02 09:29:19 得分 0
没发现什么明显的问题，你可以全部单步调试啊Top
2 楼chendjin（蹭分来了）回复于 2005-03-02 09:48:13 得分 20
DIM objRS AS ADODB.Recordset 为窗体级变量即可Top
3 楼dx_cyb（剑）回复于 2005-03-02 10:05:26 得分 0
objRS未定义Top
4 楼tirone13（？什么？）回复于 2005-03-02 10:10:19 得分 0
建议你在没个程序文件开头都写上
Option Explicit
Top
5 楼penguinMII（企鹅）回复于 2005-03-02 11:52:03 得分 0
OBJRS没定义Top
6 楼fyxsam（）回复于 2005-03-02 16:29:29 得分 0
DIM objRS AS ADODB.Recordset 为窗体级变量即可
我已经按照你说的方法定义了,但是它提示没有找到方法和数据成员,Private Sub cmdNext_Click()这一句提示有错误,,请大家再帮帮小弟吧,谢谢Top
7 楼fyxsam（）回复于 2005-03-02 16:32:46 得分 0
我最后搞成还是objRS.MoveNext 和 objRS.MovePrevious 这里有错,提示说对象关闭时不允许操作,Top
8 楼flyingZFX（卍 南无阿弥陀佛 卍）回复于 2005-03-02 16:33:07 得分 0
DIM objRS AS ADODB.Recordset
写在窗体第二行，第一行为Option ExplicitTop
9 楼fyxsam（）回复于 2005-03-02 16:34:12 得分 0
我最后搞成还是objRS.MoveNext 和 objRS.MovePrevious 这里有错,提示说对象关闭时不允许操作,Top
10 楼fyxsam（）回复于 2005-03-02 16:37:23 得分 0
DIM objRS AS ADODB.Recordset
写在窗体第二行，第一行为Option Explicit
按这样改的话他会提示无效内部进程啊Top
11 楼fyxsam（）回复于 2005-03-02 21:30:49 得分 0
谢谢各位了,是我太笨了,原来真的要在通用那里定义DIM objRS AS ADODB.Recordset
谢谢你们了!!Top
