Question

我不知道如何转换此代码。

这个主要的代码

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 .. textfile ...

Answer 1

使用system.io.textreader从文件中读取一行：

dim tr as system.io.textreader = new system.io.streamreader(file)
dim val as string = tr.readline

使用system.io.textwriter在文件中写一行：

dim tw as system.io.textwriter = new system.io.streamwriter(file)
tw.writeline(val)

对于数据访问，请使用system.data中的内容。你需要谷歌这个'因为我在手机上写这个并且刚刚失去了耐心： - ）

将代码vb 6转换为vb.net

1 个答案: