如何使用VB6.0在表單中調用模塊？

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等中使用時也是一個很有用的工具，因此您仍然可以從中學習它。

您可能希望閱讀基於Web的教程，例如http://www.vbtutor.net/vbtutor.html，但Web上還有許多其他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

筆記：

1. 將option explicit放在所有文件（表單，模塊）的頂部，因為這將指示任何未聲明的變量，這些變量可以減少錯誤並節省您的時間。
2. 考慮每次使用它時關閉連接，因為保持打開SQL連接可能是性能問題。

有很多關於VB的好東西可以幫助你成為一個有效和高效的程序員，所以請閱讀一些在線資源，因為StackOverflow不是一個學習資源。