怎样用变量替代一个字符串中的某个字段--------请老师们帮看看，或者用其他方法也可

lkkl66

怎样用变量替代一个字符串中的某个字段--------请老师们帮看看，或者用其他方法也可！！
                谢谢！！！
怎样用变量替代一个字符串中的某个字段--------已解决！！！
     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行的怎么做？
来自群组: Access粉丝团

roych

SSql = "select  top 5库位,牌号,重量,筐号,批次,入库日期,已入库天数,剩余天数 from [过1度$M2:T130] WHERE  牌号 =" & CC & "order by 剩余天数"

盗梦

select 后面加 top 关键字

lkkl66

谢谢老师们！！！

ui

看看