Question

VB6.0连接SQL数据库，并读取某表格的数据出来？？？

VB6.0连接数据库，数据库名是2013data,用户名是sa,密码为123，连接的数据表格为icitem，然后通过控件datagrid显示出icitem的字段num1,和num2两个字段的信息，该如何编写代码？？？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏5（财富值+成长值）

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 '释放数据库对象