请教如何将数组里的数据导入到表里去？谢谢

wt565

我用VBA的代码如下,将TXT文档处理后赋值到一个二维数组orr

sub test()
FileName = Application.GetOpenFilename("txt,*.txt", , "select", , False)
   
    Open FileName For Input As #1
    aa = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
     ReDim orr(1 To UBound(aa), 1 To 20)
    m = 0
    For i = 5 To UBound(aa)
                If Len(Trim(aa(i))) < 50 Then GoTo L1
                If InStr(aa(i), "-------") > 0 Then GoTo L1
                If InStr(aa(i), "Custname") > 0 Then GoTo L1
                m = m + 1
                n = 1: orr(m, n) = Trim(Left(aa(i), 45))
                n = 2: orr(m, n) = Trim(Mid(aa(i), 46, 26))
                n = 3: orr(m, n) = Trim(Mid(aa(i), 73, 26))
                n = 4: orr(m, n) = Trim(Mid(aa(i), 100, 38))
                n = 5: orr(m, n) = Trim(Mid(aa(i), 139, 25))                    
                n = 0
L1:           Next

end sub

现在想把orr内的数据赋值到Access里建好的”表1“里去。请问代码应该怎么写呢？

谢谢
               

t小宝

使用ado记录集循环一条一条地添加

wt565

t小宝 发表于 2013-6-14 16:05
使用ado记录集循环一条一条地添加

谢谢版主关注。 对于access VBA我是新手,无法下手，能否给予ado记录循环的代码。我借此再继续摸索
?

竹笛

Dim rst As ADODB.Recordset         定义ADO记录集

…….

Set rst = New ADODB.Recordset

    rst.CursorLocation = adUseClient

    rst.Open strSQL, CurrentProject.Connection, 2, 3

rst.MoveFirst    移动到第一条
while Not(rst.eof) and Not(rst.bof)
  ......
rst.moveNext
wend
rst.Close

Set rst = Nothing

wt565

竹笛 发表于 2013-6-15 14:15
Dim rst As ADODB.Recordset         定义ADO记录集

…….

谢谢关注

请教一下，先前我的代码已经将TXT处理好了，并赋值给了数组orr
请问，如何将数组orr插入到您的代码中去来实现添加记录呢？

再次谢谢

竹笛

wt565 发表于 2013-6-17 11:53
谢谢关注

请教一下，先前我的代码已经将TXT处理好了，并赋值给了数组orr

Dim rst As ADODB.Recordset  定义ADO记录集

Dim strSQL As String     定义strsql,在下面要用到，具体用时，具体定义。

……….

Set rst = New ADODB.Recordset  

    rst.CursorLocation = adUseClient

    rst.Open strSQL, CurrentProject.Connection, 2, 3

rst.AddNew                            注：新增，修改为edit,删除为delete

……'rst(字段)=变量

rst.Update        注：新增与修改都需要更新记录集，删除与加载则不需要这句。

rst.Close

Set rst = Nothing

wt565

竹笛 发表于 2013-6-17 14:39
Dim rst As ADODB.Recordset  定义ADO记录集

Dim strSQL As String     定义strsql,在下面要用到，具 ...

非常感谢。

要好好揣摩揣摩才行。

竹笛

wt565 发表于 2013-6-17 19:22
非常感谢。

要好好揣摩揣摩才行。

呵呵 明白了就简单了

wt565

竹笛 发表于 2013-6-18 16:20
呵呵 明白了就简单了

老师，恕我愚钝。 没有能弄明白。

能否请您看看我下面的数据库？

wt565

附件里是我的数据库和待导入的TXT文件
表PI1已经建好了。
窗体里有一个按键。希望按下按钮就可以执行TXT文件处理和导入。
代码在窗体下面