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")
Dim base As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""{0}""" Dim strConnect As String = String.Format(base, strtext)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)