Блог

Изменение соединения сервера с MySQL перед переходом к транзакции

Form1.vb

server.text, username.text, password.text

Подключение.vb (модуль)

retrieve the value of server, username and password to pass it to my connection string.

Я хочу передать значение в

 
        Try
            If Conn.State = ConnectionState.Closed Then
                strcon = "server="   server.text   ";user="   username.text   ";password="   password.text   ";port=3306;database=db_system;sslmode=none; Convert Zero DateTime = true"
                Conn.ConnectionString = strcon
                Conn.Open()
                result = True
                Main.Show()
            End If
        Catch ex As Exception
            result = False
        End Try
        Return result
    End Function
 

Есть ли какой-нибудь способ сделать это?

Если вы используете VB.NET , затем вызывая значения текстовых полей, оно должно заканчиваться .Text

 "server="   server.Text   ";user="   username.Text   ";password="   password.Text
 

Вы можете создать функцию в модуле следующим образом:

 Function DBValues (server As String, user As String, password As String) as String

'Do as you please with the values

End Function
 

Затем в вашей форме:

 dbValues = DBValues(server.Text, username.Text, password.Text)
 

Надеюсь, это поможет.