[已解决]SQL调用程序出不了数据

张雄友

hwc2ycy 发表于 2014-5-5 21:49
strSQL = "select 姓名,身份证号 from [" & s & "]"
在这后面再添加WHERE子句。

这样肯定不行，from 子句 语法错误。

hwc2ycy

strSQL = "select 姓名,身份证号 from [" & S & "] WHERE 姓名='王丽力'"
你修改主过程肯定错误呀，
要在子过程里动态生成。

hwc2ycy

1. Dim strSQL, S, myPath$, OutputSheet$, OutputRange$
   
2. Sub 载入数据()
   
3.     strSQL = "select 姓名,身份证号 from "
   
4.     '条件 = "WHERE 姓名='王丽力'"
   
5.     OutputSheet = "结果"
   
6.     OutputRange = "A2"
   
7.     Call subProgram(strSQL, Pathstr, OutputSheet, OutputRange, "WHERE 姓名='王丽力'")    '调用子程序
   
8.     MsgBox "OK"
   
9. End Sub
   
10. 
    
11. Sub subProgram(ByVal strSQL$, ByVal myPath$, ByVal OutputSheet$, ByVal OutputRange$, strCondition$)    '子程序
    
12.     Dim cnn As Object, Rst As Object, rs As Object
    
13.     Dim strConn As String
    
14.     Dim i As Integer, j%, Pathstr, S$, t$, sProvider$
    
15.     Pathstr = Application.GetOpenFilename(fileFilter:="Excel文件(*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="打开Excel文件", MultiSelect:=True)    '选择多个EXCCEL 文件
    
16.     If TypeName(Pathstr) = "Boolean" Then Exit Sub
    
17.     Application.ScreenUpdating = False
    
18.     Select Case Application.Version * 1
    
19.         Case Is <= 11
    
20.             sProvider = "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0';Data Source ="
    
21.         Case Is >= 12
    
22.             sProvider = "Provider = Microsoft.Ace.Oledb.12.0;Extended Properties ='Excel 12.0';Data Source ="
    
23.     End Select
    
24.     Cells.ClearContents
    
25.     On Error Resume Next    '
    
26.     myPath = S
    
27.     For i = 1 To UBound(Pathstr)
    
28.         If Pathstr(i) <> ThisWorkbook.FullName Then
    
29.             Set cnn = CreateObject("ADODB.Connection")
    
30.             cnn.Open sProvider & Pathstr(i)
    
31.             Set rs = cnn.OpenSchema(20)
    
32.             Do Until rs.EOF
    
33.                 If rs.Fields("TABLE_TYPE") = "TABLE" Then
    
34.                     S = Replace(rs("TABLE_NAME").Value, "'", "")
    
35.                     If Right(S, 1) = "$" Then
    
36. 
    
37.                         Set Rst = cnn.Execute(strSQL & " [" & S & "] " & strCondition)
    
38.                         If Err.Number = 0 Then
    
39.                             m = m + 1
    
40.                             If m = 1 Then
    
41.                                 For j = 0 To Rst.Fields.Count - 1
    
42.                                     Cells(1, j + 1) = Rst.Fields(j).Name
    
43.                                 Next
    
44.                                 Range("A2").CopyFromRecordset Rst
    
45.                             Else
    
46.                                 Range("A65536").End(xlUp).Offset(1).CopyFromRecordset Rst
    
47.                             End If
    
48.                             Exit Do
    
49.                         Else
    
50.                             Err.Clear
    
51.                         End If
    
52.                     End If
    
53.                 End If
    
54.                 rs.MoveNext
    
55.             Loop
    
56.         End If
    
57.     Next
    
58.     Cells.EntireColumn.AutoFit
    
59.     Rst.Close
    
60.     rs.Close
    
61.     cnn.Close
    
62.     Set cnn = Nothing
    
63.     Set rs = Nothing
    
64.     Set Rst = Nothing
    
65.     Application.ScreenUpdating = True
    
66. End Sub
    

复制代码

hwc2ycy

哪怕会一点点SQL，都知道错哪了。

张雄友

hwc2ycy 发表于 2014-5-5 22:22
strSQL = "select 姓名,身份证号 from [" & S & "] WHERE 姓名='王丽力'"
你修改主过程肯定错误呀，
要在 ...

在子过程里动态生成？什么情况。

hwc2ycy

张雄友 发表于 2014-5-5 22:27
在子过程里动态生成？什么情况。

基础不好，先消化一个再说，多了只会越学越乱。

张雄友

hwc2ycy 发表于 2014-5-5 21:28
strSQL是空的，肯定要报错。

你查别的表，该表里不是不有这些字段，这都要考虑到的，否则你就要考虑到容 ...

《美女一号》有二个表，但只提取了一个表的数据，有一个表没有提取到。

hwc2ycy

张雄友 发表于 2014-5-6 07:45
《美女一号》有二个表，但只提取了一个表的数据，有一个表没有提取到。

不能加EXIT DO，加了这个循环就结束了，余下的表就不会再处理了。
你把EXIT DO注释掉就可以了。