Bir Erişim sistemi DSN oluşturmak için SQLConfigDataSource nasıl kullanılır

Not

Office 365 ProPlus, Microsoft 365 Kurumsal Uygulamaları olarak yeniden adlandırılıyor. Bu değişiklik hakkında daha fazla bilgi için, bu blog yazısını okuyun.

Gelişmiş: Uzman kodlama, birlikte çalışabilirlik ve çok kullanıcılı beceriler gerektirir.

Bu makale, bir Microsoft Access veritabanı (.mdb veya accdb) ve bir Microsoft Access projesi (.adp) için geçerlidir.

Özet

RegisterDatabase yöntemini kullanarak bir sistem DSN oluşturamazsınız. Bir sistem DSN oluşturmak için SQLConfigDataSource için ODBC API çağrısını kullanın.

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Daha fazla bilgi

Aşağıdaki örnekte, bir sistem DSN oluşturmak için SQLConfigDataSource için API çağrısı kullanılır. Örnek, veritabanı C:\Northwind.mdb adresinde bulunduğunda northwind.mdb örnek veritabanı için bir veri kaynağı oluşturur.

  1. Örnek veritabanı Northwind.mdb'yi C sürücüsünün kök dizinine kopyalayın.
  2. Yeni bir Access veritabanı oluşturun.
  3. Bir modül oluşturun ve Bildirimler bölümünde aşağıdaki satırları yazın:
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. Aşağıdaki yordamı yazın:
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. Hemen penceresinde, aşağıdaki satırı yazın ve sonra ENTER tuşuna basın:

    ? Build_SystemDSN("ÖrnekliDSN","c:\Northwind.mdb")

  2. Başlat'ı tıklatın, Ayarlar'ı işaret edin ve ardından Denetim Masası'nı tıklatın.

  3. Denetim Masası'nda, ODBC Veri Kaynakları, ODBC Veri Kaynakları (32 bit) veya 32bit ODBC'yitıklatın.

  4. Sistem DSNtab'ı tıklatın. ÖrnekliDSN'imin Sistem Veri Kaynakları listesine eklendiğini unutmayın.