程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> SqlServer數據庫 >> 關於SqlServer >> SQLServer數據庫對象信息的獲取方法

SQLServer數據庫對象信息的獲取方法

編輯:關於SqlServer
 在開發基於SQL Server數據庫的應用程序時,經常會遇到需要知道SQL Server數據庫對象的相關信息的情況,例如SQL Server中有哪些數據庫,這些數據庫中有哪些數據表,每個數據表有哪些字段,這些字段是什麼屬性等。筆者在開發一個數據庫導入程序時就遇到了這些問題,經過一番摸索,較好地解決了上述問題,現在把實現方法介紹給大家。程序界面如下圖所示。
  
  1. 開發環境
  本文所列出的代碼在Windows NT 4.0(SP6)、Microsoft Visual Basic 6.0、Microsoft SQL Server 2000環境下調試通過。
  
  2. 實現思想
  利用SQL-DMO(分布式管理對象)來訪問SQL Server數據庫。SQL-DMO是為Windows 9x與 Windows NT提供的32位OLE對象,它為與OLE兼容的應用程序提供了SQL Server管理功能的接口,開發者通過DMO就可以直接訪問SQL Server數據對象。
  
  3. 實現代碼
  在“菜單->工程->引用”裡選中“Microsoft SQLDMO Object Library”。
  
  在代碼中定義以下全局變量:
  Public oSQLServer As SQLDMO.SQLServer
  ’定義一個SQLDMO.SQLServer對象
  Public oCurrentDB As SQLDMO.Database
  ’定義一個SQLDMO.Database 對象
  Public oCurrentTable As SQLDMO.Table
  ’定義一個SQLDMO.Table 對象
  Public SERVER_NAME As String
  ’用於獲得用戶輸入的SQL Server服務器名稱
  Public USERNAME As String
  ’用於獲得用戶輸入的用戶名
  Public PASSWord As String
  ’用於獲得用戶輸入的密碼
  .....
  以下為部分關鍵的程序代碼:
  
  Private Sub cmd_link_Click() ’點擊“連接”按鈕
  ......
  Set oSQLServer = CreateObject(“SQLDMO.SQLServer”)
  oSQLServer.Connect SERVER_NAME, USERNAME, PASSWord
  ’連接SQL Server服務器,SERVER_NAME 為服務器名,USERNAME為用戶名,PASSWord為用戶口令
  FillEmptyDatabaseList (True)
  If cob_sqldb.ListCount > 0 Then
  cob_sqldb.ListIndex = 0
  Cob_sqldb_Click
  End If
  ......
  End Sub
  
  Private Sub FillEmptyDatabaseList(bFill As Boolean)
  ’獲得SQL Server服務器上的所有數據庫名稱
  If bFill = True Then
  Dim oDB As SQLDMO.Database
  Set oDB = New SQLDMO.Database
  For Each oDB In oSQLServer.Databases
  If oDB.SystemObject = False Then
  ’判斷其不是系統數據庫
  cob_sqldb.AddItem oDB.Name
  ’把非系統數據庫名稱添加到數據庫信息列表框中
  End If
  Next oDB
  End If
  End Sub
  
  Private Sub Cob_sqldb_Click()
  ’點擊“數據庫信息”列表框
  ......
  Dim oDB As SQLDMO.Database
  Set oDB = oSQLServer.Databases(cob_sqldb.List(cob_sqldb.ListIndex))
  If oCurrentDB Is Nothing Then
  Set oCurrentDB = oDB
  Else
  If oCurrentDB.Name = oDB.Name Then
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved