厄介なDAO文字列操作の問題

Question

Iは、従来のVB6の製品に働いていると私は私がDAOを介してデータベーステーブルからのフルパスのファイル名の一部を取得する必要があることにより、問題に遭遇しました。私はVBA関数へのアクセス権がないので、特にMS Access SQLを探しています。私はクエリの後にいくつかの余分なコードを削除する方法がありません。私はできません変更/リファクタリングは、SQLを修正するのに手近な解決策です。

現在、DAOにはinstrrevまたはreplaceという機能がないため、かなり制限されています。

そこには何か推測がありますか？ ありがとうございます。

Answer 1

実際のデータベースを変更できないと仮定します。 。 。例えばIIF文にネスト

私は考えることができる唯一のこと（と、私はこの1つ上の頭脳によってwrackedが、申し訳ありませんメイト）は、INSTRに繰り返し呼び出しを使用することです、 inStrRev

SELECT IIf(InStr([FileName],""\"")>0,Mid$([Filename],InStrRev([Filename],""\"")+1),[Filename]) FROM Table1 

にこの呼び出しを置き換えるためにあなたがcompeltely非常識

SELECT IIf(InStr([FileName],""\"")>0,Mid$([Filename],iif(InStr(1, [FileName], ""\"") > 0, iif(InStr(2, [FileName], ""\"") > 0, iif(InStr(3, [FileName], ""\"") > 0, iif(InStr(4, [FileName], ""\"") > 0, iif(InStr(5, [FileName], ""\"") > 0, iif(InStr(6, [FileName], ""\"") > 0, iif(InStr(7, [FileName], ""\"") > 0, iif(InStr(8, [FileName], ""\"") > 0, iif(InStr(9, [FileName], ""\"") > 0, 1, InStr(9, [FileName], ""\"")), InStr(8, [FileName], ""\"")), InStr(7, [FileName], ""\"")), InStr(6, [FileName], ""\"")), InStr(5, [FileName], ""\"")), InStr(4, [FileName], ""\"")), InStr(3, [FileName], ""\"")), InStr(2, [FileName], ""\"")), InStr(1, [FileName], ""\""))),[Filename]) from table1 

を持っていると思いますこれは10かそこらのサブフォルダ深いthatsのパスのために動作します。 10個のサブフォルダが少なすぎると思ったら、私はあなたが必要とする深さまでステートメントを生成するために少しのvbaを持っています。

これは卑猥ですが、

Answer 2

私はDAOプログラミングの多くを行うために使用されるが、それは10〜15年前だった...

あなたはアクセスクエリ定義を呼び出し、そこにそれを修正するDAOを変更することはできますか？など

あなたが instr、 replace、 midのような組み込みのVBA関数を使用することができるはず

Answer 3

、

それらをブロックすることができる「サンドボックス」モードがあります - 彼らにhttp://support.microsoft.com/kb/294698

のブロックを解除する方法でこれを見ます