Question

VB中调用数据库模块的问题

我刚刚学习VB数据库系统的开发，用的是SQL Server 2000，书上的例子是把各窗口调用数据库的公共过程写入模块，在各窗口中可以少写代码。我试着做了一个小程序，模块代码如下：

Public PulbicStr As String
Public Function cnn() As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SPJXC;Data Source=."
End Function
Public Sub main()
PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SPJXC;Data Source=."
End Sub

在窗口中加入Adodc1和DataGrid1两个控件，输入的代码如下：

Private Sub Form_Load()
Adodc1.ConnectionString = PublicStr
Adodc1.RecordSource = "select * from tb_in"
Adodc1.Refresh
End Sub

窗口中代码“Adodc1.ConnectionString = PublicStr”我感觉是在用模块中预先写入的代码打开数据库，但是在调试的过程中，程序总是报错：[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序，还有一个是：‘Refresh’的方法‘IAdodc’失败。
如果把窗口的代码改成“Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_SPJXC;Data Source=." ”，程序可以正常运行，但是这样我感觉开始编写的模块好像没有发挥什么作用。

我就想高手指点下，上述代码如果要运用模块编写公共过程应该如何编写才能顺利地调用SQL Server 2000数据库
如网海1书生，增加main至程序代码，但是每次运行时都会出现
错误:ADODC:没有指定记录源[ADO]:没有为命令对象设置命令，这个如何解决，麻烦高手再指点下

Answer 1

Public PublicStr As String

......

Private Sub Form_Load()
main
Adodc1.ConnectionString = PublicStr
Adodc1.RecordSource = "select * from tb_in"
Adodc1.Refresh
End Sub

Answer 2

你的VB启动对象是什么？是某个Form还是Sub Main ？

如果是以某个Form作为启动对象，那么你的模块中的Sub Main就根本没有执行，那么PublicStr就是空字符串，当然会出问题了。

你要善用VB的调试功能，看看出错的时候PublicStr到底值是多少，就比较好确定问题了。