首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 如何在文本框中显示数据库信息? [已结贴,结贴人:macd43561]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • macd43561
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    • 揭贴率：
    发表于：2008-08-21 19:04:11 楼主
    麻烦各位帮忙看看,我下面这段代码哪边有问题?在文本框text2中不能显示结果
    Private Sub Form_Load()
    Dim sql As String
    sql = "select * from reader where 编号='" & Trim(Text1.Text) & "'"
    Dim rs_xx As New ADODB.Recordset
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    Set rs_xx = New ADODB.Recordset
    cn.ConnectionString = "Driver={sql server};server=asus-aae1968d45;uid=sa;pwd=123;database=book"
    cn.Open
    rs_xx.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
    Do While Not rs_xx.EOF
    Text2.Text = rs_xx.Fields(1)
    rs_xx.MoveNext
    Loop
    End Sub
    谢谢了!
    50  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • uself
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 19:08:171楼 得分:10
    rs_xx.MoveFirst
    Do While Not rs_xx.EOF
    Text2.Text = rs_xx.Fields(1)
    rs_xx.MoveNext
    Loop
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • uself
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 19:09:412楼 得分:0
    rs_xx.MoveFirst
    Text2.Text = rs_xx.Fields(1)
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fvflove
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-08-21 19:10:113楼 得分:40
    Private Sub Form_Load()
      Dim sql As String
      sql = "select * from reader where 编号='" & Trim(Text1.Text) & "'"
      Dim rs_xx As New ADODB.Recordset
      Dim cn As ADODB.Connection
      Set cn = New ADODB.Connection
      Set rs_xx = New ADODB.Recordset

      cn.ConnectionString = "Driver={sql server};server=asus-aae1968d45;uid=sa;pwd=123;database=book"
      cn.Open
      rs_xx.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText

    'rs_xx.MoveFirst  '加上此句

      Do While Not rs_xx.EOF
          Text2.Text = rs_xx.Fields(1)
          rs_xx.MoveNext
      Loop
    End Sub

    '如果还没有显示,可能是表示:未有找到数据.即查找到的结果为空.
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • macd43561
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 20:09:034楼 得分:0
    为什么我加上以后会出现
    实时错误'3021'
    BOF或EOF中有一个是"真",或者当前的记录已被删除,所需的操作要求一个当前的记录.

    数据库中有记录的啊
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fvflove
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-08-21 20:10:315楼 得分:0
    实时错误'3021'
    BOF或EOF中有一个是"真",或者当前的记录已被删除,所需的操作要求一个当前的记录.


    OK了,你查到的记录数为空.才会出现此错误.

    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • macd43561
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-21 20:18:296楼 得分:0
    但是我text1.text中有值啊
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fvflove
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：

    • 2
    发表于：2008-08-21 20:23:057楼 得分:0
    我...
    Text1.text有值了.那在那一句显示错误?
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • macd43561
    • 等级:
    • 可用分等级：
    • 总技术分：
    • 总技术分排名：
    发表于：2008-08-22 07:11:548楼 得分:0
    谢谢!,可能是text1.text是从登陆界面连接过来的,有点问题
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved