Предоставление пути к базе данных из текстового поля

Question

Я хочу создать новую базу данных MS Access, предоставив путь из текстового поля вместо предварительно написанного пути в Runtime в vb. нетто

Импорт ADOX Public Class Form1

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




    Try 
     Dim cat As Catalog = New Catalog() 

     cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
        "Data Source=C:\Users\Anish Choudhary\Desktop\New folder\N.mdb;" & _ 
        "Jet OLEDB:Engine Type=5") 

     MessageBox.Show("Database Created Successfully") 

     cat = Nothing 


    Catch ex As Exception 
     MessageBox.Show("Database already Exists") 
    End Try 
End Sub 

End Class

Answer 1

Вместо того, чтобы использовать текстовое поле, чтобы получить путь к папке, используйте соответствующий элемент управления, предоставляемые библиотекой NET. Он называется FolderBrowserDialog TextBox не очень хороши для такого рода операций. Пользователь может иметь много проблем, набрав правильный путь, вместо этого FolderBrowserDialog в своей простоте позволяет достичь правильного пути без ручного ввода ничего

Dim fbd = New FolderBrowserDialog() 
fbd.Description = "Select a folder for the new database" 
fbd.RootFolder = Environment.SpecialFolder.MyComputer 
fbd.ShowNewFolderButton = True 
If fbd.ShowDialog() = DialogResult.OK Then 
    Try 
     Dim filePath = Path.Combine(fbd.SelectedPath, "N.mdb") 
     Dim cat As Catalog = New Catalog() 
     cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
        "Data Source=" & filePath & _ 
        "Jet OLEDB:Engine Type=5") 
     MessageBox.Show("Database Created Successfully") 
     cat = Nothing 
    Catch ex As Exception 
     MessageBox.Show("Database already Exists") 
    End Try 
End If 

Answer 2

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

Предполагает ваш код в форме с текстовым полем

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
Try 
    Dim cat As Catalog = New Catalog() 
    cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
       "Data Source=" & txtFilePath & "N.mdb;" & _ 
       "Jet OLEDB:Engine Type=5") 
    MessageBox.Show("Database Created Successfully") 
    cat = Nothing 
Catch ex As Exception 
    MessageBox.Show("Database already Exists") 
End Try 
End Sub