![]() ![]() OTable = cnOleDb.GetOleDbSchemaTable(, Nothing) (, Nothing)")Įnd If For i As Long = 0 To - 1 Dim sName As String = oTable.Rows(i)( " TABLE_NAME") & " " Dim sSql As String = oTable.Rows(i)( " VIEW_DEFINITION") & " " & " seconds to cnOleDb.GetOleDbSchemaTable_ If cnOleDb Is Nothing Then Exit Sub End If Dim oStopwatch As Stopwatch = Stopwatch.StartNew()ĭim oTable As DataTable = cnOleDb.GetOleDbSchemaTable_ If IO.File.Exists(txtFilePath.Text) = False Then Exit Sub End If Install Microsoft Access Database Engine 2016 Redistributable?", _ĭetails.aspx?id=54920&WT.mc_id=rss_alldownloads_all")Įnd If End Try Return Nothing End Function Private cnOleDb As = Nothing Private Sub LoadViews() If ex.Message.IndexOf( " ") -1 Then If MsgBox( " Error: " & ex.Message & " _ ' The '.12.0' provider is not registered on the local machine. mdb" And Environment.Is64BitProcess = False Then TryĬn.ConnectionString = " Provider=.4.0 _Ĭn.ConnectionString = " Provider=.12.0 Data Source=" & _ TxtFilePath.Text = OpenFileDialog1.FileNameĮnd Sub Private Function GetConnection() As ĭim sError As String = " " If System.IO.Path.GetExtension(txtFilePath.Text).ToLower() = _ ![]() OpenFileDialog1.Filter = " Access Files|*.mdb *.accdb" OpenFileDialog1.FileName = oFileInfo.Name OpenFileDialog1.InitialDirectory = oFileInfo.DirectoryName OpenFileDialog1.InitialDirectory = " " Else Dim oFileInfo As New IO.FileInfo(txtFilePath.Text) Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |