无法加载文件或程序集'driveinfoex，version = 1.1.3054.15437， [英] Could not load file or assembly '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.

这篇关于无法加载文件或程序集'driveinfoex，version = 1.1.3054.15437，的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！