Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > ADP及SQL SERVER

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.Recordset
    Dim 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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助