-1

私は vb .net プログラミングの初心者です。フォーム ボタンを MySql データベースに接続しようとすると、次のエラーが発生しました。追加情報: キーワードはサポートされていません。このエラーのトラブルシューティングに取り組んできましたが、成功しませんでした。あなたが提供するのに十分親切な助けをありがとう！以下のクラスのコードを参照してください。

MySql.Data.MySqlClient パブリック クラス Form1 をインポートします。

Dim connect As New MySqlConnection

Dim connecto As String = "Server=localhost; User Id=root; Password; Database=sist"
Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    connect.ConnectionString = connecto
    Try
        connect.Open()
        MessageBox.Show("Connected Successfully")
    Catch ex As MySqlException
        MessageBox.Show(ex.Message)
    End Try


End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Label4.Text = Date.Now.ToString("MMM dd yyyy hh:mm:ss")
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Timer1.Enabled = True
End Sub

Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)

End Sub

クラス終了

4

1 に答える 1

1 
connect.ConnectionString = connecto

Button1_Click サブリファレンス connect および connect 内の最初の行。しかし、それらのオブジェクトはサブの範囲外です。インスタンス化をサブ内に移動すると、機能します。

そう：

Dim connect As New MySqlConnection
Dim connecto As String = "Server=localhost; User Id=root; Password; Database=sist"
connect.ConnectionString = connecto
    Try
        connect.Open()
        MessageBox.Show("Connected Successfully")
    Catch ex As MySqlException
        MessageBox.Show(ex.Message)
    End Try

またはさらに良い

Dim connecto As String = "Server=localhost; User Id=root; Password; Database=sist"

Using connect As New MySqlConnection(connecto)
        Try
            connect.Open()
            MessageBox.Show("Connected Successfully")
        Catch ex As MySqlException
            MessageBox.Show(ex.Message)
        End Try
End Using
于 2014-10-23T20:18:11.773 に答える