Question

vb中！我想以一个text内显示的内容（姓名）为查询对象，来查询ado数据库中的（姓名）信息，并将

vb中！我想以一个text内显示的内容（姓名）为查询对象，来查询ado数据库中的（姓名）信息，并将查询到的（姓名）信息以及这个人的姓名信息后面的籍贯年龄等信息一起显示在一组text数组中，请帮我写一段代码！不胜感激

Answer 1

private sub command1_click()
    dim cnn as new adodb.connection
    dim rs as new adodb.recordset
    dim text(0 to 字段数量-1)
    rs.open("select * from "数据表名称" where 姓名='" & text1.text & "'"), adOpenKeyset,adLockOptimistic
    if rs.recordcout<>0 then
        ‘有几个字段就重复下面的语句几次
        text(第几行就填几,记得-1）=rs.fileds(字段名称)
    end if
end sub
太久没编,可能会出错

        如果无错误,求采纳

追问

提示说至少一个参数没有被指定值

追答

rs.open("...",adOpenKeyset,adLockOptimisic)

*前后加空格