txt 轉access 問題(求解) / 物件導向程式設計 / 程式設計俱樂部

討論區快速選單

知識庫快速選單

政府補助!學嵌入式+物聯網

網路投保旅行平安險

[ 回上頁 ] [ 討論區發言規則 ]

txt 轉access 問題(求解)

更改我的閱讀文章字型大小大小

作者 : babeyaya(babeyaya) [ 貼文 11 \| 人氣 0 \| 評價 0 \| 評價/貼文 0 \| 送出評價 3 次 ]
[ 給個讚 ] [ 給個讚 ] [ 回應本文 ] [ 發表新文 ] [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]

2015/7/20 下午 11:03:24

Microsoft Jet 資料庫引擎無法開啟 ' 檔案。它已經被其他的使用者獨佔地開啟，或者您需要有檢視資料的權限。
沒有開啟檔案時執行,也檢查過權限了..想請問各位高手如何解
-------------------------------------------------------
Imports System.Data.OleDb
Imports System.IO
Imports System.Text
Imports System.Collections
Imports System.Data.Odbc

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
     Using ofd As New OpenFileDialog
     ofd.Filter = "All files (*.*)|*.*"
     ofd.Title = "Select File"

     If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
     readfile(ofd.FileName)

     End If
     End Using

    End Sub
    Public Function readfile(ByVal filepath As String) As Integer
     Dim fileread As New StreamReader(filepath, System.Text.Encoding.GetEncoding("BIG5"))
     fileread.ReadLine()
     Dim count As Integer = 0
     While Not fileread.EndOfStream
     Dim strline As String = fileread.ReadLine
     Dim strarray = strline.Split(";")
     DataGridView1.Rows.Add()
     For i As Integer = 0 To strarray.Length - 1
     DataGridView1.Rows(count).Cells(i).Value = strarray(i)
     Next
     count += 1
     End While
     Return 1
     fileread.Close()
    End Function
    Private Sub Button2_Click_1(sender As System.Object, e As System.EventArgs) Handles Button2.Click
     Call ReadFileA()
    End Sub
    Private Sub ReadFileA()

     Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
     "D:\apple5.mdb;Persist" & _
" Security Info=False;")
     Dim sqlstr As String
     sqlstr = "INSERT INTO Missing_Lns SELECT * FROM [Text;HDR=No;FMT=Delimited;" & _
     "Database=D:\;].123.txt;"
     cnn.Open()
     Dim cmd As New OleDbCommand(sqlstr, cnn)
     cmd.ExecuteNonQuery()
     cnn.Close()

    End Sub

End Class