1

VB6 の使用

現在、ソフトウェアの [参照] ボタンを使用してテキスト ファイルを選択すると、mdb (アクセス) に変換されます。テキストファイルを選択したくありません。

ソフトウェアを任意のシステムにインストールすると、指定したパスでテキスト ファイルが自動的に選択されます。その後、テキスト ファイルは自動的に mdb に変換されます。mdbに変換したら、

テキストを mdb に変換するための Vb コード。

Dim db As Database, tbl As TableDef
Set db = DBEngine.OpenDatabase(App.Path & "\History.mdb")
Set tbl = db.CreateTableDef("Temp")
tbl.Connect = "Text;database=" & App.Path & "/ConvTemp/"
tbl.SourceTableName = strOutput & ".txt"
db.TableDefs.Append tbl
db.Execute "Select Temp.ID, Temp.IDTerminal, Temp.Reader, Temp.Date, Temp.Time, Temp.Cardnumber into  " & strOutput & "  from Temp"
db.TableDefs.Delete ("Temp")
db.Close
MsgBox strOutput
sql2 = "insert into events select * from " & strOutput & ""
If rs.State = 1 Then rs.Close
rs.Open sql2, Cn, adOpenStatic, adLockOptimistic
Set tbl = Nothing
Set db = Nothing

上記のコードは、テキストから mdb への変換に機能しています。しかし、参照ボタンを使用せずにテキスト ファイルを自動的に変換する必要があります。

例えば

MDB 名は – History.mdb で、テーブル名は – event.mdb です。

ソフトウェアで「C:\NewFolder」のようなパスを設定します

上記のフォルダに、テキスト ファイルが別の名前で表示されます。1 日あたり、新しい名前のテキスト ファイルが 10 ～ 20 個表示される可能性があります。テキストファイル名も付けられません。(*.txt) のような拡張子のみを指定する必要があります。

ソフトウェアをインストールすると、ソフトウェアは c:\NewFolder からテキスト ファイルを選択し、自動的に mdb に変換します。テキスト ファイルを変換した後、テキスト ファイルは自動的に削除されます。

期待される出力

Once I installed my software in any system, the software should select the text file from the specified folder, then the text file convert into mdb. Once converted, the text files automatically delete from the specified path.

テキストをmdbに変換するには、コードを持っています.テキストファイルを自動的に選択するには、サンプルコードまたはアイデアが必要です

VB6 は初めてですが、これを行う方法を教えてください。または、テキスト ファイルを自動的に選択するためのサンプル コードを投稿できます。

お願いします。

4

1 に答える 1

1

基本的なコードは、次の行を見下ろします。

      Dim filename As String
      filename = Dir$("C:\NewFolder\*.txt", vbDirectory)
      Do While filename <> ""

        Debug.Print filename

        'This line will delete the file as you asked
        'but to make sure if the file has been converted to mdb
        'is solely your code's responsibility

        Kill "C:\NewFolder\" & filename

        filename = Dir$
      Loop

上記のコードは、C:\NewFolder に *.txt ファイルのみがあり、他のファイルやフォルダーがないことを前提としています。

HTH

于 2009-10-17T07:25:21.757 に答える