VBA中用ADO访问SQL SERVER数据库进行数据查询

最新推荐文章于 2023-12-02 15:01:11 发布

黑暗行动

最新推荐文章于 2023-12-02 15:01:11 发布

阅读量4k

点赞数

本文链接：https://blog.csdn.net/chy2z/article/details/80080307

版权

这篇博客介绍了一个使用VBA通过ADO连接SQL SERVER数据库进行数据查询的程序。程序首先建立数据库连接，然后构造SQL查询语句，根据用户输入筛选数据，并将查询结果写入Excel表格。博客提供了具体的代码示例，展示了如何在Excel中显示查询结果。

摘要由CSDN通过智能技术生成

本程序的作用是：使用数据对象ADO访问SQL数据库，从而进行数据查询，并将查询的数据返回到EXCEL中，由于此程序需用到SQL数据库，所以只供大家参考，不便运行，但大家可以看出其精华！
Private Sub CommandButton1_Click()

Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim R, C, F, I As Integer
Dim Sql_text, day1, linenumber, box As String

Const cnnstr = "Provider = SQLOLEDB;" & _
                            "Data Source = apsgszml04;" & _
                            "Initial Catalog = bhl2ken;User ID =sa;Password =;"

   ‘连接数据库

   day1 = UserForm1.TextBox1.Text
linenumber = UserForm1.ComboBox1.Text
box = UserForm1.ComboBox2.Text


cn.Open cnnstr
Sql_text = Sql_text & "SELECT CONVERT(Char,dbo.TRY123.[day],101) as date1,"
Sql_text = Sql_text & " d