Question

我对VB6.0中的模块有疑问。我想使用模块在我的表单中分离我的SQL连接。在我的form1我有以下代码：

Private Sub Form_Load()

test

End Sub

Private Sub test()
Dim cn As New ADODB.connection
Dim rs As ADODB.Recordset

cn.ConnectionString = "SQL CONNECTION"
cn.CursorLocation = adUseClient 
cn.ConnectionTimeout = 0
cn.Open

Set rs = cn.Execute("SELECT Statement")

Set dcbo.RowSource = rs
dcbo.ListField = "fieldname"
dcbo.BoundColumn = "column name"

cn.Close

End Sub

创建模块表单module1。如何使用该模块分隔ConnectionString并将其调用Form1？

Answer 1

你问的是一个非常基本的问题所以看起来你是VB6的初学者。您应该知道有更多类似于VB6的现代语言，VB.Net是Microsoft当前支持的语言，并且是VB6的继承者。也就是说，VB在Windows Scripting等中使用时也是一个很有用的工具，因此您仍然可以从中学习它。

您可能希望阅读基于网络的教程，例如http://www.vbtutor.net/vbtutor.html，但网上还有许多其他VB6资源可用于新开发人员和专家。

要回答你的问题，为了使一个模块中声明的变量在其他地方可用，VB使用'Public'关键字而不是'dim'。

' module
option explicit
public cn As New ADODB.connection

' form
Private Sub Form_Load()
cn.ConnectionString = "SQL CONNECTION"
cn.CursorLocation = adUseClient 
cn.ConnectionTimeout = 0
cn.Open

Set rs = cn.Execute("SELECT Statement")

...

cn.Close
end sub

'  You can use the cn connection later 
sub SomeTimeLater()
cn.Open

Set rs = cn.Execute("SELECT Statement")

...

cn.Close

end sub

注意：

将option explicit放在所有文件的顶部（表单，模块）因为这将指示任何未声明的变量减少错误并节省您的时间。
考虑每次使用它时关闭连接打开SQL连接可能是性能问题。

有很多关于VB的好东西可以帮助你成为一个有效和高效的程序员，所以请阅读一些在线资源，因为StackOverflow不是一个学习资源。

如何使用VB6.0在表单中调用模块？

1 个答案: