0

このコードを変換する方法がわかりません。

サブメインのこのコード

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

接続文字列を作成しようとしています..サブメイン..テキストファイル...

4

1 に答える 1

0

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 から何かを使用します。私は電話でこれを書いていて、忍耐力を失ったばかりなので、そのためにグーグルする必要があります:-)

于 2013-03-12T16:54:15.173 に答える