请教高手，如果excel中没有表头，sql语句如何写？

zhaogang1960

syub97 发表于 2012-3-15 13:28
赵老师，都怪我没有说清楚，我给的附件的表头是确定的，这种情况下确实可以直接用表头去读取数据。
但是 ...

1. Sub Macro4() '假设第一个字段是“IMPA”，程序没有判断
   
2.     Dim cnn As Object, rs As Object, SQL$, arr(), i%
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.path & "\IMPA船舶物料指南（第4版）电子版.xls"
   
5.     Set rs = cnn.Execute("[英文$]")
   
6.     ReDim arr(1 To rs.Fields.Count - 1)
   
7.     For i = 1 To rs.Fields.Count - 1
   
8.         arr(i) = rs.Fields(i).Name
   
9.     Next
   
10.     ActiveSheet.UsedRange.Offset(, 1).ClearContents
    
11.     [b1].Resize(, i - 1) = arr
    
12.     SQL = "select a.IMPA" & ",b." & Join(arr, ",b.") & " from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[Sheet1$a:a] a left join [英文$] b on a.IMPA = b.IMPA"
    
13.     [a2].CopyFromRecordset cnn.Execute(SQL)
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    

复制代码

zhaogang1960

附件
select.rar (19.69 KB, 下载次数: 70)

2012-3-15 14:51 上传

点击文件名下载附件

syub97

zhaogang1960 发表于 2012-3-15 14:51
附件

谢谢赵老师，麻烦您了！谢谢您的代码和指导。

我还是想知道怎么样使用哪种没有表头的select，呵呵，只能算自己的一个想法，就不打扰您了。麻烦了！
再次感谢您的帮助

syub97

wj2368 发表于 2012-3-15 14:41

谢谢您了！
这个hdr = yes，应该是有表头的吧，呵呵

麻烦您了！

zhaogang1960

syub97 发表于 2012-3-15 14:59
谢谢赵老师，麻烦您了！谢谢您的代码和指导。

我还是想知道怎么样使用哪种没有表头的select，呵呵，只 ...

本题目中表头是有用的，因为你事先不知道表头，需要程序来写：

For i = 1 To rs.Fields.Count - 1
     arr(i) = rs.Fields(i).Name
Next
[b1].Resize(, i - 1) = arr

syub97

zhaogang1960 发表于 2012-3-15 15:51
本题目中表头是有用的，因为你事先不知道表头，需要程序来写：

For i = 1 To rs.Fields.Count - 1

赵老师，如果我不加表头，只是单纯的想根据查询表的第一列中输入的内容在数据表中的第一列查找，如果查找到了，则把该行复制到查询表中相对应的行。

select a.第一列 b.第二列 b.第三列 from [查询表$] a  left join [数据表$] b on a.第一列 = b.第一列
因为对SQL不太熟悉，所以一直觉得这样应该是没有问题的。

哈哈，总之谢谢赵老师了，真是麻烦您了！ 谢谢您的教导，非常感谢。

zhaogang1960

syub97 发表于 2012-3-15 18:02
赵老师，如果我不加表头，只是单纯的想根据查询表的第一列中输入的内容在数据表中的第一列查找，如果查找 ...

1. Sub Macro4()
   
2.     Dim cnn As Object, rs As Object, SQL$, s$, i%
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no';Data Source=" & ThisWorkbook.path & "\IMPA船舶物料指南（第4版）电子版.xls"
   
5.     Set rs = cnn.Execute("[英文$]")
   
6.     For i = 1 To rs.Fields.Count - 1
   
7.         s = s & ",b." & rs.Fields(i).Name
   
8.     Next
   
9.     ActiveSheet.UsedRange.Offset(1, 1).ClearContents
   
10. '    [英文$]应该从第二行开始，但从第一行开始不会影响效果
    
11.     SQL = "select a.IMPA" & s & " from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[Sheet1$a:a] a left join [英文$] b on a.IMPA = b.f1"
    
12. '    或，请注意下面[Sheet1$a2:a]从第二行开始
    
13.     SQL = "select a.f1" & s & " from [Excel 8.0;hdr=no;Database=" & ThisWorkbook.FullName & "].[Sheet1$a2:a] a left join [英文$] b on a.f1 = b.f1"
    
14.     [a2].CopyFromRecordset cnn.Execute(SQL)
    
15.     rs.Close
    
16.     cnn.Close
    
17.     Set rs = Nothing
    
18.     Set cnn = Nothing
    
19. End Sub
    

复制代码

wj2368

syub97 发表于 2012-3-15 18:02
赵老师，如果我不加表头，只是单纯的想根据查询表的第一列中输入的内容在数据表中的第一列查找，如果查找 ...

...................

syub97

zhaogang1960 发表于 2012-3-15 18:28

嗯嗯，谢谢赵老师，真是麻烦您了，感激不尽，谢谢您的知道和解惑！致敬

syub97

wj2368 发表于 2012-3-15 20:15
...................

真是麻烦您了！十分感谢，请原谅我的驽钝，呵呵，人确实有点笨。
谢谢您的帮助和耐心！
真荣幸能够得到你的帮助！