[求助] ADO 多型号 match 应用求解

swamy

各位大大 下附为figfig大大一个应用ADO达成match的宏 (就是把raw的数据 match到sum的格式) 可是要是有超过3个型号(假设50个) 如果每个型号都要设定一段SQL代码 那程序将会很长 而且可读性不高 可以请各位高手帮忙看看吗? 多型号的状况下要怎么改? 若方便可以加一点说明吗? 那我以后就可以自己改改看

Sub fig() Set x = CreateObject("ADODB.Connection") x.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;';Data Source=" & ThisWorkbook.FullName Sql = "select e.批号, e.序号, e.规格,e.nn,e.mm,f.指数 from (select d.批号, d.序号, d.规格,d.指数 as nn,c.指数 as mm from (select a.批号, a.序号, a.规格,b.指数"

Sql = Sql & " from [sum$] a left join (select * from [raw$] where 型号='LG00001') b on a.批号=b.批号 and a.序号=b.序号 and a.规格=b.规格) d "

Sql = Sql & " left join (select * from [raw$] where 型号='LG00002') c on d.批号=c.批号 and d.序号=c.序号 and d.规格=c.规格)e "

Sql = Sql & " left join (select * from [raw$] where 型号='LG00003') f on e.批号=f.批号 and e.序号=f.序号 and e.规格=f.规格 "

Set yy = x.Execute(Sql)

Sheet1.[a2].CopyFromRecordset yy

Set yy = Nothing: Set x = Nothing End Sub

ZVsGFSnV.rar (8.89 KB, 下载次数: 14)

2005-8-9 08:46 上传

点击文件名下载附件
[求助] ADO 多型号 match 应用求解