如何将adodb记录集传递给vb6中的过程 [英] How pass adodb recordset to procedure in vb6

问题描述

大家好



i希望将记录集中的所有数据传递给另一个

我的代码是

Hi all

i want to pass all data from recordset to another
my code is

RsCon.Open _
            "SELECT `rdr`.`RDR_No`, `rdr`.`Location`, `rdr`.`Division` From rdr;", _
            AConN, adOpenDynamic, adLockOptimistic  

      If RsCon.EOF = False Then

                BindDataToControl (RsCon)
            End If


Private Sub BindDataToControl(ByVal RsReaderInfo As adodb.Recordset)

End Sub

当我Passi ng Recordset到BindDataToControl sub我得到类型不匹配错误

When I Passing Recordset to BindDataToControl sub i get type mismatch error

推荐答案

我建​​议你改变逻辑。不要将记录集对象作为参数传递给过程。在一个过程中控制记录集对象更容易。

I would suggest you to change the logic. Do not pass a recordset object as a parameter into procedure. It is easier to control recordset object inside one procedure.

Sub BindDataToControl(ByVal sSql As String)

'here you can:
'1) create and open recordset object
'2) binds data to control
'3) close recordset ;)

End Sub

在我看来，这条线构造不好：

In my opinion this line is bad constructed:

"SELECT `rdr`.`RDR_No`, `rdr`.`Location`, `rdr`.`Division` From rdr;"

<无线电通信/>
看起来像MS Access数据库。将查询字符串更改为：

It looks like MS Access database. Change a query string to:

"SELECT RDR_No, Location, Division From rdr;"

这篇关于如何将adodb记录集传递给vb6中的过程的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！