Question

vb6.0.数据库链接问题。Private Sub Form_Load() Set conn = New ADODB.Connection End Sub 请见下。谢谢

Private Sub Form_Load()
Set conn = New ADODB.Connection
End Sub
1、在窗体中输入这个，为什么显示未定义。是不是得调用什么库文件呀？
2、假如全局变量模块中
Public conn As ADODB.Connection
Public rs1 As ADODB.Recordset
Public conna As ADODB.Connection
Public rs2 As ADODB.Recordset
窗体1中建立
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source='" & stra & "';Jet OLEDB:Database Password='y_h_a_80_w';persist security info=false;"
Set rs1 = New ADODB.Recordset
rs1.ActiveConnection = conn
那我在窗体2中可以直接用使用 rs1、conn等么？

Answer 1

在工程中添加引用 ，如下图，我试过了，没问题的。以前我也是这样写的，都没问题。

Answer 2

Public conn As ADODB.Connection改为Public conn As New ADODB.Connection。

As ADODB.Recordset 等 AS后面都加上New

全局变量已经定义conn了，窗体中就不用再定义conn了，直接用就可以了。

追问

1、全局变量的简历，就是建一个模块，把我说的那些全局变量输入进去就行吧？
2、如果是，按你所说+new，还是显示 用户类型未定义呀！ 是不是要调用库函数？
3、问题2您没回答我的疑问。窗体2中直接用的rs1，和窗体1中是一个吧？因为是全局变量么，都可以改，是吧？

追答

1、建立一个模块，定义全局变量，是完全可以的
2、new是对ADODB.Connection初始化。用户类型未定义，你看看是哪行代码的错误提示？
3、我上面已经给你回答了conn，rs1的道理是一样的，模块中全局定义了，单窗体就没必要再定义了。这个不是常量，是变量，当然可以修改的。
控件一般不需要单独去加载的，vb工程以建立就带的，别使用精简版vb。

Answer 3

1、需要引用部件

工程 -> 引用 -> Microsoft Access 12.0 Object Library
如没有12.0，11.0也可以。
2、如果定义的是全局变量，其他窗体中可以直接使用

追问

窗体2中直接用的rs1，和窗体1中是一个吧？(窗体1中修改过的）

(因为是全局变量么，都可以改，是吧？)