请教如何用代码将表1中的数据整理的表2中！

sxgaobo

如何用代码将表1中的数据整理的表2对应的字段中？

盗梦

可以使用ADO打开表1，遍历逐行读取数据，同时用ADO写入表2对应的列中

leonshi

写两个ado比如表1的记录集是rst,表2的记录集是rst1，然后再写rst1的更新代码，rst1.字段1=rst.字段1，rst1.字段2=rst.字段2.........，rst1.update
当然你还要写代码判断是否有重复记录。

roych

这种特殊格式，建议用Excel处理好再导入。数组公式很轻易能解决一列转多行多列问题：

todaynew

1、先建立一个交叉查询，命名为查询1
TRANSFORM First(a.字段) AS 字段
SELECT Mid(a.字段,2) AS num
FROM 表1 AS a
GROUP BY Mid(a.字段,2)
PIVOT Left(a.字段,1);

2、写代码：
dim ssql as string
ssql="insert into 表2 (A,B,C) Select A,B,C from 查询1"
currentdb.execute ssql

sxgaobo

todaynew 发表于 2015-7-8 17:35
1、先建立一个交叉查询，命名为查询1
TRANSFORM First(a.字段) AS 字段
SELECT Mid(a.字段,2) AS num

谢谢大家的关注和回复！
我给的只是个例子，里面的数据没那么规律，可能是姓名、性别、出生日期什么的，但隔N行重复是规律的

todaynew

sxgaobo 发表于 2015-7-9 10:49
谢谢大家的关注和回复！
我给的只是个例子，里面的数据没那么规律，可能是姓名、性别、出生日期什么的， ...

Sub AtoB(ByVal Atbname As String, ByVal m As Integer, ByVal Btbname As String)
    Dim rsA As New ADODB.Recordset, rsB As New ADODB.Recordset
    Dim i As Long, j As Long
    Dim vals(m - 1) As Variant
   
    rsA.Open Atbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rsB.Open Atbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rsA.RecordCount
        vals((i - 1) Mod m) = rsA.Fields(0).Value
        If i Mod m = 0 Then
            rsB.AddNew
            For j = 0 To rsB.Fields.Count - 1
                rsB.Fields(j).Value = vals(j)
            Next
            rsB.Update
        End If
        rsA.MoveNext
    Next
End Sub

sxgaobo

todaynew 发表于 2015-7-9 11:09
Sub AtoB(ByVal Atbname As String, ByVal m As Integer, ByVal Btbname As String)
    Dim rsA As New ...

谢谢版主！！
我试了，m处报错了，哪不对麻烦您给看看！！！