关于SQL在工作簿-工作表之间的查询、排序、转置（盖楼中....）

opiona

SQL求助-关于EXCEL版本.rar (31.68 KB, 下载次数: 40)

2013-5-23 00:55 上传

点击文件名下载附件

SQL中：FROM [Excel 8.0;Database=" & ThisWorkbook.Path & "\数据表12.xlsx].[Sheet1$]"   '//Excel2007的提示错误

1. 
   
2. Sub OPIONA()
   
3. StrSQL = "INSERT INTO [数据表A] SELECT * FROM [Excel 8.0;Database=" & ThisWorkbook.Path & "\数据表12.xlsx].[Sheet1$]"   '//Excel2007的错误
   
4. 'StrSQL = "INSERT INTO [数据表A] SELECT * FROM [Excel 8.0;Database=" & ThisWorkbook.Path & "\数据表12.xls].[Sheet1$]"  '//Excel2003的这个可以通过
   
5. '//不知道问题出在那里！大概问题是：[Excel 8.0;   但是不知道如何修改
   
6. MsgBox AddDelMove(StrSQL)
   
7. End Sub
   
8. 
   
9. 
   
10. '*****************************************************************************************
    
11. '函数名：    AddDelMove
    
12. '函数功能：  执行SQL语句，一般为添加、修改删除语句
    
13. '返回值：    返回一个布尔值，是否成功完成
    
14. '参数1：     StrSQL   字符类型   SQL查询语句
    
15. '使用方法：  Bool_1= AddDelMove(StrSQL,true)
    
16. '*****************************************************************************************
    
17. Public Function AddDelMove(StrSQL) As Boolean    '//执行SQL语句，一般为添加、修改删除语句
    
18. 'On Error Resume Next    ' 改变错误处理的方式。
    
19. Err.Clear
    
20.     If StrSQL = "" Then AddDelMove = False: Exit Function
    
21.         Set CN = CreateObject("Adodb.Connection") '//新建一个ADO连接
    
22.         Set RS = CreateObject("adodb.recordset")
    
23.         CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\Database.mdb;"
    
24.         CN.Execute (StrSQL)
    
25.         If Err.Number <> 0 Then AddDelMove = False Else AddDelMove = True
    
26.         CN.Close  '//关闭ADO连接
    
27.     Set RS = Nothing
    
28.     Set CN = Nothing  '//释放内存
    
29. End Function
    
30. '*****************************************************************************************

复制代码

zhaogang1960

短信收到
可以使用连接2007文件那样连接2003文件：
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myOldExcelFile.xls;
Extended Properties="Excel 8.0;HDR=YES";
但反过来不行
请参阅下面链接：
http://www.connectionstrings.com/excel

zhaogang1960

1. Sub OPIONA()
   
2. StrSQL = "INSERT INTO [数据表A] SELECT * FROM [Excel 12.0;Database=" & ThisWorkbook.Path & "\数据表12.xlsx].[Sheet1$]"   '//Excel2007的错误
   
3. 'StrSQL = "INSERT INTO [数据表A] SELECT * FROM [Excel 8.0;Database=" & ThisWorkbook.Path & "\数据表12.xls].[Sheet1$]"  '//Excel2003的这个可以通过
   
4. '//不知道问题出在那里！大概问题是：[Excel 8.0;   但是不知道如何修改
   
5. MsgBox AddDelMove(StrSQL)
   
6. End Sub
   
7. '*****************************************************************************************
   
8. '函数名：    AddDelMove
   
9. '函数功能：  执行SQL语句，一般为添加、修改删除语句
   
10. '返回值：    返回一个布尔值，是否成功完成
    
11. '参数1：     StrSQL   字符类型   SQL查询语句
    
12. '使用方法：  Bool_1= AddDelMove(StrSQL,true)
    
13. '*****************************************************************************************
    
14. Public Function AddDelMove(StrSQL) As Boolean    '//执行SQL语句，一般为添加、修改删除语句
    
15. 'On Error Resume Next    ' 改变错误处理的方式。
    
16. Err.Clear
    
17.     If StrSQL = "" Then AddDelMove = False: Exit Function
    
18.         Set CN = CreateObject("Adodb.Connection") '//新建一个ADO连接
    
19.         Set RS = CreateObject("adodb.recordset")
    
20.         CN.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.mdb;"
    
21.         CN.Execute (StrSQL)
    
22.         If Err.Number <> 0 Then AddDelMove = False Else AddDelMove = True
    
23.         CN.Close  '//关闭ADO连接
    
24.     Set RS = Nothing
    
25.     Set CN = Nothing  '//释放内存
    
26. End Function
    
27. '*****************************************************************************************
    

复制代码

klmyyq

详细研读，学习思路

opiona

234.rar (16.38 KB, 下载次数: 29)

2013-6-19 13:15 上传

点击文件名下载附件
求相似度

想实现类似词典查询，或者搜索引擎的相似度功能，
求A、B列字符串的相似度和最大相似度：
如： ABCD  和 ABD 相似度是75%
        ABCD  和 ADC 相似度是50%

在网上看到：DIFFERENCE函数，
但是显示：函数未定义，
在vba+Excel中有其他办法么，
或者VBA+access的解决办法
或者其他语言+其他数据库的解决方式

opiona

  _conn = "Provider=Microsoft.Ace.OleDb.12.0;" & "Data Source=" & Excel工作簿路径和名称 & ";" & "Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
            
_command.CommandText = "SELECT * INTO [MS Access;Database=" & Application.StartupPath & "\Access数据库名.mdb].[手机号码数据] FROM [Sheet表明$]"

使用上面可以成功导入Excel2007数据到Access，
问题是：如果Access带有密码，应该如何改写？

zhaogang1960

短信收到，请参考：

[;pwd=密码;database=" & 路径 & "\数据库名.mdb].数据表"

没名字了

太精彩了，做个标记收藏一下

李大明

opiona 发表于 2011-11-14 23:12
第一个答案找到了： 等待大侠对第二问题的解答，或者是没有办法如此排序？？

老师，如何数据表中的C、D、E、F也有数据 ，在查询表里也在查询出来，要如何修改代码？

opiona

分别查询，用 UNION ALL组合一下
例如：
SELECT 姓名,年龄 FROM [数据表A] where len(姓名)>0  UNION ALL SELECT 姓名,年龄 FROM [数据表b] where len(姓名)>0   UNION ALL SELECT 姓名,年龄 FROM [数据表C] where 年龄>23