首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

sql话语查询excel 2003表,求一sql语句

2012-09-20 
sql语句查询excel 2003表,求一sql语句一个excel表格,4列,6万行左右。例表:VB codeABCD01151232071632220637

sql语句查询excel 2003表,求一sql语句
一个excel表格,4列,6万行左右。
例表:

VB code
A        B        C        D0        1        1        51        2        3        20        7        1        63        2        2        20        6        3        73        1        1        7


要查询A列和C列同时重复的记录,比如上面的第一、第三行……


VB code
  Dim lsSql As String  Dim lrRec As ADODB.Recordset  Dim ldbConn As New ADODB.Connection  ldbConn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Excel Files;DBQ=" & "c:\1.xls; DefaultDir=c:\ ;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"  ldbConn.Open  lsSql = "SELECT * "  lsSql = lsSql & "......."      Set lrRec = New ADODB.Recordset  lrRec.CursorLocation = adUseClient  lrRec.Open lsSql, ldbConn, adOpenForwardOnly, adLockReadOnly



[解决办法]
Excel 可以当作 Jet Enine 的外部数据库来查询。

不过 SQL 语句无法直接支持重复判断的查询。需要多条语句或嵌套语句来实现。例如:

Select * From yourtable Where A*10+C IN (Select x From (Select A*10+C As x, Count(*) As m Group by A*10+C) Where m > 1)


热点排行