從文本框給數據庫路徑

Question

我想創建新的MS Access數據庫，通過從文本框中提供路徑而不是在運行時在vb中預先寫入路徑。淨

進口ADOX 公共類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 

末級

Answer 1

而不是使用文本框獲取的文件夾路徑使用由NET庫提供的適當的控制。它被稱爲FolderBrowserDialog TextBoxes對於這種操作並不是很好。用戶可以有很多的鍵入正確路徑的問題，而不是在它的簡單一的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