asp修改问题

exec= "SELECT * FROM dt2 WHERE gp123 = " + gpx

应该是这句的问题

检查一下gpx和gp123的类型，它们可能不匹配

按你上面的代码，gpx应该是string型，你的数据库中字段gp123是什么数据类型？

如果是int型的就必须把gpx转换为int型，用cint函数转换

1.在宏编辑界面中进行SQL数据查询以及生成报表的代码如下：

Sub Static()

Dim objNewWorkbook As Workbook '定义一个Workbook对象

Set objNewWorkbook = Workbooks.Add(ThisWorkbook.Path &"\模板.xlt") '使用模板文件新建一个EXCEL报表生成文件

Set objConnection = CreateObject("ADODB.Connection") '创建一个ADO连接

objConnection.Open "Provider=Microsoft.Jet.Oledb.4.0Extended Properties='Excel 8.0Hdr=yesImex=1'Data Source=" &ThisWorkbook.FullName '设置连接字符串

strCommand = "select 施工人, count(*) as 拆电话 from [" &Sheet1.Name &"$] where 施工动作 = '拆' and 专业类型 = '电话' group by 施工人" '查询表单一中的数据源进行统计

?objNewWorkbook.Sheets(1).Range("A3").CopyFromRecordset objConnection.Execute(strCommand)

2.将查询统计结果输出到目的报表文件的表单1的从A3开始的区域中

3.下面代码是调用EXCEL的排序方式进行汉字排序，这里SQL语句中的排序对于汉字排序与期望结果不同

4.使用EXCEL中的排序方法是根据EXCEL版本不同调用有所区别

Select Case Application.Version

Case "11.0":

objNewWorkbook.Sheets(1).Range("A3:M" &CStr(intSumRow - 1)).Sort Key1:=objNewWorkbook.Sheets(1).Range("A3"), Order1:=xlAscending, Header:=xlNo, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

:=xlPinYin, DataOption1:=xlSortNormal

Case "12.0":

objNewWorkbook.Sheets(1).Sort.SortFields.Clear

objNewWorkbook.Sheets(1).Sort.SortFields.Add Key:=Range("A3:A" &CStr(intSumRow - 1)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With objNewWorkbook.Sheets(1).Sort

.SetRange Range("A2:M" &CStr(intSumRow - 1))

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Case Else

End Select

objConnection.Close

End Sub

---