当前文件名格式为“Number1_1170_Date”，我希望将这些文件重命名为“Number2_1170_Date”。但是Number2是SQL数据库中的一列？

Question

截至目前，我有多个格式为的文件夹文件名

"Number1_1170_Date" 

我正在尝试将格式更改为

"Number2_1170_Date"

但问题是：Number2是SQL数据库中的一个列，必须在文件名中与Number1进行比较，然后相应地替换。我怎样才能实现这一目标？

我有一个VBA脚本用于挑选文件夹中的所有文件名，编辑额外的文件名并只获得"Number1"，但我需要更多的VBA代码，可以将Number1与Number2中的SQL相关联，然后生成number2格式为

"number2_1170_date"

Answer 1

Function ChangeName(oldfilename as string, conn as ado.connection) as string
dim oldnumber as long
oldnumber =clng(left(oldfilename,instr(oldfilename,"_")-1))
dim rs as new recordset
rs.open "select number2 from mytable where number1 = " & oldnumber,conn
if not rs.eof then
     changename = replace(oldfilename,oldnumber,rs(0))
else
     changename = oldfilename
end if
rs.close
set rs = nothing
end function

您将需要对Microsoft Activex Dataobjects的引用，并且您需要为数据库创建适当的连接对象