Jak utworzyć źródło DANYCH PROGRAMU Access za pomocą polecenia SQLConfigDataSource

Uwaga

Nazwa usługi Office 365 ProPlus została zmieniona na Aplikacje usługi Microsoft 365 dla przedsiębiorstw. Aby uzyskać więcej informacji na temat tej zmiany, przeczytaj ten wpis w blogu.

Zaawansowane. Wymaga kodowania eksperta, współdziałania i umiejętności wielu użytkowników.

Ten artykuł dotyczy bazy danych programu Microsoft Access (mdb lub accdb) i projektu programu Microsoft Access (adp).

Podsumowanie

Przy użyciu metody RegisterDatabase nie można utworzyć systemowej bazy danych (DSN). Aby utworzyć system dsn, użyj wywołania interfejsu API ODBC dla źródła SQLConfigDataSource.

Firma Microsoft podaje przykłady programowania tylko dla celów ilustracyjnych, nie udzielając żadnej rękojmi, wyrażonej wprost ani dorozumianej, w tym także, ale nie tylko, dorozumianej rękojmi co do przydatności handlowej lub do określonych celów. W tym artykule zakłada się, że czytelnik zna demonstrowany język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać żadnych funkcji i konstruować nowych procedur w celu dostosowania ich do określonych potrzeb użytkownika.

Więcej informacji

W poniższym przykładzie użyto wywołania INTERFEJSU API dla źródła DANYCH SQLConfigDataSource w celu utworzenia systemowego źródła danych (DSN). Przykład tworzy źródło danych dla przykładowej bazy danych Northwind.mdb, gdy baza danych znajduje się w C:\Northwind.mdb.

  1. Skopiuj przykładową bazę danych Northwind.mdb do katalogu głównego dysku C.
  2. Utwórz nową bazę danych programu Access.
  3. Utwórz moduł i wpisz następujące wiersze w sekcji deklaracji:
Option Explicit
Const ODBC_ADD_SYS_DSN = 4       'Add data source
Const ODBC_CONFIG_SYS_DSN = 5    'Configure (edit) data source
Const ODBC_REMOVE_SYS_DSN = 6    'Remove data source

Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal _
   hwndParent As Long, ByVal fRequest As Long, ByVal _
   lpszDriver As String, ByVal lpszAttributes As String) As Long

  1. Wpisz następującą procedurę:
Function Build_SystemDSN(DSN_NAME As String, Db_Path As String)

Dim ret%, Driver$, Attributes$

Driver = "Microsoft Access Driver (*.MDB)" & Chr(0)
   Attributes = "DSN=" & DSN_NAME & Chr(0)
   Attributes = Attributes & "Uid=Admin" & Chr(0) & "pwd=" & Chr(0)
   Attributes = Attributes & "DBQ=" & Db_Path & Chr(0)

ret = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, Driver, Attributes)

'ret is equal to 1 on success and 0 if there is an error
   If ret <> 1 Then
       MsgBox "DSN Creation Failed"
   End If

End Function

  1. W oknie bezpośrednim wpisz następujący wiersz, a następnie naciśnij klawisz ENTER:

    ? Build_SystemDSN("My SampleDSN","c:\Northwind.mdb")

  2. Kliknij przycisk Start, wskaż polecenie Ustawienia, a następnie kliknij polecenie Panel sterowania.

  3. W Panelu sterowania kliknij pozycję Źródła danych ODBC, Źródła danych ODBC (32-bitowe) lub 32-bitowe źródło DANYCH ODBC.

  4. Kliknij kartę DSN systemu. Pamiętaj, że do listy systemowych źródeł danych dodano my SampleDSN.