InStrRev为什么不能在SQL中应用???
而InStr在下列程序中成立????
Sub Text()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("adodb.recordset")
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=d:\", "", ""
InStrRev在下列程序应用不成立
'rs.Open "select distinct Right(aa, InStrRev(aa, '.')) as bb from m.txt", conn, 1, 3
InStr在下列程序应用成立
rs.Open "select distinct Right(aa, InStr(aa, '.')) as bb from m.txt", conn, 1, 3rs.movefirstFor ii = 0 To rs.RecordCount - 1
sss = rs.fields(0)
'Debug.Print GetLocalPathFileExt(sss)
Debug.Print sss
rs.movenext
Next ii
End Sub
而InStr在下列程序中成立????
Sub Text()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("adodb.recordset")
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=d:\", "", ""
InStrRev在下列程序应用不成立
'rs.Open "select distinct Right(aa, InStrRev(aa, '.')) as bb from m.txt", conn, 1, 3
InStr在下列程序应用成立
rs.Open "select distinct Right(aa, InStr(aa, '.')) as bb from m.txt", conn, 1, 3rs.movefirstFor ii = 0 To rs.RecordCount - 1
sss = rs.fields(0)
'Debug.Print GetLocalPathFileExt(sss)
Debug.Print sss
rs.movenext
Next ii
End Sub
If Len(D) = 0 Then Exit Function
If InStr(strFileName, ".") < 0 Then Exit Function
GetLocalPathFileExt = Right(D, Len(D) - InStrRev(D, "."))End FunctionSub Text11()
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("adodb.recordset")
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ=d:\", "", ""
rs.Open "select distinct * from m.txt", conn, 1, 3
rs.movefirstFor ii = 0 To rs.RecordCount - 1
sss = rs.fields(0)
Debug.Print GetLocalPathFileExt(sss)
rs.movenext
Next ii
End Sub