Как позвонить вашему модулю в форме с помощью 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 и т. Д., Поэтому вы все равно можете извлечь пользу из его изучения.

Возможно, вы захотите ознакомиться с учебным пособием в Интернете, таким как 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 

Примечание:

1. Поместите option explicit в верхней части все ваши файлов (форм, модулей), так как это будет означать любой необъявленные переменные, которые уменьшают ошибки и экономят Ваше время.
2. Подумайте о том, чтобы закрыть соединение каждый раз, когда вы его используете Открывать соединение SQL может быть проблемой производительности.

Есть еще много замечательных вещей, чтобы узнать о VB, чтобы помочь вам стать эффективным и эффективным программистом, поэтому, пожалуйста, прочитайте некоторые из этих онлайн-ресурсов, поскольку StackOverflow не является учебным ресурсом.