【关于本公众号】了解一下，欢迎关注，谢谢！
快速浏览
实用案例
|日期控件||简单的收发存||收费管理系(Access改进版)|
|中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对|
收费使用项目
|财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版|
内容提要
SQL查询语句自定义函数 获取表头字段
EXCEL VBA操作ACCESS数据库，实现增删改查【基础篇】（免费）！
Dim strCnn As StringPublic conn As ObjectPublic rs As ObjectPublic dbs As StringSub OpenConnection(ByVal dbs As String, Optional ByVal psw As String = "")'//获取数据库连接字符串strCnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbsSet conn = CreateObject("ADODB.Connection")'// 打开数据库链接conn.Open strCnnEnd Sub
Function getFields(sql As String)'//取得一个SQL查询语句的所有表头字段Dim arr()Dim i As IntegerDim fieldsCount As IntegerSet rs = CreateObject("ADODB.Recordset")'//数据库dbs = ThisWorkbook.Path & "\DataBase1101.accdb"'//打开数据库连接Call OpenConnection(dbs)'//执行查询Set rs = conn.Execute(sql)'//把字段写入数组fieldsCount = rs.Fields.CountReDim arr(fieldsCount - 1)For i = 0 To fieldsCount - 1= rs.Fields(i).NameNextgetFields = arrrs.CloseSet rs = Nothingconn.CloseSet conn = NothingEnd Function
完整代码详见当天另一条推文！
后记
1、时间关系，今天就说这么多吧，通过自定义函数，可以减少写代码的工作量，而且，以后碰到类似问题，可以直接复制使用。
2、如果我们操作的数据库相对固定，我们可以把数据库完整路径设置为Public常量，或者Public变量，这样就不需要每次都给它赋值了。
好，今天就到这里，我们下期再会！
| 安利小店 安利的牙膏非常不错，用了以后就不想再用其他的了；洗洁精、洗衣液也是日常必备，用过都说好！ | |
| 合谷医疗 合谷医疗专攻各种疑难杂症，尤其擅长抑郁症、焦虑失眠、儿童神经发育异常、多动症、自闭孤独症、腰颈椎疾病治疗，可谓神乎其技！体验过的直呼早点来就好了！ |
喜欢就点个赞、点在看、留言评论、分享一下呗！感谢支持！
案例文件分享说明：
案例文件可免费分享，但需符合以下要求：
请关注、点赞、点在看、点...、留言，方便的话分享一下就完美啦！如果不便走上面的“流程”，请打赏，万分感谢！
请添加上方我的合谷医疗企业微信，案例文件通过微信发送。如有定制需求，亦可通过微信联系。
Excel问题，请在文章下面留言讨论！或者加入我的付费交流群提问！
