|
楼主 |
发表于 2012-8-25 19:38
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
获取全部字段名
获取全部字段名.rar
(10.97 KB, 下载次数: 841)
使用SQL+ADO时,很多时候不知道字段名如何正确书写,
例如: Name、Number、8月21日、
- Sub 列出全部字段名()
- Dim SQL$, i&, s$, s2$
- Set cnn = CreateObject("ADODB.Connection")
- Set rst = CreateObject("ADODB.Recordset")
- Set Sh = Sheets("数据表")
- Sh.Range("J:J").ClearContents
- cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=Excel 8.0;data source=" & ThisWorkbook.FullName
- StrSQL = "SELECT * FROM [" & Sh.Name & "$]"
- Set rst = cnn.Execute(StrSQL)
- '如果字段名和字段数量不好确定,如附件示例的字段名为:8月21日,
- '可以使用rst.Fields(i).Name,就是陈列出所有字段名
- '类似Name这样系统可能用到的字段名,可以用[]标示,如: SELECT [NAME] FROM [表名] WHERE [NUMBER]>20
- For i = 0 To rst.Fields.Count - 1
- Sh.Cells(i + 2, 10) = rst.Fields(i).Name
- Next
- rst.Close
- cnn.Close
- Set rst = Nothing
- Set cnn = Nothing
- End Sub
复制代码
|
|