Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQl As StringPrivate Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\电子期刊查询.mdb"strSQl = "select * from 作者表 "rs.Open strSQl, cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF And Not rs.BOF Then
txtName= rs!作者名
Else
MsgBox "没有找到作者的记录"
rs.Close
Exit Sub
End If
rs.close
End SubPrivate Sub cmdNext_Click()
End sub
问题:我想点按钮cmdNext的时候叫txtName显示下一个作者,怎么办?
Dim rs As New ADODB.Recordset
Dim strSQl As StringPrivate Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\电子期刊查询.mdb"strSQl = "select * from 作者表 "rs.Open strSQl, cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF And Not rs.BOF Then
txtName= rs!作者名
Else
MsgBox "没有找到作者的记录"
rs.Close
Exit Sub
End If
rs.close
End SubPrivate Sub cmdNext_Click()
End sub
问题:我想点按钮cmdNext的时候叫txtName显示下一个作者,怎么办?
解决方案 »
- vb兼职程序员
- 大数据量循环判断,常规方法速度太慢,敬请高手"提速"(附常规方法程序源码)
- 求助!无法为更新定位行!
- <急>能否把多个文件一起存入Access的OLE字段?
- 在没有循环体下用DoEvents
- 求对话框里,checkbox控件的个数?
- 大家再来拿分了,小问题,在线请教!
- 如何在局域网的WEB上发布自己写的控件??急~~~~~~~~~~~~~
- ShockwaveFlash1.SetVariable "commentMC.input_txt.text", "aaaaaa"
- 一个辣手的问题!!!!!!!!!!!!
- ACCESS SQL NEW OBJECT!!!!!!!!!!!!!!!!!!!!F
- 急急急!!!如何打开FSO(FileSystemObject)权限?
Private Sub cmdNext_Click()
rs.movenext
txtName= rs!作者名
End sub
去掉后。
Private Sub cmdNext_Click()
if rs.eof then
rs.movelast
elseif rs.bof then
rs.movefirst
else
rs.movenext
end if
txtname.text=iif(isnull(rs.fields("作者名").value),"",rs.fields("作者名").value)
End sub
Dim rs As New ADODB.Recordset
Dim strSQl As StringPrivate Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\电子期刊查询.mdb"strSQl = "select * from 作者表 "rs.Open strSQl, cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF And Not rs.BOF Then
txtName= rs!作者名
Else
MsgBox "没有找到作者的记录"
rs.Close
Exit Sub
End IfEnd SubPrivate Sub cmdNext_Click()
If rs.EOF Then
rs.MoveLast
txtName= rs!作者名
Else
rs.MoveNext
If rs.EOF Then
rs.MoveLast
txtName= rs!作者名
Else
txtName= rs!作者名
End If
End If
End sub
Dim rs As New ADODB.Recordset
Dim strSQl As StringPrivate Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\电子期刊查询.mdb"strSQl = "select * from 作者表 "rs.Open strSQl, cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF And Not rs.BOF Then
txtName= rs!作者名
Else
MsgBox "没有找到作者的记录"
rs.Close
Exit Sub
End IfEnd SubPrivate Sub cmdNext_Click()
If rs.EOF Then
rs.MoveLast
txtName= rs!作者名
cmdnext.enable=false
Else
rs.MoveNext
If rs.EOF Then
rs.MoveLast
txtName= rs!作者名
cmdnext.enable=false
Else
txtName= rs!作者名
End If
End If
End sub