注册 登录
编程论坛 VB6论坛

关于VB6.0 和SQL 2000的问题~~急~~

汐舞影 发布于 2015-07-18 21:04, 886 次点击
1.使用本示例的源代码时,将源代码拷贝到您的计算相应目录之后,需要取消所有文件的只读属性,否则您可能无法正常使用这些源程序。

2.将各个项目子目录拷贝到硬盘上,然后可以用Visual Basic打开程序。

3.在每个项目子目录里面的sql目录里,将后缀.sql的文件打开后,拷贝到SQL Server 2000的查询分析器里,然后执行将产生需要的数据库结构。

4.配置ODBC数据源,按照每章的说明进行数据源的配置,程序对数据库的访问需要通过ODBC来实。打开"控制面板"中"管理工具"的"ODBC(数据源)",在弹出的对话框中创建文件DSN。本例需要创建的文件DSN,登录方式选择"使用用户输入登录ID和密码的SQL Server验证",登录ID为sa,密码为空,选择默认连接数据库(就是在查询分析器里创建的数据库)。


照着这个弄了,为什么运行VB会出现91错误啊?
4 回复
#2
汐舞影2015-07-18 21:12
回我啊~~~~
#3
风吹过b2015-07-18 21:14
你百度了吗? 出问题的源码贴出来了吗?

百度的结果:

VB中91错误是对象变量或 With 块变量没有设置。
对象变量或 With
块变量没有设置(错误 91)
创建对象变量有两个步骤。第一,必须先声明对象变量。然后必须用
Set 语句将一个正确的引用赋值给对象变量。同样地,With...End With 块必须先用
With 语句进入点来执行初始化。此错误有以下的原因和解决方法:

试图使用的对象变量,还没有用一个正确对象的引用来赋值。
给对象变量指定或再指定一个引用。例如,如果在下列的代码中省略 Set
语句的话,那么引用 MyObject 将会产生错误:
Dim MyObject As Object ' 创建对象变量。
Set MyObject = Sheets(1) ' 创建一个正确的对象引用。
MyCount = MyObject.Count ' 计数值赋给 MyCount。

试图用的对象变量已经被设为 Nothing。
Set MyObject = Nothing ' 释放此对象。
MyCount = MyObject.Count ' 引用了已释放的对象。

再指定引用给对象变量。例如,使用新的 Set
语句给对象设置新的引用。

此对象是正确的对象,但没有被设置,因为在对象库中,在
“引用” 对话框中没有被选取。
在 “添加引用” 对话框选择对象库。

在 With 块内GoTo 语句的去向。
不要跳进 With 块。确保块使用 With
语句进入点以执行初始化。

当选了 “设置下一条语句” 命令时,在 With 块内指定了一行。
With 块必须用 With
语句执行初始化。
#4
汐舞影2015-07-18 21:17
回复 3楼 风吹过b
If mrc.EOF = False Then

这个是问题所在。。
#5
风吹过b2015-07-18 21:58
mrc 在那里定义的,几时初始化的??

这里报错,那就要往前看代码。
1