INIT OK 20.1.4

2020-06-09 10:30:25 +02:00
parent 96e5588d9d
commit 291939e03f
25 changed files with 54 additions and 60 deletions
@@ -76,7 +76,7 @@ Public Class ZIPHUVC
        _OpenFileDialog.Filter = "XLS file (.xls)|*.xls|XLSX file (.xlsx)|*.xlsx|All Files (*.*)|*.*"


-        If _OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
+        If _OpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Dim _xlsFile As String = _OpenFileDialog.FileName
            Dim _cs As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
            _cs += "Data Source=" & _xlsFile.ToString & ";"