Access加载SQL server数据库列表
时 间:2022-09-27 13:42:45
作 者:欧志华 ID:51519 城市:广州
摘 要:Access加载SQL server数据库列表
正 文:
这个方法需要先引用 ADO
Dim cnn As new ADODB.Connection
Dim rst As new ADODB.RecordsetDim strSQL As String
Dim strConnect As String
Dim strServer As String
Dim strUserName As String
Dim strPassWord As String
strServer = Me.txtServer
strUserName = Me.txtUserName
strPassWord = Me.txtPassword
strConnect = "Provider=SQLOLEDB;" _
& "User ID=" & strUserName & ";" _
& "Password=" & strPassWord & ";" _
& "Data Source=" & strServer & ";"
cnn.ConnectionString = strConnect
cnn.Open
strSQL = "select * from sys.databases "
Set rst = cnn.Execute(strSQL)
With Me.lstTableList
.RowSource = ""
rst.MoveFirst
Do While Not rst.EOF
.AddItem rst.Fields("name")
' Debug.Print rst.Fields("name")
rst.MoveNext
Loop
End With
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access高效办公】统计当...(06.30)
- 【Access高效办公】用复选...(06.24)
- 根据变化的日期来自动编号的示例...(06.20)
- 【Access高效办公】按日期...(06.12)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 【Access高效办公】统计当...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)

学习心得
最新文章
- Access快速开发平台--执行有...(07.03)
- 【Access高效办公】统计当月之...(06.30)
- 【Access高效办公】用复选框控...(06.24)
- 根据变化的日期来自动编号的示例;根...(06.20)
- Access快速开发平台--Acc...(06.16)
- 【Access高效办公】按日期区间...(06.12)
- Access快速开发平台--生成复...(06.07)
- 仓库管理实战课程(25)-导航菜单...(06.06)
- 仓库管理实战课程(24)-库存月结...(06.05)
- 分享一个简单的X氏家谱小示例(06.04)