Question

VB 访问数据库问题

Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Khronos_MT;Data Source=USER-20150508PW"rs.Open "select* from MotorTest_Khronos_PV_Result", conn, adOpenStatic, adLockOptimisticSet MSFlexGrid1.DataSource = rsMSFlexGrid1.Refresh

运行后报错，请问怎么修改？

Answer 1

点击“调试”，看看程序停在哪里

追问

停在这句 Set MSFlexGrid1.DataSource = rs

追答

数据库引擎的引用，MSFlexGrid部件的添加都加好了吧，
根据错误提示，和代码停留的位置，猜测可能是MSFlexGrid控件的属性设置问题，看看他的列和行是不是和rs集能对上

追问

也不行，如果换个控件，换成Datagrid就没问题

追答

你用的MSFlexGrid控件有一定的局限行，使用MSHFlexGrid控件应该就不会用这样的问题了

Answer 2

在VB6中使用Ado对象编程的几个关键步骤：
1，引用ADO对象模型：在VB环境中，使用菜单 [工程] -- [引用]，勾选Microsoft ActivaX data Object s 2.6 Library
2，具体代码：
Dim conn As ADODB.Connection '声明连接对象
Dim rst As ADODB.Recordset '声明数据集对象
Set conn = New ADODB.Connection '实例化连接对象
Set rst = New ADODB.Recordset '实例化数据集对象
注意：
Dim conn As ADODB.Connection '声明连接对象
Set conn = New ADODB.Connection '实例化连接对象
两行代码可以合而为一，如下
Dim conn As New ADODB.Connection '声明并同时实例化连接对象
同样
Dim rst As ADODB.Recordset '声明数据集对象
Set rst = New ADODB.Recordset '实例化数据集对象
两行代码可以合而为一，如下
Dim rst As New ADODB.Recordset '声明并同时实例化数据集对象
'下面是把数据库文件复制到本工程文件的同一个文件夹的连接字符串，这样有一个好处，无论将来程序放在哪里都不会出现路径错误的问题
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False" '设置连接对象的连接字符串
conn.Open '使用连接对象的打开方法，打开数据库
rst.Open "Select * From 数据表 Where ...", conn, adOpenKeyset, adLockOptimistic '使用记录集对象的打开方法，获得返回的记录集
注意：上述 Select语句要符合格式，本例用了省略号，
这样就可以通过rst对象操作记录了。