Access projesinin bağlantısını program aracılığıyla değiştirme

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

Bu makale yalnızca bir Microsoft Access projesi (.adp) için geçerlidir.

Özet

Bu makalede, bir Microsoft Access projesi (ADP) dosyasının bağlantısını program aracılığıyla nasıl değiştirdiğiniz gösterilmektedir.

Daha fazla bilgi

ADP'nin bağlantısını değiştirmenin en kolay yolu bunu el ile yapmaktır. Geçerli projenin bağlantı özelliklerine Access 2002 veya Access 2003'te aşağıdaki gibi erişebilirsiniz: Dosya menüsünde Bağlantı'ya tıklayın. Görüntülenen iletişim kutusu, diğer özelliklerin yanında sunucu adını ve güvenlik modlarını değiştirme seçenekleri sunar.

Not Access 2007'de, Veri Bağlantısı Özellikleri iletişim kutusunun Bağlantı sekmesini açmak için şu adımları izleyin:

1. Microsoft Office Düğmesi'ne ve ardından Erişim Seçenekleri'ne tıklayın.
2. Özelleştir sekmesinde, Komutları seçin listesinde Tüm Komutlar'a tıklayın.
3. Sol bölmede Bağlantı'ya tıklayın, Ekle'ye ve ardından Tamam'a tıklayın.
4. Hızlı Erişim Araç Çubuğu'ndaBağlantı'ya tıklayın.

Ancak bazen işlemi otomatikleştirmek isteyebilirsiniz. Kullanıcıların uygulamanızın belirli bir bölümü için farklı bir SQL sunucusuna bağlanmasını veya başlatma sırasında bağlantı işlemini denetlemek isteyebilirsiniz; böylece hataları arayabilir ve bunları uygun şekilde işleyebilirsiniz, belki de başka bir sunucuya yönlendirebilirsiniz.

Aşağıdaki adımlarda, Access nesne modelini kullanarak bir ADP'nin mevcut bağlantısının nasıl değiştirildiğini gösteren bir işlev kullanılır. İşlev başarılı olursa True, başarılı olmazsa False döndürür.

1. Access'i başlatın ve northwindCS.adp örnek Access projesini açın.

2. Access 2002'de veya Access 2003'te, Veritabanı penceresindeki Nesneler'in altındaki Modüller'e tıklayın ve yeni bir modül açmak için Yeni'ye tıklayın.

   Access 2007'de, Oluştur sekmesinin Diğer grubunda Makro'nun altındaki aşağı oka tıklayın ve ardından Modül'e tıklayın.

3. Yeni modüle aşağıdaki kodu ekleyin ve modülü kaydedin:

Function ChangeADPConnection(strServerName As String, strDBName As _
   String, Optional strUN As String, Optional strPW As String) As Boolean
Dim strConnect As String
On Error GoTo EH:
Application.CurrentProject.CloseConnection
'The Provider, Data Source, and Initial Catalog arguments are required.
strConnect = "Provider=SQLOLEDB.1" & _
";Data Source=" & strServerName & _
";Initial Catalog=" & strDBName
If strUN <> "" Then
    strConnect = strConnect & ";user id=" & strUN
    If strPW <> "" Then
        strConnect = strConnect & ";password=" & strPW
    End If
Else  'Try to use integrated security if no username is supplied.
    strConnect = strConnect & ";integrated security=SSPI"
End If
Application.CurrentProject.OpenConnection strConnect
ChangeADPConnection = True
Exit Function
EH:
MsgBox Err.Number & ": " & Err.Description, vbCritical, "Connection Error"
ChangeADPConnection = False
End Function

4. Access 2002'de veya Access 2003'te, Veritabanı penceresindeKi Nesneler'in altındaki Formlar'a tıklayın, Yeni'ye tıklayın ve ardından Tamam'a tıklayarak Tasarım görünümünde yeni bir form açın.

   Access 2007'de Oluştur sekmesinde Form'a tıklayın.

5. Forma bir komut düğmesi ekleyin.

6. Komut düğmesinin OnClick özelliğini aşağıdaki olay yordamına ayarlayın:

Dim bCheckConnection As Boolean
   'You must specify the correct parameters for your following server.
   'username and password parameters are optional.
bCheckConnection=ChangeADPConnection("ServerName","DBName","UserName","PW")
MsgBox bCheckConnection

7. Forma dönmek için Visual Basic ortamını kapatın.

8. Formu kaydedin ve formu Form görünümüne geçirin.

9. Temel alınan kodu çalıştırmak için komut düğmesine tıklayın.

   6. adımda bir bağlantı için doğru parametreleri sağladıysanız Doğru ifadesini içeren bir ileti kutusu alırsınız.

   -VEYA-

   Doğru parametreleri sağlamadıysanız hata iletisini alırsınız. Hata iletisinde Tamam'a tıkladığınızda, Yanlış'ı görüntüleyen ileti kutusunu alırsınız.