2014-05-09 5 views
0

첫 번째로 나는 VB6에 관해서는 알지 못한다는 것을 지적하고 싶습니다. 나는 그녀의 오래된 XP 컴퓨터에서 그녀의 새로운 윈도우 8 컴퓨터로 모든 것을 옮겨서 친구를 도우려고 노력하고있다. 나는 그녀의 VB6 데이터베이스를 제외하고 거의 모든 것을 가지고있다. 누구든지 나를 도울 수 있습니까?VB6 데이터베이스를 Windows 8로 마이그레이션

데이터베이스가있는 VB6 폴더로 복사했습니다. 나는 그것을 실행할 때 아래 오류가 발생합니다.

"런타임 오류 3706 - 공급자를 찾을 수 없습니다. 제대로 설치되지 않았을 수 있습니다."

Google에서 주변을 둘러 보았고 제공 업체 세부 정보가 포함 된 파일을 찾았습니다. 누구든지 그것이 작동하도록 변경해야 할 것을 알고 있습니까?

귀하의 도움은 크게 receveid입니다! 제트에 설치된 OLE DB 공급자에 따라

Attribute VB_Name = "Startup" 
Option Explicit 

Public Gdb As ADODB.Connection 
Public GfrmMainForm As frmMain 
Public GstrPrinterFont As String 

Sub Main() 

Dim strFullName As String 

    Set GfrmMainForm = New frmMain 
    GfrmMainForm.Show 

    strFullName = ZADFullDatabaseName("Contacts", "M") 
    If Not ZIsFile(strFullName) Then 
     MsgBox strFullName & " does not exist", vbOKOnly 
     MsgBox ("Terminating " & App.Title) 
     End       ' Something wrong with files, so exit 
    End If 

    Set Gdb = New ADODB.Connection 
    Gdb.CursorLocation = adUseClient 
    Gdb.IsolationLevel = adXactCursorStability 
    Gdb.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" _ 
     & strFullName & ";" 

End Sub 

답변

0

, 변경 :

Gdb.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & strFullName & ";" 

Gdb.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFullName & ";" 

또는

Gdb.Open "PROVIDER=Microsoft.Jet.OLEDB.12.0;Data Source=" & strFullName & ";" 
관련 문제