查询结果写入工作表时某字段值不写入如何表达

danhanqing

    sql = "select top 17 商品类别,品牌规格,核心参数,备注,单位,数量,售价 from 商品库存总表  where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and 业务类别='" & Me.Controls(页面名称 & "_" & "业务类别") & "'  and 商品类别='" & Me.Controls(页面名称 & "_" & "商品类别1") & "'  order by [日期] asc "
    If sql = "" Then Exit Sub
    Rs.Open sql, Conn, 1, 3
    Sheet1.Range("b5").CopyFromRecordset Conn.Execute(sql)  '将列表内容导出到EXCEL工作表


上例中：最后一句是将查询结果写到工作表中，但“数量”这一字段对应在在sheet1中不希望写入查询到的结果，只写成1，该如何表达？
谢谢！

魂断蓝桥

select top 17 商品类别,品牌规格,核心参数,备注,单位,数量 as 1 。。。。。。
另：你这个简单的查询，其实不需要rs记录集的，直接CNN.EXECUTE(SQL) 就行了。

danhanqing

老师！没成功！还是写入数据库中对应的“数量”值了

danhanqing

    sql = "select top 17 商品类别,品牌规格,核心参数,备注,单位,数量 as 1,售价 from 商品库存总表  where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and 业务类别='" & Me.Controls(页面名称 & "_" & "业务类别") & "'  and 商品类别='" & Me.Controls(页面名称 & "_" & "商品类别1") & "'  order by [日期] asc "

danhanqing

魂断蓝桥 发表于 2017-11-6 10:47
select top 17 商品类别,品牌规格,核心参数,备注,单位,数量 as 1 。。。。。。
另：你这个简单的查询，其 ...

初学者，请多指教

danhanqing

魂断蓝桥 发表于 2017-11-6 10:47
select top 17 商品类别,品牌规格,核心参数,备注,单位,数量 as 1 。。。。。。
另：你这个简单的查询，其 ...

蓝老师换头像了？！

魂断蓝桥

danhanqing 发表于 2017-11-6 10:53
蓝老师换头像了？！

sql = "select top 17 商品类别,品牌规格,核心参数,备注,单位,1 as 数量,售价 from 商品库存总表  where 单位名称='" & Me.Controls(页面名称 & "_" & "单位名称") & "' and 业务类别='" & Me.Controls(页面名称 & "_" & "业务类别") & "'  and 商品类别='" & Me.Controls(页面名称 & "_" & "商品类别1") & "'  order by [日期] asc

魂断蓝桥

danhanqing 发表于 2017-11-6 10:53
蓝老师换头像了？！

你应该是认错人了。

简单的sql查询

Sub 查询()
Dim cnn As Object
Dim Sql As String
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select a,0 as b from [Sheet2$a1:b3] "
[c:d] = ""
[c2].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub

danhanqing

魂断蓝桥 发表于 2017-11-6 11:16
你应该是认错人了。

简单的sql查询

看错网名了不好意思！
参考上面的例子，修改成功！谢谢！