跪求解决方法了,被憋的滋味真不好受.

Question

例如:
表A里边:
编号    内容
1        A
2        B
3        C
那么取得这个表中的所有编号:1,2,3
然后放入到表B中
例如表B
编号B     编号集
A1           1,2,3
A2            ...
--------------
或者放入到窗体的空间中(text或者combo中)
我真的找不到任何资料,一般都是来这里搜索一下我想要的内容.可是翻了好几十页,也什么都没找到.
谢谢各位了!

Answer 1

Private Sub Command1_Click()
    Dim conn As New ADODB.Connection
    Dim rec As New ADODB.Recordset
    Dim str As String    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test\db1.mdb;Persist    Security Info=False"
    rec.Open "select * from testtab", conn, adOpenDynamic, adLockReadOnly
    Do While Not rec.EOF
        str = str & rec("id") & ","
        rec.MoveNext
    Loop
    Text1.Text = str
End Sub楼主,这样行吧