[已解决]SQL查询时出现系统错误，求助

www1988

桌面.zip (17.53 KB, 下载次数: 13)

2013-1-29 09:49 上传

点击文件名下载附件

hwc2ycy

你加上区域就成了。

hwc2ycy

把查询语句中sheet1$加上区域就成了

1. Select * From [Sheet1$A2:E65536]

复制代码

www1988

hwc2ycy 发表于 2013-1-29 10:18
把查询语句中sheet1$加上区域就成了

是我太笨了吗？天哪

hwc2ycy

1. Sub Ado0()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim Sql As String
   
5.     Dim lujing As String
   
6.     Dim i As Integer
   
7.     Dim j As Integer
   
8.     Dim r As Integer
   
9.     ActiveSheet.UsedRange.Clear
   
10.     lujing = ThisWorkbook.Path & Application.PathSeparator & "通讯录.xls"
    
11.     cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties=""Excel 8.0;HDR=YES;IMEX=0"";Data Source=" & lujing
    
12.     Sql = "Select * From [Sheet1$A2:E65536] "
    
13.     rst.Open Sql, cnn, adOpenKeyset
    
14.     For i = 1 To rst.Fields.Count
    
15.         Cells(1, i) = rst.Fields(i - 1).Name
    
16.     Next i
    
17.     Range("a2").CopyFromRecordset rst
    
18.     rst.Close
    
19.     cnn.Close
    
20.     Set rst = Nothing
    
21.     Set cnn = Nothing
    
22. End Sub

复制代码

hwc2ycy

www1988 发表于 2013-1-29 10:23
是我太笨了吗？天哪

你表中的姓名字段有空格。

hwc2ycy

1. select `姓  名` from [sheet1$A2:e65536]

复制代码

我才注意到这个细节。

hwc2ycy

而且还是两空格，

www1988

hwc2ycy 发表于 2013-1-29 10:29
我才注意到这个细节。

晕菜！！！我也是刚刚看见，这折腾！我真是无以为谢，有什么需要我做的请尽管开口，我QQ，我一般隐身

www1988

hwc2ycy 发表于 2013-1-29 10:30
而且还是两空格，

又来了，
Dim str As String
。。。

str = Worksheets("sheet1").Range("G2")
。。。
Sql = "Select 姓名,职务,联系电话 From [Sheet1$A2:E65536]  "
这时候可以正常查询，但是改为Sql = "Select 姓名,职务,联系电话 From [Sheet1$A2:E65536] where 姓名 = '%" & str & "%'"后也没有出错提示，可是查询的数据没有显示