Я не знаю, как конвертировать эти коды.
конвертировать коды vb 6 в vb.net
этот код к югу от основной
Public Sub main()
On Error Resume Next
frmsplash.Show
Open App.Path & "/joel.txt" For Input As #1
Input #1, serverhost
Input #1, mydatabasename
Input #1, myusername
Input #1, mypassword
Input #1, mysqlport
Close #1
cn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=" & Trim(serverhost) & ";Port=" & Trim(mysqlport) & ";Database=" & Trim(mydatabasename) & "; User=" & Trim(myusername) & ";Password=" & Trim(mypassword) & ";Option=3;"
cn.Open
If cn.State = 0 Then
MsgBox "Unable to connect to database", vbCritical
frmconnect.Show
frmsplash.Hide
Exit Sub
и этот код для создания соединения
Private Sub cmdcreate_Click()
Open App.Path & "\joel.txt" For Output As #1
Print #1, txtserver.Text
Print #1, txtschema.Text
Print #1, txtuser.Text
Print #1, txtpassword.Text
Print #1, txtport.Text
Close #1
Unload Me
Call main
End Sub
им пытаются создать строку подключения .. submain .. ... текстовый файл
Что вы пробовали и какой бит конкретно вы застряли? Вместо того, чтобы преобразовывать код, вам больше понравится, изучая язык и переписывая в более подходящей для платформы структуре. – Deanna
Я конвертирую этот код в vb.net, но я получил ошибку ... –
Какая ошибка? на какой бит кода? – Deanna