请教vb显示access

Question

本帖最后由 bcrun 于 2013-06-18 16:08:23 编辑

Answer 1

假设RCDSET是你打开的记录集
一般来说用逐条读取内容的方法如下:1.移动到最后一条记录'因为某些打开方式必须这样才能读取到记录数量
2.回到第一条,并看看记录数量是否大与0, 否则就是没记录,直接退
3.读取当前记录并显示
4.移动到下一条,看看是否最后一条记录, 如果不是就重复3,4直到表末

Answer 2

那请问 我的sql语句应该写在什么位置？
我从新写了sql语句和打开记录集 总是提示我变量重复 或者是实时错误之类的

Answer 3

那请问 我的sql语句应该写在什么位置？
我从新写了sql语句和打开记录集 总是提示我变量重复 或者是实时错误之类的sql语句当然是在打开查询或表之前写好.一般数据库操作:
1 连接数据库 ,这个要求联结字符串
2 打开表或查询, 这个要求SQL语句
3 针对表内记录的访问操作
4 所有工作完成后关闭表,关闭数据库连接
5 销毁对象

Answer 4

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    SqlStr = "select * from member where username='" & Text1.Text & "' and hailfellow='true'"
    rs.CursorLocation = adUseClient
    rs.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
    
    Combo1.Clear
    Do While rs.EOF = False
        Combo1.AddItem rs.Fields("mymember").Value
        rs.MoveNext
    Loop
    rs.Close    SqlStr1 = "select * from member where username='" & Text1.Text & "' and blacklist='true'"
    rs.Open SqlStr1, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集    Combo1.Clear    
    Do While rs.EOF = False
        Combo2.AddItem rs.Fields("mymember").Value
        rs.MoveNext
    Loop
    rs.Close    SqlStr2 = "select * from member where username='" & Text1.Text & "' and stranger='true'"
    rs.Open SqlStr2, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集    Combo1.Clear    
    Do While rs.EOF = False
        Combo3.AddItem rs.Fields("mymember").Value
        rs.MoveNext
    Loop