我想建立和数据库的连接不用ADO。SELECT查询后的记录集里有6个要分别放到不同的变量中去请各位老师帮忙写个程序着急用谢谢

Question

1，SELECT语句是：SELECT 列1，列2，列3，列4，列5，列6 FROM 表名 WHERE 列=变量
2，我想把查询的六列中的东西放到6个变量中去。
3，不太回用 模块 也不知道 连接数据库着段代码是不是应该写在模块里，请各位指点，如果写在模块里了   我在程序中应该怎样掉用他。

Answer 1

如果只有一条记录，且数据库是MSSQLServer
用存储过程输出参数
模块里调用存储过程传参

Answer 2

把查询的六列中的东西放到6个变量中去建议用ADO，而不是用ADO控件：
------------------------------------------------------------
如果是Access数据库，请把连接字符串改一下'引用ADO(在菜单"工程"/"引用"下，把Microsoft ActiveX Data Objects 2.X Library钩上)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    '有密码的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"
    '无密码的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
    cn.Open
    rs.CursorLocation = adUseClient '设置客户端游标    '下面这句中的“变量名”的定义及赋值自己来写
    rs.Open "SELECT 列1，列2，列3，列4，列5，列6 FROM 表名 WHERE 列='"& 变量名 & "'", cn, 3, 2    Dim v1,v2,v3,v4,v5,v6'由于我不知道各个列的类型，这里用变体类型
    If Notrs.Eof Then
        v1=rs(0)
        v2=rs(1)
        v3=rs(2)
        v4=rs(3)
        v5=rs(4)
        v6=rs(5)        
    End If    
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 3

我想楼主的意思可能是不用记录集，而不是不用ADO

Answer 4

怎么这么怪啊  你不用ado 那就用odbc更麻烦些

Answer 5

非常感谢各位老师了哈。  没个人说的都有道理。只是我现在还有很多是听不明白的而且我也没多少分了  还请大家谅解下小弟 毕竟我才19呵呵！~！~！~！~！~原谅下哈  要是以后 你们还有回答我问题的那我一定给分。不过还是非常感谢下上面的FAYSKY哈  他的代码我用过了
说下ADO的事情  我只是不想看到哪个什么大大的控件出现在 窗体上所以就说了不用  ADO   不好意思哈。  毕竟我是才学  大家体谅下好了！~祝福大家工作顺利哈。