excel VBA动态链接数据库

Posted youmeng

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了excel VBA动态链接数据库相关的知识,希望对你有一定的参考价值。

最近车间制造部有需求,需要通过excel填写的ID获取数据库中的某个取值。研究了一下VBA,简要记录一下代码,仅供参考。

Function GETPMAX(SID As String) As String

    Dim result As String
    
    链接数据库
    Set Cnn = CreateObject("ADODB.Connection")
    Set rt = CreateObject("ADODB.Recordset")
    
    Cnn.ConnectionString = "Provider = SQLOLEDB;User ID= ;password=;Data Source=;Initial Catalog = "
    Cnn.Open
    Sql = "SELECT TOP 1 Pmax FROM dbo where ID=‘" & SID & "‘ order by hDateTime desc"
    
     获取记录集
    Set rt = Cnn.Execute(Sql)
   
     根据字段获取值
    result = CStr(rt("Pmax"))
    
    GETPMAX = result
    
    关闭记录集
    rt.Close
    
    关闭数据库链接,释放资源
    Cnn.Close

End Function

 

以上是关于excel VBA动态链接数据库的主要内容,如果未能解决你的问题,请参考以下文章

访问 VBA 动态 Excel 导入

Excel VBA将组合框列表从静态范围更改为动态范围

如何将两个 excel vba 代码合并为一个捕获动态变化值的代码

带高亮显示的动态搜索 - Excel VBA

Excel VBA 从关闭的工作簿中读取数据,带有 ADODB、动态范围和标题可选

Excel VBA Outlook-动态电子邮件收件人