Lỗi "Cuộc gọi thủ tục hoặc đối số không hợp lệ" trên "ADODB.Connection mới" chỉ khi được biên dịch trên Windows 7

Question

Tôi đang gặp một số sự cố khi biên dịch một số ứng dụng cũ trên VB6 vì tôi có một máy phát triển mới trong windows 7. (cái cũ của tôi là trên Windows XP.)

Nếu tôi biên dịch dự án trên máy XP của mình, mọi thứ đều ổn. Nếu tôi biên dịch cùng một dự án trên máy tính Windows 7 của mình, nó vẫn chạy tốt, nhưng nếu tôi cố chạy nó trên máy XP, tôi gặp lỗi này.

Error Number: 5
Mô tả: gọi thủ tục không hợp lệ hoặc đối số

Nhờ xử lý lỗi của tôi, tôi biết rằng dòng ném lỗi này là:

Dim objConn As ADODB.Connection 
--> Set objConn = New ADODB.Connection 

tôi so sánh các tham chiếu trên cả hai máy và Project - References giống nhau: (Đối tượng dữ liệu Microsoft ActiveX 2.7 Thư viện)

Điều gì có thể gây ra lỗi này?

Answer 1

Đây là số Microsoft issue đã biết, nhưng tôi không nghĩ đó là lỗi; Tôi tin rằng khả năng tương thích đã bị hỏng vì lý do bảo mật. Sự cố có thể tồn tại trên các bản dựng không phải SP1 nếu bạn đã cài đặt certain hotfix. Có một vài tùy chọn được tham chiếu trong Microsoft KB. Dưới đây là một số khác article cung cấp bản cập nhật.

Chúng tôi gặp sự cố này và chúng tôi đã quyết định triển khai bản vá Tương thích ngược trên tất cả các máy phát triển và thay thế tất cả các tham chiếu ADO cũ bằng tham chiếu Tương thích ngược. Điều này đã làm việc tốt cho chúng tôi.

Answer 2

Đây là số problem in SP1 for Win7 đã biết sẽ được sửa trong SP2.

Cách xử lý sự cố trong SP1 là sao chép tệp typelib ADO cũ từ Win7 RTM trong C:\Program Files (x86)\Common Files\System\ado và đăng ký ở đó.

Đăng ký kiểu gõ ADO cũ này không phải là một nhiệm vụ tầm thường khi nhiều chuỗi diễn đàn đã hiển thị. Đây là một tập tin thực thi chúng tôi sử dụng trong cửa hàng của chúng tôi để sửa chữa ADO typelib vấn đề:

@echo off 
set regtlib="%windir%\Microsoft.NET\Framework\v4.0.30319\regtlibv12.exe" 
set subinacl="%~dp0subinacl.exe" 
set target_dir=%CommonProgramFiles%\System\ado 
if not "%CommonProgramFiles(x86)%"=="" set target_dir=%CommonProgramFiles(x86)%\System\ado 

copy "%~dp0msado28_old.tlb" "%target_dir%\msado28_old.tlb" > nul 
%subinacl% /subkeyreg HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{2A75196C-D9EB-4129-B803-931327F72D5C} /setowner=Administrators > nul 
%subinacl% /subkeyreg HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{2A75196C-D9EB-4129-B803-931327F72D5C} /grant=Administrators=F > nul 
%subinacl% /subkeyreg HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Classes\TypeLib\{2A75196C-D9EB-4129-B803-931327F72D5C} /setowner=Administrators > nul 
%subinacl% /subkeyreg HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Classes\TypeLib\{2A75196C-D9EB-4129-B803-931327F72D5C} /grant=Administrators=F > nul 
%regtlib% -u "%target_dir%\msado28.tlb" 
%regtlib% "%target_dir%\msado28_old.tlb" 

Bạn cần cả msado28_old.tlb và subinacl.exe đặt trong cùng một thư mục như install.bat tập tin và .NET Framework 4.0 cài đặt cho tiện ích regtlibv12.exe.

Bây giờ bạn có thể biên dịch lại dự án của bạn tham chiếu ADO trên hộp Win7 mà không có vấn đề tương thích trên các phiên bản trước của Windows.