-1

に到達するcon.open()と、エラーが発生します。

Imports System.Data.OleDb
Public Class Form1
Dim con As OleDbConnection
Dim strCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\testDB.accdb"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con = New OleDbConnection(strCon)
con.Open()
MsgBox("con open")
con.Close()
MsgBox("con closed")

End Sub
End Class
4

1 に答える 1

1

エラーがなければわかりにくいですが、権限の問題でしょうか?

testDB.accdb ファイルを右クリックし、Properties、Security、Edit、Add「everyone」と入力し、 をクリックCheck Namesし、全員が強調表示されたらチェックボックスにチェックをOk入れてから、さらに2 回チェックします。Full ControlOk

于 2013-05-09T13:51:36.697 に答える