討論區快速選單
知識庫快速選單
程式設計俱樂部Facebook粉絲團 CRM雲端平台必備Salesforce認證 政府補助!學嵌入式+物聯網
[ 回上頁 ] [ 討論區發言規則 ]
txt 轉access 問題(求解)
更改我的閱讀文章字型大小
作者 : babeyaya(babeyaya)
[ 貼文 11 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2015/7/20 下午 10:33:00

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
 板主 : simula , 小朱
 > 資訊工程與科學 - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - 資訊工程與科學 - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
資訊工程與科學
1 長長 240 
2 HKLN.net 240 
3 青衫 210 
4 速定 150 
5 simula 150 
6 aming 110 
7 arios 90 
8 80 
9 DEMO999 70 
10 Raymond 60 
資訊工程與科學
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.015625