none
请高手帮我看看这段代码吧,关于vb的Recordset对象 RRS feed

  • 问题

  • 引用了microsoft DAO3.6 Object Library
    代码如下:

    Dim db As Database
    Dim rs As Recordset

    Private Sub Command1_Click()

    Dim dbpath As String
      
       dbpath = "C:\Documents and Settings\Administrator\桌面\3\订票管理系统.mdb"
       Set db = OpenDatabase(dbpath)
       Set rs = db.OpenRecordset("机票信息表")
       Set rs = db.Execute("select 座席等级 from 机票信息表 where 机票编号='BC002'")    'rs指向机票信息表中机票编号字段为BC002的记录
       Text1.Text = rs.Fields("乘客姓名")                                                                        '输出该记录乘客姓名字段的值
      
    End Sub

    运行冒错,请大家帮我看看,感激不尽!
    我是新手,请别见笑!

    2009年7月14日 5:45

答案

全部回复

  • 什么错误?
    答案900, 目标五颗星
    2009年7月14日 6:39
  •    Set rs =  db.OpenRecordset("select 座席等级 from 机票信息表 where 机票编号='BC002'")    'rs指向机票信息表中机票编号字段为BC002的记录
       Text1.Text = rs.Fields("乘客姓名")                                                                        '输出该记录乘客姓名字段的值
      

    http://feiyun0112.cnblogs.com/
    2009年7月14日 7:20
    版主
  • 谢谢您!
    请问其中的'BC002'可以用变量代替吗?
    比如从text1.text获得?
    2009年7月14日 9:44
  • Set rs =  db.OpenRecordset("select 座席等级 from 机票信息表 where 机票编号='" & text1.text & "'")  
    http://feiyun0112.cnblogs.com/
    2009年7月14日 9:48
    版主
  • 谢谢您!
    请问其中的'BC002'可以用变量代替吗?
    比如从text1.text获得?
    当然可以啦,不然动态条件查询怎么实现呢?


    http://hi.baidu.com/2009ajun
    2009年7月14日 12:02
  • 你这个查询结果集合里没有查找“乘客姓名”字段啊 所以Text1.Text = rs.Fields("乘客姓名") 会出错啦

    将这个Set rs = db.Execute("select 座席等级 from 机票信息表 where 机票编号='BC002'")改成
    Set rs = db.Execute("select 乘客姓名,座席等级 from 机票信息表 where 机票编号='BC002'")就OK啦
    2009年7月21日 17:08