Question

VB6.0连接到SQL数据库后，数据提取显示的问题,

以下是我连接数据库的代码
Dim Conn As ADODB.Connection
'声明连接数据库对象——用来连接数据库文件，并对数据库以及数据表的操作
Dim Rst As ADODB.Recordset
'声明数据记录集对象——用来返回数据记录集，并对记录的操作

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

Set Conn = New ADODB.Connection
'数据库对象的实例化
Set Rst = New ADODB.Recordset
'记录集对象的实例化

End Sub

然后我想问一下，如果我想把数据库表（如图）的User ID列所有有数据的单元格的数据都显示在List1中，然后再求和User ID列中一共有几个单元格有数据，再把User Card列所有有数据的单元格的数据都显示在List2中，再求和User Card列一共有几个有数据的单元格，接着把List1的总数与List2的总数求和，显示在Lable1中，这样的代码怎么写呢？

Answer 1

使用ADODB对象，必须先进行对象模型的引用，步骤如下
'通过菜单[工程] -- [引用]，勾选 Microsoft ActiveX Data Object 2.6 Library
'Microsoft ActiveX Data Object 2.7 Library
'Microsoft ActiveX Data Object 2.8 Library
'都可以
代码以及注释如下：
Dim Conn As ADODB.Connection '声明连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的操作
Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集，并对记录的操作

Set Conn = New ADODB.Connection '数据库对象的实例化
Set Rst = New ADODB.Recordset '记录集对象的实例化

'二，连接数据库文件
'执行 ADODB.Connection对象的Open方法，完成数据库的连接
Conn.CursorLocation = adUseClient
'连接SQL的字符串格式如下
'"Provider=SQLOLEDB.1;Password=登录SQL的密码;Persist Security Info=True;User ID=SQL数据库实例名;Initial Catalog=数据库名;Data Source=SQL服务器计算机名称"
'你给出的参数，少了最后一个“SQL服务器计算机名称”，下面我用了6个问号，你根据你的具体情况修改
Conn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=Sa;Initial Catalog=2013data;Data Source=??????"

'三，返回记录集
'执行 ADODB.Recordset对象的Open方法，获得记录集
Rst.Open "Select num1,num2 From icitem
", Conn, adOpenKeyset, adLockPessimistic

'将返回的记录集显示到DataGrid1
Set DataGrid1.DataSource = Rst

Set Rst = Nothing '释放记录集对象
Set Conn = Nothing '释放数据库对象

追问

这位朋友，如果你不会，就请你不要回答，如果你会，请你看清我问的问题，你从别处抄来的这份教程，我早看过了，