数据库添加与显示的问题！

Question

用的ADO控件,重新连接也不行。

Answer 1

先定义一个opendb的函数打开数据库，返回一个result！
Public Sub New()
        MyBase.New()        'This call is required by the Windows Form Designer.
        InitializeComponent()        'Add any initialization after the InitializeComponent() call
        Dim myResult, myresult1 As Short
        '定义一个Short变量
        myResult = OpenDb()
        myresult1 = OpenDb1()        '调用opendb()打开数据库    End Sub
Dim Mydb As DAO.Database
    '定义一个DAO.Database数据库对象
    Dim MyWs As DAO.Workspace
    '定义一个工作空间DAO.Workspace
    Dim MySql As String
    '定义一个字符串用来存放SQL查询语言
    Dim Myrec As DAO.Recordset
    '定义一个数据项DAO.Recordset
    Dim de As DAO.DBEngine = New DAO.DBEngine()
    Dim Mydb1 As DAO.Database
    '定义一个DAO.Database数据库对象
    Dim MyWs1 As DAO.Workspace
    '定义一个工作空间DAO.Workspace
    Dim MySql1 As String
    '定义一个字符串用来存放SQL查询语言
    Dim Myrec1 As DAO.Recordset
    '定义一个数据项DAO.Recordset
    Dim de1 As DAO.DBEngine = New DAO.DBEngine()
    '定义一个数据引擎DAO.DBEngine()
    Public Function OpenDb() As Short
        '定义一个数据打开函数
        Dim dbstr As String
        '定义一个字符串来存放数据库所在目录
        dbstr = Application.StartupPath & "\ziliao.mdb"       '取得数据库所在目录
        MyWs = de.Workspaces(0)
        '建立一个工作空间
        Mydb = MyWs.OpenDatabase(dbstr, False, False)
        '打开数据库存放于Mydb
        dbstr = "select * from 订单"
        '设置SQL打开方式
        Myrec = Mydb.OpenRecordset(dbstr, DAO.RecordsetTypeEnum.dbOpenDynaset)
        '打开数据项    End Function
    Public Function OpenDb1() As Short
        '定义一个数据打开函数
        Dim dbstr1 As String
        '定义一个字符串来存放数据库所在目录
        dbstr1 = Application.StartupPath & "\ziliao.mdb"       '取得数据库所在目录
        MyWs1 = de1.Workspaces(0)
        '建立一个工作空间
        Mydb1 = MyWs1.OpenDatabase(dbstr1, False, False)
        '打开数据库存放于Mydb
        dbstr1 = "select * from 库存"
        '设置SQL打开方式
        Myrec1 = Mydb1.OpenRecordset(dbstr1, DAO.RecordsetTypeEnum.dbOpenDynaset)
        '打开数据项    End Function

Answer 2

Rs.Addnew
......
......
Rs.UpdateRs.Refresh 
即可显示表中所有的数据

Answer 3

同样的问题我也遇见过
是不是添加完数据不能看到，等下一次再打开数据库的时候就能看到了？
如果是的话你可以用rs.refresh或者试试rs.movelast

Answer 4

好象没有Rs.Refresh这种方法吧
只有DAO、ADO控件才有Refresh；而DAO、ADO对象没有Refresh方法

Answer 5

因为你的有没有刷新啊，比如object.Refresh,这样就可以了，唉！

Answer 6

这样：
Rs.Addnew
......
......
Rs.UpdateRs.Refresh 
rs.movefrist

Answer 7

rs没有Refresh这功能，要是想要Refresh的话
rs.close
rs.open
先关一次，再打开就可以