Makale numarası: 286189 - Son Gözden Geçirme: 30 Ağustos 2004 Pazartesi - Gözden geçirme: 2.3

Nasıl yapılır: Visual Basic kodu OLE DB veri bağlantısı özellikleri iletişim kutusunda Çağır

Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.
Hepsini aç | Hepsini kapa

Özet

OLE DB veri bağlantı özellikleri iletişim kutusunda, genellikle ADO veri denetimleri Visual Basic 6.0 DataEnvironment bağlantı nesneleri ve Universal Data Link (UDL) dosyaları için ActiveX veri nesnesi (ADO) bağlantı dizesi öznitelikleri düzenlemek veya tanımlamak için kullanılır. Bu makale belgeler program aracılığıyla çağırmak ve bir ADO Connection nesnesine ilişkin bağlantı dizesini oluşturmak için bu iletişim kutusunu bir Visual Basic uygulamasında kullanmak gösteren bir kod örneği çalışma zamanında bir grafik kullanıcı'ni kullanarak sürücü arabirimi (GUI) arabirim. Bu, uygulamalar ve kullanıcılar, çalıştırma sırasında bir ADO bağlantı dizesini belirtmek gereksinim duyabilir araçları kullanmak için yararlı bir özelliktir.

Daha fazla bilgi

Microsoft Data Access Components (MDAC) tarafından yüklü OLE DB hizmet bileşeni 1.0 tür kitaplığı (oledb32.dll) PromptEdit ve PromptNew, yöntem çağırmak ve ADO bağlantı dizeleri düzenlemek veya tanımlamak için OLE DB veri bağlantısı özellikleri iletişim kutusunu kullanmak DataLinks adlı nesne uygular.

Aşağıdaki adımlar DataLinks nesnesinin OLE DB hizmet bileşeni 1.0 tür kitaplığı bağlantı dizesini bir ADO bağlantı nesnesi özelliklerini düzenlemek için nasıl kullanılacağını gösteren bir Visual Basic örneği olarak ayarlayın:
  1. Yeni bir proje standart exe DOSYASı, Visual Basic'te açın. Varsayılan olarak, Form1 oluşturulur.
  2. Proje menüsünde Microsoft ActiveX Data Objects 2.x kitaplığı ve OLE DB hizmet bileşeni 1.0 tür kitaplığı için başvurular ayarlayın.
  3. Sürükle ve bırak Form1'ı ve <a1>Oluştur</a1> resim yazısı Tanımla bağlantıKomutDüğmesi.
  4. Form1'ın kodu modüle aşağıdaki kodu yapıştırın:
    Dim cn As ADODB.Connection
    
    Private Sub Command1_Click()
    
    Dim MSDASCObj As MSDASC.DataLinks
    Set MSDASCObj = New MSDASC.DataLinks
    
    Set cn = New ADODB.Connection
    MSDASCObj.PromptEdit cn
    
    cn.Open
    MsgBox "Connection opened successfully"
    cn.Close
    End Sub
    					
  5. Projeyi kaydedin ve çalıştırın.
  6. Bağlantı tanımla'yı tıklatın ve Tıklat olay yordamını KomutDüğmesi, kodda MSDASC.DataLinks nesnesinin bir kopyas?n? olu?turur ve OLE DB veri bağlantısı özellikleri iletişim kutusunu görüntülemek için <a2>PromptEdit</a2> yöntemi unutmayın. Bu iletişim kutusu, kalıcı bir pencere olarak görüntülenir. Veri bağlantı özellikleri iletişim kutusu atlamamış kadar sonuç olarak, PromptEdit yöntemine ça?r? izleyen sonraki kod yürütülür değil.
  7. Uygun bir OLEDB Sağlayıcısı Sağlayıcılar sekmesini seçin ve sonra da veritabanlarınızı (Access, SQL Server, Oracle ve benzeri) için bir bağlantı kurmak için başka bağlantı özniteliklerini belirtin.
  8. Bağlantıyı sınamak için Test bağlantısıveri bağlantı özellikleri iletişim kutusundaki Ekle'yi tıklatın. Bağlantı başarılıysa aldığınız bir sınama bağlantısı başarılı bir ileti kutusu unutmayın. Tamam ' ı tıklatarak iletişim kutusunu kapatın. Kalan kod Tıklat olay yordamını, KomutDüğmesi, şimdi yürütülür. Başlatıldı PromptEdit yöntemin bir parametresi olarak geçildi ADO bağlantı nesnesi <a1>ConnectionString</a1> özelliği veri bağlantısı özellikleri iletişim kutusunda seçtiğiniz ayarlara bağlı.

    Çağrı MSDASC.DataLinks</a0> nesnesinin <a1>PromptEdit</a1> yöntemine izleyen ifadeleri açmak ve PromptEdit yöntemi çağrısıyla başlatılmış olan bir ADO Connection nesnesini kullanarak bir ADO Connection'ı kapatın. Bu, ADO Connection nesnesinin ConnectionString özelliği için veri bağlantısı özellikleri iletişim kutusunda seçtiğiniz seçeneklere göre doğru şekilde ayarlandı doğrular. Veri bağlantısı özellikleri</a0> iletişim kutusunda iptal ' i tıklatın, Visual Basic kodu Open deyiminde, bir başlatılmamış ConnectionString kullanarak bağlantı kuramadı olduğunu belirtmek için bir çalıştırma hatası üretir.

    Not: ConnectionString bağlantının boş olup olmadığını denetleyebilirsiniz ("") ve iptal connection.open deyimi önce yakalayın.

Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 3
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 4
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft OLE DB 2.0
  • Microsoft OLE DB 2.1
  • Microsoft OLE DB 2.5
  • Microsoft OLE DB 2.6
  • Microsoft ActiveX Data Objects 2.0
  • Microsoft ActiveX Data Objects 2.01
  • Microsoft ActiveX Data Objects 2.1
  • Microsoft ActiveX Data Objects 2.1 Service Pack 1
  • Microsoft ActiveX Data Objects 2.1 Service Pack 2
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft ActiveX Data Objects 2.6
  • Microsoft ActiveX Data Objects 2.7
Anahtar Kelimeler: 
kbmt kbhowto KB286189 KbMttr
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:286189  (http://support.microsoft.com/kb/286189/en-us/ )