[求助]如何用程序将文本文件导入到ACCESS表中

zhouhong

我用以下代码将文本文件转入到ACCESS表中只转换了一行，谁能告诉我是怎么回事/

Private Sub Command17_Click()

Dim cmd1 As ADODB.Command

Dim introwsadded As Integer

Dim str1

Set cmd1 = New ADODB.Command

With cmd1

     .ActiveConnection = CurrentProject.Connection

     .CommandText = "SELECT * INTO [2] FROM   [Text;FMT=Delimited;HDR=Yes;DATABASE=C:\wq\Day;].[116101#txt] ; "

     .CommandType = adCmdText

     .Execute introwsadded

     End With

     str1 = introwsadded & '记录一被追加"

     MsgBox str1, vbInformation, "access 2003"

'With cmd1

End Sub

文本文件







转换后的表

mynamewp

这个不难啊．只要你先导入一回，按固定长度来做，到最后一步时，记得保存其设置，导OK后，再到宏里新建一个导入文本就是TXT什么开头的．以后，就都可以这么做了．

zhouhong

能否说清楚一点，我不太明白

mynamewp

哪一步不明白？？先到表里，点反键，选导入，再选固定长度，再按上面一步一步的做．

zhouhong

这里不明白