Свойство ConnectionString не было инициализировано справочными базами данных

Question

Я пытался решить это в течение последних 4 недель и не могу найти ответ, который я только что ходил по кругу. У меня было несколько ошибок с Con как новая OleDb.OleDbConnection и строка подключения и ISAM

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String
    Dim dbSource As String
    Dim da As OleDb.OleDbDataAdapter
    Public sql As String
    Dim ds As New DataSet
    Dim dbPassword As String


        dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
        dbSource = "C:\Users\Edward\Desktop\Edward\DataBase Login Window\Users.mdb;Jet OLEDB:Database"

        con.ConnectionString = dbProvider & dbSource

        con.Open()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        sql = "SELECT * FROM users WHERE accUsername='" & TextBox1.Text & "'AND accPass='" & TextBox2.Text & "'"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "users")

        If ds.Tables("users").Rows.Count = 1 Then
            Dim isAdmin As Boolean = ds.Tables("users").Rows(0).Item(4)
            If isAdmin = True Then
                MsgBox("Logged in.")
                Form4.Show()
                Form4.Username = TextBox1.Text
                Form4.Password = TextBox2.Text
            ElseIf isAdmin = False Then
                MsgBox("Logged in user.")
                Form6.Show()
                Form6.Username = TextBox1.Text
                Form6.Password = TextBox2.Text
            End If
        Else
            MsgBox("Incorrect Username or Password")
        End If

        Me.Hide()

        ds.Clear()
        Me.Refresh()
    End Sub

    Private Sub createanaccount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles createanaccount.Click
        Form2.ShowDialog()

    End Sub
End Class

Answer 1

В кнопке вы должны установить connectionString вот пример.

dim con as new SQLConnection/OLEDBConnection
con.ConnectionString="Provide your connection string"
con.open

Я надеюсь, что это определенно решит вашу проблему