无法加载文件或程序集'driveinfoex，version = 1.1.3054.15437，

本文介绍了无法加载文件或程序集'driveinfoex，version = 1.1.3054.15437，的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

Imports System.Data Imports System.Data.SqlClient Imports System.Collections.Generic Imports Microsoft.VisualBasic Imports System.IO Imports System.Data.OleDb Public Class MyADO Private connectionstring As String Public Conn As New Data.SqlClient.SqlConnection() Sub New() Dim ObjReader As StreamReader ObjReader = New StreamReader(System.AppDomain.CurrentDomain.BaseDirectory & "Taj.txt") Dim Server As String = ObjReader.ReadToEnd() 'My.Settings.ServerName Dim DataBase As String = "Keys" 'My.Settings.DataBaseName connectionstring = "Data Source=" & Server & ";Initial Catalog=" & DataBase connectionstring &= ";User Id=taj;Password=Taj_1234;" Dim Conn As New Data.SqlClient.SqlConnection(connectionstring) Try Conn.Open() Conn.Close() Catch ex As Exception 'The server was not found 'SettingsForm.MdiParent = MdiForm 'SettingsForm.ShowDialog() End Try End Sub Sub New(ByVal Server As String, ByVal Database As String) 'Dim Server As String = My.Settings.ServerName 'Dim DataBase As String = My.Settings.DataBaseName connectionstring = "Data Source=" & Server & ";Initial Catalog=" & Database connectionstring &= ";User Id=taj;Password=Taj_1234;" 'Dim Conn As New Data.SqlClient.SqlConnection(connectionstring) End Sub Public Function ExecuteNonQuery(ByVal SQL As String) As Integer Dim Conn As New SqlClient.SqlConnection(connectionstring) Dim cmd As New SqlClient.SqlCommand(SQL, Conn) If Conn.State <> ConnectionState.Open Then Conn.Open() Dim retval As Integer = cmd.ExecuteNonQuery() Conn.Close() Return retval End Function Public Function ExecuteNonQuery(ByVal SQL As String, ByVal Param() As SqlParameter) As Integer Dim Conn As New Data.SqlClient.SqlConnection(connectionstring) Dim cmd As New SqlClient.SqlCommand(SQL, Conn) If Conn.State <> ConnectionState.Open Then Conn.Open() cmd.Parameters.AddRange(Param) Dim retval As Integer = cmd.ExecuteNonQuery() Conn.Close() Return retval End Function Public Function ExecuteScalar(ByVal SQL As String) As String Dim Conn As New SqlClient.SqlConnection(connectionstring) Dim cmd As New SqlClient.SqlCommand(SQL, Conn) If Conn.State <> ConnectionState.Open Then Conn.Open() Dim retval As Object = cmd.ExecuteScalar() Conn.Close() Return IIf(IsNothing(retval) Or IsDBNull(retval), "", retval) End Function Public Function GetDataTable(ByVal SQL As String) As Data.DataTable Dim Conn As New SqlClient.SqlConnection(connectionstring) Dim dt As New Data.DataTable Dim da As New SqlClient.SqlDataAdapter(SQL, Conn) da.Fill(dt) Return dt End Function Public Sub UpdateDataTable(ByVal DataTable As DataTable, ByVal SQL As String) Dim Conn As New Data.SqlClient.SqlConnection(connectionstring) Dim Adapter As New SqlDataAdapter() Adapter.SelectCommand = New SqlCommand(SQL, Conn) If Conn.State <> ConnectionState.Open Then Conn.Open() Dim Builder As SqlCommandBuilder = New SqlCommandBuilder(Adapter) Adapter.InsertCommand = Builder.GetInsertCommand Adapter.UpdateCommand = Builder.GetUpdateCommand Adapter.DeleteCommand = Builder.GetDeleteCommand Adapter.Update(DataTable) Conn.Close() End Sub Public Function GetDataReader(ByVal SQL As String) As SqlDataReader Dim Con As New Data.SqlClient.SqlConnection(connectionstring) Dim cmd As New Data.SqlClient.SqlCommand(SQL, Con) If Con.State <> ConnectionState.Open Then Con.Open() Dim retval As SqlDataReader = cmd.ExecuteReader() Return retval End Function End Class Public Class Access Private ConnString As String Public Con As New Data.OleDb.OleDbConnection Sub New(ByVal DatabasePath As String) ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" ConnString &= "Data Source=" & DatabasePath & ";Persist Security Info=False;" Con = New Data.OleDb.OleDbConnection(ConnString) 'Con.Open() 'Con.Close() End Sub Public Function ExecuteNonQuery(ByVal SQL As String) As Integer Dim cmd As New Data.OleDb.OleDbCommand(SQL, Con) If Con.State <> ConnectionState.Open Then Con.Open() Dim retval As Integer = cmd.ExecuteNonQuery() Con.Close() Return retval End Function Public Function ExecuteScalar(ByVal SQL As String) As String Con = New Data.OleDb.OleDbConnection(ConnString) Dim cmd As New Data.OleDb.OleDbCommand(SQL, Con) If Con.State <> ConnectionState.Open Then Con.Open() Dim retval As Object = cmd.ExecuteScalar() Con.Close() Return IIf(IsNothing(retval) Or IsDBNull(retval), "", retval) End Function Public Function GetDataReader(ByVal SQL As String) As OleDbDataReader Con = New Data.OleDb.OleDbConnection(ConnString) Dim cmd As New Data.OleDb.OleDbCommand(SQL, Con) If Con.State <> ConnectionState.Open Then Con.Open() Dim retval As OleDbDataReader = cmd.ExecuteReader() Return retval Con.Close() End Function Public Function GetDataTable(ByVal SQL As String) As Data.DataTable Dim dt As New Data.DataTable Dim da As New Data.OleDb.OleDbDataAdapter(SQL, Con) da.Fill(dt) Return dt End Function End Class

