Office中国论坛/Access中国论坛

标题: 这样的查询用什么方法做？ [打印本页]

作者: chentaoww2 时间: 2009-11-21 22:02
标题: 这样的查询用什么方法做？
本帖最后由 chentaoww2 于 2009-11-21 23:56 编辑

表A中的客户号字段中（客户号和地址）分成两列，分别添加到B表中。
下面是例子！在线等。

作者: chentaoww2 时间: 2009-11-22 10:56
帮我看看啊

作者: liwen 时间: 2009-11-22 11:07
你的数据直接用查询是难以做到的,可以使用VBA代码读取记录,一条一条的分析追加到B表中去.

作者: chentaoww2 时间: 2009-11-22 11:34
能不能做下我看看，或者给个代码

作者: chaojianan 时间: 2009-11-22 13:08
打开窗体1--查看结果，看看效果如何

作者: koutx 时间: 2009-11-22 13:36
Private Sub cp()
Dim sz1() As String
Dim str, zd, hao, ad, upd As String
str = "SELECT 表A.* FROM 表a"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
For j = 1 To rs.RecordCount
zd = rs.Fields(0)
sz1 = Split(zd, ".")
For i = 0 To UBound(sz1)
      hao = Left(sz1(i), InStr(sz1(i), "(") - 1)
      ad = Mid(sz1(i), InStr(sz1(i), "(") + 1, Len(sz1(i)) - InStr(sz1(i), "(") - 1)
      ad = Replace(ad, "，", ",")
      upd = "INSERT INTO 表B(客户号,地址) VALUES(" & "'" & hao & "', '" & ad & "')"
      DoCmd.RunSQL upd
Next
rs.MoveNext
Next
rs.Close
End Sub

作者: chentaoww2 时间: 2009-11-22 17:20
收到！！太感谢了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)