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”

在上述文件夹中，文本文件将以不同的名称出现。可能每天文本文件会出现 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 文件，没有其他文件或文件夹。

高温高压

于 2009-10-17T07:25:21.757 回答