我的尝试：

What I have tried:

引用：

嗨 操作开始时问题非常困难。此消息

Hi The problem is very difficult at the start of the operation. This message "

Quote：

无法加载文件或程序集'DriveInfoEx，Version = 1.1.3054.15437，Culture = neutral，PublicKeyToken = null'或者它的依赖关系。系统找不到指定的文件。

Could not load file or assembly 'DriveInfoEx, Version=1.1.3054.15437, Culture=neutral, PublicKeyToken=null' or one of its dependencies. The system cannot find the file specified.

出现，一切都停止了。请帮忙

" appears and everything stops. Please help

推荐答案

通常我建议在相应的论坛上发表评论 - 获取没有WMI的物理硬盘序列号 [ ^ ]但是dmihailescu自2017年以来一直没有在网站上活动。 尝试从解决方案中删除对DriveInfoEx的引用，然后将DLL复制到解决方案文件夹或子文件夹中。将该副本的引用添加到您的解决方案中。 您发布的代码似乎与问题无关，因为那里什么都没有指的是DriveInfo，HDD或序列号。所以也许找到引用它的代码并删除代码，如果你不需要它。 请注意@ MadMyche关于使用过时驱动程序的评论 - 看起来好像你已经找到了一些代码可供下载，并且按原样使用它而不了解它实际上在做什么。 Normally I would suggest leaving a comment in the appropriate forum - Get Physical HDD Serial Number without WMI[^] but dmihailescu hasn't been active on the site since 2017. Try removing the reference to DriveInfoEx from your solution and then copy the DLL to your solution folder or a sub-folder. Add a reference to that copy into into your solution. The code you have posted doesn't appear to have anything to do with the problem as there is nothing in there that refers to DriveInfo, HDD, or Serial Numbers. So perhaps find the code that is referring to it and remove the code if you don't need it. And please heed @MadMyche's comment about using an out-of-date driver - it looks as if you have found some code to download and are just using it "as is" without understanding what it is actually doing.