怎么不能插入附件了?
Private Sub Command0_Click()
Dim xString As String
'从t1表 编号 I001的参数字段,将内容写入t2表对应字段 ---- 这里不知怎么写?
Dim rst As New ADODB.Recordset, i As Long, m As Long
Dim ary1, ary2
rst.Open "select * from T1", CurrentProject.Connection, adOpenStatic, adLockReadOnly
For i = 1 To rst.RecordCount
'先删除项目一的参数记录
CurrentProject.Connection.Execute "DELETE FROM t2 WHERE 编号='" & rst.Fields("编号") & "'"
ary1 = Split(rst.Fields("参数"), "|")
For m = 0 To UBound(ary1)
If InStr(1, ary1(m), ";") > 1 Then
ary2 = Split(ary1(m), ";")
CurrentProject.Connection.Execute "insert into t2(编号,参数一,参数二,参数三,参数四,参数五) values('" & ary2(0) & "','" & ary2(1) & "','" & ary2(2) & "','" & ary2(3) & "'," & CLng(ary2(4)) & "," & CLng(ary2(5)) & ")"
End If
Next m
rst.MoveNext
Next i
End Sub
Private Sub Command1_Click()
'---如何将t2表编号为 I001的记录整合成一个字符串,写入t1表参数字段内?
Dim rst As New ADODB.Recordset
Dim i As Long
rst.Open "select 编号 from t2 group by 编号", CurrentProject.Connection, adOpenStatic, adLockReadOnly
For i = 1 To rst.RecordCount
CurrentProject.Connection.Execute "DELETE FROM t3 WHERE 编号='" & rst.Fields("编号") & "'"
CurrentProject.Connection.Execute "insert into t3(编号,参数) values('" & rst.Fields("编号") & "','" & 合并参数(rst.Fields("编号")) & "')"
rst.MoveNext
Next i
End Sub
Function 合并参数(ByVal bh As String) As String
Dim rst As New ADODB.Recordset
Dim str, i As Long
rst.Open "select 参数一,参数二,参数三,参数四,参数五 from t2 where 编号='" & bh & "'", CurrentProject.Connection, adOpenStatic, adLockReadOnly
For i = 1 To rst.RecordCount
str = str & "|" & rst.Fields("参数一") & ";" & rst.Fields("参数二") & ";" & rst.Fields("参数三") & ";" & rst.Fields("参数四") & ";" & rst.Fields("参数五")
rst.MoveNext
Next i
合并参数 = str & "|"
End Function
考虑到对比的情况,t3是t1的副本。
具体的代码还要根据你的实际要求进行修改完善。