ファイルを読み込んで変数へ

質問

VB初心者です。
ファイルの文字列を読み込んで、変数に格納し、SQL文のテーブル名に指定したいのですが、どうすればよいのでしょうか？
テキストから文字列を取得するところまではできたのですが、変数にもって、SQL文に組み込むことができません。実行すると「テーブル名が無効です。」とエラーになります。
どうか、皆様ご教授ください。

回答No.3

ttyp03 · ベストアンサー

＃１です。
ＳＱＬはＶＢではありませんので、直に書くことはできません。
String型の変数等に格納し、それをデータベースのＳＱＬ実行関数に渡します。

Dim sql as string
sql = "select A from " & srhLine
SQL実行関数( sql )

もちろん変数を介さずに直に書くことも出来ます。

SQL実行関数( "select A from " & srhLine )

お礼

ありがとうございます。
大変助かりました。

回答No.2

imogasi

ＳＱＬ文は普通テキストです。
コマンドラインからいれるもの
アクセス（ＶＢＡ）のようにＳＱＬ文実行コマンドがあったり、
ファイルオープン時にそのＳＱＬ文を実行して開いたり
開発環境でＳＱＬ文字列を入力して実行をクリックしたり
で実行できるものを経験しました。
しかしＦＳＯの中で、ＳＱＬ文を裸で他のステートメントの中に混じらせて書けば、実行してくれることはないはずです。
ＦＳＯがＳＱＬを実行する仕様に進歩したら、
（テーブル名文字列）＝ファイルの文字列を読み込んで、変数に格納し、SQL文のテーブル名に指定
strSQL="SELECT A FROM" & （テーブル名文字列）
ＥＸＥＣＵＴＥＳＱＬ　strSQL
のようなイメージになると思いますよ。

お礼

ありがとうございます。
初心者に分かりやすく教えていただき、
感謝しております。

回答No.1

ttyp03

まずはプログラムを提示しましょう。

補足

プログラムはこのとおりです。
Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetFolder("C:\script\tips") ' 対象フォルダの指定

Set TextFile = fso.OpenTextFile(FileName) ' テキストファイルのオープン
Do Until TextFile.AtEndOfStream
tmpLine = TextFile.ReadLine ' 1行読み込み
srhLine = tmpLine
Loop

select A from srhLine ※エラー