生成多行表的代码?

zwan033

http://www.office-cn.net/Soft/Class2/Class50/200508/417.html

这个东西就是我需要的,哪位大哥能把代码给贴出来?多谢!

盗到稻

    Dim con As Object
    Dim rst As Recordset
    Dim strsql As String
    Set con = Application.CurrentProject.Connection
    strsql = "SELECT * FROM [表1]"
    Set rst = New ADODB.Recordset
    rst.Open strsql, con, 1

    Dim con1 As Object
    Dim rst1 As Recordset
    Dim strsql1 As String
    Set con1 = Application.CurrentProject.Connection
    strsql1 = "SELECT * FROM [表2]"
    Set rst1 = New ADODB.Recordset
    rst1.Open strsql1, con1, adOpenKeyset, adLockOptimistic
   
    If (rst.EOF) Then
        MsgBox "表1没有数据"
    Else
        While (Not (rst.EOF))

            For i = 1 To rst("数量")
                rst1.AddNew
                rst1("型号") = rst("型号")
                rst1("规格") = rst("规格")
                rst1.Update
                rst1.MoveNext
            Next i
            
        rst.MoveNext
        Wend
    End If
   
    rst.Close
    Set rst = Nothing
    Set con = Nothing

    rst1.Close
    Set rst1 = Nothing
    Set con1 = Nothing
   
    Me.子对象5.Requery

zwan033

[em14]小弟在下鄙人我,实在是太感激大哥/大姐您了!您在弹指一挥间就完成了这么多的code,实在让我对您的敬仰犹如滔滔江水,绵绵不绝,又如黄河泛滥,一发不可收拾.(以下省略数万字......),然不成这根本就是先生您自己的作品?我深深地认识到:这么高的高手,如果我不趁热打铁,多问几个问题的话,就是对人才的极大浪费!21世纪什么最贵? : 人才!浪费人才就是犯罪啊!同学!不如老兄您留个联系方式?小弟我最近在搞一个作业,算学分的..哎.以前从没有用过Access编过程...难啊.....如有空闲,希望能得到您的一些指点和建议,不知兄台意下如何?再次感谢!

顺便问一下:Me.子对象5.Requery 是干吗的啊?我用的是英文版的,所以就把它先common out了,好象也能运行.

zhengjialon

这本身就是开放源代码的示例,

打开时同时按下SHIFT键就可以看见代码了.