Chinaunix首页 | 论坛 | 博客
  • 博客访问: 790275
  • 博文数量: 156
  • 博客积分: 5320
  • 博客等级: 大校
  • 技术积分: 1605
  • 用 户 组: 普通用户
  • 注册时间: 2004-10-09 12:24
文章分类

全部博文(156)

文章存档

2010年(20)

2009年(46)

2008年(21)

2007年(21)

2006年(33)

2005年(10)

2004年(5)

分类: WINDOWS

2006-01-13 12:03:05

调用系统存储过程sp_helpdb,VB例程(DAO)
     Dim r As Recordset,db As Database,wks as Workspace
     Set wks = DBEngine.CreateWorkspace("myWks", "Admin", "", dbUseODBC)
     Set Db = wks.OpenDatabase("", dbDriverNoPrompt, 0, "ODBC;SERVER=MYSERVER;DRIVER={SQL SERVER};DSN='';UID=sa;DATABASE=master;PWD=;")
     Set r = db.OpenRecordset("sp_helpdb")
     Do While Not r.EOF
     debug.print r!Name
     r.MoveNext
     Loop
     r.Close
    
     db.Close
     wks.Close
_________________________________________________________
首先在“工具”-“引用”中引用 Microsoft SQLDMO object Library。
    
Private Sub Combo1_DropDown()
     If Combo1.ListCount > 0 Then
     Dim Dn As String
     Dn = Trim(Combo2.Text) 'combo1是列数据库名的combo控件
     Combo1.Clear
     Combo1.Text = Dn
     SendKeys "{END}"
     '以上实现下拉时原来内容不被清空
     Else
     End If
     Dim svr As New SQLDMO.SQLServer
     Dim i As Integer
     svr.Connect "ServerName", "UerID", "PWD" '3个引号内分别为服务器名,用户名,密码
     For i = 1 To svr.Databases.Count
     Combo1.AddItem svr.Databases(i).Name
     Next
    End Sub
 
阅读(2261) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~