ACC: Nasıl SQL Server nesneleri Listele için Otomasyon kullanma

Makale çevirileri Makale çevirileri
Makale numarası: 154011 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

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

Bu makalede, Microsoft SQL Server sürüm 6.0 veya 6.5 veritabanında varolan nesneleri listelemek için Otomasyon nasıl kullanıldığını gösterir.

Bu makalede, Visual Basic for Applications ve programlama Microsoft Access ile sağlanan araçları kullanarak Microsoft Access uygulamaları oluşturma bildiğinizi varsayar. Hakkında daha fazla bilgi için Visual Basic for Applications "Building uygulamaları ile Microsoft Access" el ile sürümü için bkz.

Daha fazla bilgi

Microsoft SQL Server sürüm 6.0 ve sonraki sürümleri SQL Server dağıtılmış yönetimi nesne modeli (SQL-DMO) adlı yeni bir nesne s?radüzeni karşı açık duruma getirmiş olursunuz. Bu derlemeleri ve nesneleri için Microsoft Jet veritabanı alt yapısı, nesne modeli benzer bir dizi oluşur.

Microsoft Access geliştiricileri yapabilirsiniz SQL Server tablo adları, <a1>ilişkileri</a1>, sütunlar ve benzerleri için sorgulamak için bu işlevi kullanın.

SQL-DMO) özelliklerini kullanmak için önce istemci yardımcı programları, SQL Server ile birlikte çalışma sağlamak için SQL Server'ın iş istasyonu kurulumu yüklemeniz gerekir. Bu yardımcı programları'nı yükleme hakkında daha fazla bilgi için Microsoft SQL Server 6.0 veya 6.5 belgelerine bakın.

Aşağıdaki örnekler, Visual Basic uygulaması'nın kodu Microsoft Access 97 veya Microsoft Access 7.0 veritabanları, tablolar, sütunlar, bir Microsoft SQL Server 6. 0 veya 6.5 tablo listelemek için nasıl kullanılacağını gösterir.

  1. Microsoft SQL Server 6. 0'ı veya 6.5 Workstation/istemci yükleme hizmet programları.
  2. Microsoft Access 97 veya 7. 0'ı açın ve yeni bir modül oluşturun.
  3. Araçlar menüsünden, başvurular'ı tıklatın ve "Microsoft SQL OLE nesne kitaplığı." seçmek için tıklatın... Bu seçenek, SQL Server için iş istasyonu/istemci yardımcı programları yüklediğinizde kullanılabilir.
  4. Tanımlamalar bölümüne aşağıdaki satırları yazın:
          Option Explicit
          Public Const strServer = "YourServer"  ' Indicate your server.
          Public Const strUser = "sa"            ' Indicate your user name.
          Public Const strPwd = ""               ' Indicate your password.

Örnek 1

Aşağıdaki örnek, bir Microsoft SQL Server sürüm 6.0 veya 6.5, veritabanlarının bir listesini oluşturmak gösterilmiştir:

  1. Aşağıdaki fonksiyon oluştur:
          Function EnumSQLDatabases() As Boolean
             On Error GoTo EnumSQLDatabases_Err
             Dim objSQL As Object, objSQLdb As Object
             Dim strMsg As String
             Set objSQL = CreateObject("Sqlole.SQLServer")
             ' Connect to SQL server...
             objSQL.Connect strServer, strUser, strPwd
             ' Print server info.
             Debug.Print "------------------------------------------------"
             Debug.Print "SQL Server: " & strServer
             Debug.Print "------------------------------------------------"
             For Each objSQLdb In objSQL.Databases
                 ' Print database(s) name.
                 Debug.Print "...Database: " & objSQLdb.Name
             Next
             ' Disconnect from SQL server.
             objSQL.DisConnect
             EnumSQLDatabases = True
          EnumSQLDatabases_End:
             Exit Function
          EnumSQLDatabases_Err:
             ' Basic error handling.
             MsgBox Err.Description, vbInformation, "SQL OLE Automation"
             Resume EnumSQLDatabases_End
          End Function
    						
  2. Hata ayıklama penceresinde aşağıdaki satırı yazın ve ENTER tuşuna basın:
    ? EnumSQLDatabases()
    Veritabanları, örneğin SQL sunucu üzerinde yer alan listesini Not:
           ------------------------------------------------
           SQL Server: MyTestSQLServer
           ------------------------------------------------
           ...Database: pubs
           ......Tables:
           ..........authors
           ..........discounts
           ..........employee
           ..........jobs
           ..........pub_info
           ..........publishers
           ..........roysched
           ..........sales
           ..........stores
           ..........sysalternates
           ..........sysarticles
           ..........syscolumns
           ..........syscomments
           ..........sysconstraints
           ..........sysdepends
           ..........sysindexes
           ..........syskeys
           ..........syslogs
           ..........sysobjects
           ..........sysprocedures
           ..........sysprotects
           ..........syspublications
           ..........sysreferences
           ..........syssegments
           ..........syssubscriptions
           ..........systypes
           ..........sysusers
           ..........titleauthor
           ..........titles
           True
    						
    çıkışınız benzer (bağlı olarak yüklenmiş SQL Server veritabanlarında) olacağını unutmayın.

Örnek 2

Aşağıdaki örnek, bir Microsoft SQL Server sürüm 6.0 veya 6.5 veritabanı tablolarını listelemek gösterilmiştir:

  1. Aşağıdaki işlevi oluşturun:
          Function EnumSQLTables() As Boolean
             On Error GoTo EnumSQLTables_Err
             Dim objSQL As Object, objSQLdb As Object
             Dim objSQLtbl As Object
             Dim strMsg As String
             Set objSQL = CreateObject("Sqlole.SQLServer")
             ' Connect to SQL server...
             objSQL.Connect strServer, strUser, strPwd
             Debug.Print "------------------------------------------------"
             Debug.Print "SQL Server: " & strServer
             Debug.Print "------------------------------------------------"
             For Each objSQLdb In objSQL.Databases
                 ' Print database(s) name.
                 Debug.Print "...Database: " & objSQLdb.Name
                 Debug.Print "......Tables: "
                 For Each objSQLtbl In objSQLdb.Tables
                     ' Print table name(s).
                     Debug.Print ".........." & objSQLtbl.Name
                 Next
             Next
             ' Disconnect from SQL server...
             objSQL.DisConnect
             EnumSQLTables = True
          EnumSQLTables_End:
             Exit Function
          EnumSQLTables_Err:
             ' Basic error handling.
             MsgBox Err.Description, vbInformation, "SQL OLE Automation"
             Resume EnumSQLTables_End
          End Function
    						
  2. Hata ayıklama penceresinde aşağıdaki satırı yazın ve ENTER tuşuna basın:
    ? EnumSQLTables()
    Tablo listesi belirtilen SQL Server veritabanında, örneğin aldığınız Not:
           ------------------------------------------------
           SQL Server: MyTestSQLServer
           ------------------------------------------------
           ...Database: pubs
           ......Tables:
           ..........authors
           ..........discounts
           ..........employee
           ..........jobs
           ..........pub_info
           ..........publishers
           ..........roysched
           ..........sales
           ..........stores
           ..........sysalternates
           ..........sysarticles
           ..........syscolumns
           ..........syscomments
           ..........sysconstraints
           ..........sysdepends
           ..........sysindexes
           ..........syskeys
           ..........syslogs
           ..........sysobjects
           ..........sysprocedures
           ..........sysprotects
           ..........syspublications
           ..........sysreferences
           ..........syssegments
           ..........syssubscriptions
           ..........systypes
           ..........sysusers
           ..........titleauthor
           ..........titles
    						
    çıkışınız benzer (bağlı olarak yüklenmiş SQL Server veritabanlarında) olacağını unutmayın.

Örnek 3

Aşağıdaki örnek, bir Microsoft SQL Server tablo sütunları listesini almak gösterilmiştir:

  1. Aşağıdaki fonksiyon oluştur:
          Function EnumSQLColumns() As Boolean
             On Error GoTo EnumSQLColumns_Err
             Dim objSQL As Object, objSQLdb As Object
             Dim objSQLtbl As Object, objSQLfld As Object
             Dim strMsg As String
             Set objSQL = CreateObject("Sqlole.SQLServer")
             ' Connect to SQL server...
             objSQL.Connect strServer, strUser, strPwd
             Debug.Print "------------------------------------------------"
             Debug.Print "SQL Server: " & strServer
             Debug.Print "------------------------------------------------"
             For Each objSQLdb In objSQL.Databases
                 ' Print database(s) name.
                 Debug.Print "...Database: " & objSQLdb.Name
                 Debug.Print "......Tables: "
                 For Each objSQLtbl In objSQLdb.Tables
                     ' Print table name(s).
                     Debug.Print ".........." & objSQLtbl.Name
                     For Each objSQLfld In objSQLtbl.Columns
                         ' Print field name(s).
                         Debug.Print "............." & objSQLfld.Name
                     Next
                 Next
             Next
             ' Dis-connect from SQL server.
             objSQL.DisConnect
             EnumSQLColumns = True
          EnumSQLColumns_End:
             Exit Function
          EnumSQLColumns_Err:
             ' Basic error handling.
             MsgBox Err.Description, vbInformation, "SQL OLE Automation"
             Resume EnumSQLColumns_End
          End Function
    						
  2. Hata ayıklama penceresinde aşağıdaki satırı yazın ve ENTER tuşuna basın:
    ? EnumSQLColumns()
    Sütunlar listesinde belirtilen Microsoft SQL Server tablosunda örneğin aldığınız Not:
           ------------------------------------------------
           SQL Server: MyTestSQLServer
           ------------------------------------------------
           ...Database: master
           ...Database: model
           ...Database: msdb
           ...Database: MyTestDB
           ...Database: pubs
           True
    						
    çıkışınız benzer (bağlı olarak yüklenmiş SQL Server veritabanlarında) olacağını unutmayın.

Referanslar

OLE işlevselliği ve otomatikleştirme hakkında daha fazla bilgi için Otomasyon için Yardım dizini aramak veya Microsoft Access 97 Office Yardımcısı'nı isteyin.

SQL Server dağıtılmış yönetimi nesne modeli (SQL-DMO) hakkında daha fazla bilgi için SQL Server 6.0 belgelerine dahil "Programming SQL Distributed Management Objects" el ile bakın.

Özellikler

Makale numarası: 154011 - Last Review: 29 Ocak 2014 Çarşamba - Gözden geçirme: 3.4
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
Anahtar Kelimeler: 
kbnosurvey kbarchive kbmt kbhowto kbinterop kbprogramming KB154011 KbMttr
Machine-translated Article
Ö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:154011

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com