关于数据连接的问题？

[zhaozipeng]

我在一个窗口里用下面的语句连接数据库：
Dim source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
source = source + "D:\js.mdb"
Dim conn As New OleDbConnection(source)
conn.Open()
请问如何实现其他窗口里也能用CONN啊

[水如烟]

Dim conn As New OleDbConnection(source)
改为
Public conn As New OleDbConnection(source)

如果你放在一个Module上，项目中的其它窗体都可以引用
如果你放在一个类上，比如ClassA,那么别的类引用时
m.conn

[水如烟]

呵，少了一句
dim m as ClassA(根据自己实际是否dim m as New ClassA)
m.conn

[liuyi3000]

不太明白你的意思
如果你的意思是不想在重复写上面的连接代码在别的窗口中conn.open()
那么你把上面的连接代码用public定义并写在模块中

[liuyi3000]

lzmtw(水如烟)你太快了吧。呵呵怪不的几天就红了

[zhaozipeng]

谢谢楼上，如果把它们封装到DLL里该如何做，和调用啊

[水如烟]

所谓封装，就是放到一个类去，这个类最好有自己的命名空间，而不是用它默认的那个
项目输出为DLL，含有这个类
到引用时，在新项目中引用这个DLL
调用时
命名空间.类名.对象方法之类的

[水如烟]

跟我们平常引用IO,Data那些一个样。

[chinahth]

有自己命名空间的类是怎么定义的啊

[水如烟]

NameSpace Chinahth
Class Data
...
End Class
Class Common
...
End Class
End NameSpace

引用时
Chinahth.Data....

[SeeSunSet]

放在模块里定义成全局变量就行了.最好还是用数据库连接池才好..