我正在尝试使用此代码片段 并且收到以下错误消息:
System.Data.Odbc.OdbcException (0x80131937): ERROR [HY000] General error: Invalid file dsn ''
at System.Data.Odbc.OdbcConnection.HandleError(OdbcHandle hrHandle, RetCode retcode)
at System.Data.Odbc.OdbcConnectionOpen..ctor(OdbcConnection outerConnection, OdbcConnectionString connectionOptions)
at System.Data.Odbc.OdbcConnectionFactory.CreateConnection(DbConnectionOptions options, DbConnectionPoolKey poolKey, Object poolGroupProviderInfo, DbConnectionPool pool, DbConnection o
wningObject)
at System.Data.ProviderBase.DbConnectionFactory.CreateNonPooledConnection(DbConnection owningConnection, DbConnectionPoolGroup poolGroup, DbConnectionOptions userOptions)
at System.Data.ProviderBase.DbConnectionFactory.TryGetConnection(DbConnection owningConnection, TaskCompletionSource`1 retry, DbConnectionOptions userOptions, DbConnectionInternal oldC
onnection, DbConnectionInternal& connection)
at System.Data.ProviderBase.DbConnectionInternal.TryOpenConnectionInternal(DbConnection outerConnection, DbConnectionFactory connectionFactory, TaskCompletionSource`1 retry, DbConnecti
onOptions userOptions)
at System.Data.ProviderBase.DbConnectionInternal.OpenConnection(DbConnection outerConnection, DbConnectionFactory connectionFactory)
at System.Data.Odbc.OdbcConnection.Open()
Run Code Online (Sandbox Code Playgroud)
精简后的代码是:
open System
open System.Data.Odbc
let connectToAccess filename =
let connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;FileDSN=" + filename + ";User Id=admin;Password=;"
new OdbcConnection(connectionString)
let connectToDb() =
let accessFile = Environment.CurrentDirectory + @"\folder\filename.accdb"
connectToAccess accessFile
let connection = connectToDb()
connection.Open()
Run Code Online (Sandbox Code Playgroud)
我确实检查并验证了路径和文件名是否正确。我也试过:
您将 accdb 文件的 DSN 与 accdb 文件混淆了。
FileDSN 包含有关如何连接到数据库的详细信息,但您传递的是数据库的路径,而不是包含有关如何连接到数据库的详细信息的文件的路径。
此外,您正在用作Microsoft.Jet.OLEDB.4.0
提供程序,但尝试使用 ODBC 连接,而不是 OLEDB 连接,因此需要 ODBC 驱动程序而不是 OLEDB 提供程序,并尝试使用 accdb 文件,而 Jet 仅支持 mdb 文件。
使用标准连接字符串。ConnectionStrings.com 是一个流行的资源,但文档中也充满了它们。
示例(对于 accdb 文件,需要安装 Access 数据库引擎并将位数与您的程序相匹配)。
let connectionString = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" + filename + ";"
Run Code Online (Sandbox Code Playgroud)
请注意,这些错误都存在于代码片段中。该片段从未起作用。