Izzy Decorte Ответов: 1

Как заменить источник данных для подключения к базе данных текстом?


Я создаю программное обеспечение для баз данных, где я хочу дать людям выбор, где разместить базу данных (например, центральное расположение nas или сервер), чтобы иметь программное обеспечение на 2 или более компьютерах.
Поэтому я сделал код для выбора местоположения базы данных в начальной форме запуска.
Для этого код:

System.Data.OleDb
Public Class LoginScreen

    'DEEL 1: HIER KOMT DATABASE CODE
    Private Sub Loginscreen_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PatientendatabaseDataSet1.tbl_users' table. You can move, or remove it, as needed.
        pnlLoginPanel.Visible = False

    End Sub
    Private Sub btnChoose_Click(sender As Object, e As EventArgs) Handles btnChoose.Click
        Dim strtext As String
        OpenFileDialog1.Filter = "Database Files | *.mdb"
        OpenFileDialog1.InitialDirectory = "F:\GoogleDrive\EINDWERK VBNET"
        OpenFileDialog1.Title = "Choose your Database"
        OpenFileDialog1.ShowDialog()
        strtext = OpenFileDialog1.FileName
        txtDatabaselocationshow.Text = strtext

    End Sub
    Private Sub btnDBConnect_Click(sender As Object, e As EventArgs) Handles btnDBConnect.Click
        If txtDatabaselocationshow.Text = "" Then
            MessageBox.Show("Please choose a database!")
            chkRememberDB.Checked = False
        Else
            pnlLoginPanel.Visible = True

        End If
    End Sub
    Private Sub chkRememberDB_CheckedChanged(sender As Object, e As EventArgs) Handles chkRememberDB.CheckedChanged
        If chkRememberDB.Checked = True Then
            txtDatabaselocationshow.ReadOnly = True
        Else
            txtDatabaselocationshow.ReadOnly = False
        End If
    End Sub


поэтому, как только я нажму кнопку "Подключиться" в форме, я должен подключиться к базе данных.

В будущих формах в моем программном обеспечении есть ли способ заменить "фактическое местоположение" строкой , отображаемой в выбранном поле текстового поля?

Что я уже пробовал:

так что вместо этого
Provider=Microsoft.ACE.OLEDB.12.0;Data Source="F:\GoogleDrive\EINDWERK VBNET\PatientenDatabase.accdb"


он может показать что-то вроде этого?
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=strtext")

1 Ответов

Рейтинг:
6

OriginalGriff

Установите местоположение в виде строки формата:

Dim base As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""{0}"""
Dim strConnect As String = String.Format(base, strtext)


Izzy Decorte

Привет, Грифф, спасибо за быстрый ответ.
просто чтобы убедиться: синтаксис дальше идет так?
Дим основание как строка = "поставщика=Майкрософт.Туз.Oledb для.12.0;Источник Данных=""{0}"""
Dim strConnect As String = строка.Формат(базовый, strtext)
Попробуй
Использование conn в качестве нового OleDbConnection("strConnect")
Коннектикут.Открывать()...
или я теряю цитаты?

OriginalGriff

Да, потеряйте цитаты ... вы ведь знаете разницу между постоянными и переменными, не так ли? Потому что если вы этого не сделаете, то вам действительно нужно вернуться к началу вашего курса и начать все сначала.