怎样用变量替代一个字符串中的某个字段--------请老师们帮看看，或者用其他方法也可！！
谢谢！！！
怎样用变量替代一个字符串中的某个字段--------已解决！！！
Private Sub CommandButton1_Click()
Dim Cnn, Rst As Object
Dim SSql, CC As String
'创建数据库连接和数据集
Set Cnn = CreateObject("ADODB.connection")
Set Rst = CreateObject("ADODB.recordset")
'打开链接
Cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
'写入SQL语句。
'CC = "'H52X'"
CC = "'" & Sheets("过1度").Range("V12") & "'"
'SSql = "select 库位,牌号,重量,筐号,批次,入库日期,已入库天数,剩余天数 from [过1度$M2:T130] WHERE 牌号 = 'H52X' order by 剩余天数"
SSql = "select 库位,牌号,重量,筐号,批次,入库日期,已入库天数,剩余天数 from [过1度$M2:T130] WHERE 牌号 =" & CC & "order by 剩余天数"
Cnn.Execute (SSql)
'打开数据集
Rst.Open SSql, Cnn, adOpenKeyset
'复制数据集到相应的单元格
Sheets("过1度").Range("C3").CopyFromRecordset Rst
'关闭数据集和链接
Rst.Close
Cnn.Close
'释放内存
Set Rst = Nothing
Set Cnn = Nothing
End Sub
新问题：只提取前5行的怎么做？
[groupid=314]Access粉丝团[/groupid]作者: roych 时间: 2015-8-26 08:39
SSql = "select top 5库位,牌号,重量,筐号,批次,入库日期,已入库天数,剩余天数 from [过1度$M2:T130] WHERE 牌号 =" & CC & "order by 剩余天数"作者: 盗梦 时间: 2015-8-26 08:48
select 后面加 top 关键字作者: lkkl66 时间: 2015-8-26 13:35
谢谢老师们！！！作者: ui 时间: 2015-8-27 18:20
看看