我想在表中提取一条数据，但这函数提取出来都是空值，请问哪里错了 才学 不懂 请大家指教





Public Function distillaa(ByVal num As String) As ADODB.Recordset
    Dim cn As Connection
    Dim RS As Recordset
    Set cn = New Connection
    cn.Open Trim$(dbstringer)
    Set RS = New Recordset
      RS.Open "select * from number where call='" & num & "'", cn, adOpenKeyset, adLockOptimistic
    Set distillaa = RS
        Set cn = Nothing
    Set RS = Nothing
End Function

Set cn = Nothing
    Set RS = Nothing
这两行去掉.
你是没理解VB中对象的概念.

去掉了，但我运行到
RS.Open "select * from number where call='" & num & "'", cn, adOpenKeyset, adLockOptimistic
& num &里面还是空值。

我意思就是想从数据库表number中随机提取一个call字段里的一条数据

你的cn还未打开, 怎么能查询到数据呢

?dbstringer
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book1;Data Source=.   


没明白 但我跟了下 是打开的啊~~
版主大哥能说明白点嘛

你是在哪里打开的?

你在函数里重新定义了CN,这个CN是全新的,而你没有打开这个CN的连接,怎么能用它来操作数据库呢

此Funtion中的代码是没有错误的
请按以下步骤检查：
1）创建的CN数据库连接中有没有NUMBER这个表
2）NUMBER表中的CALL字段有没有符合where call='" & num & "'"这个条件的记录

楼主在FUNCTION中已经写了cn.Open Trim$(dbstringer)

你是如何调用dbstringer的？
distillaa (num)

不好意思没看到.


要么就是数据库里数据的问题,要么就取从recordset里取数据的问题

把代码打包发上来吧