Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Function ChangeDatabase(ByVal strDBName As String) As System.Data.OleDb.OleDbConnection
Dim strConn As String
Dim objConn As System.Data.OleDb.OleDbConnection
Dim objConBuilder As New System.Data.OleDb.OleDbConnectionStringBuilder
Dim objDlg As New System.Windows.Forms.OpenFileDialog()
With objDlg
.FileName = "*.mdb"
.InitialDirectory = Application.StartupPath
.ShowDialog()
strDBName = .FileName
End With
strConn = objConBuilder.ConnectionString
objConn = New System.Data.OleDb.OleDbConnection(strConn)
FileCopy(strConn, Application.StartupPath & "\Lehrer.mdb")
Return objConn
End Function
FileCopy(strConn,Spplication.StartupPath & "\Lehrer.mdb")
Function ChangeDatabase(ByVal strDBName As String) As System.Data.OleDb.OleDbConnection
Dim strConn As String
Dim objConn As System.Data.OleDb.OleDbConnection
Dim objConBuilder As New System.Data.OleDb.OleDbConnectionStringBuilder
Dim objDlg As New System.Windows.Forms.OpenFileDialog()
With objDlg
.FileName = "*.mdb"
.InitialDirectory = Application.StartupPath
.ShowDialog()
strDBName = .FileName
End With
objConBuilder.DataSource = strDBName
strConn = objConBuilder.ConnectionString
MsgBox(strConn)
FileCopy(strConn, Application.StartupPath & "Lehrer.mdb")
End Function
Nun bin ich schon fast am Ziel. Ich müsste nur noch von diesem Text, das DataSource und das Gleichheitszeichen abschneiden. Geht das Irgendwie?