Set rs1 = New ADODB.Recordset
rs1.Fields.Append "a", 10, 20
rs1.Fields.Append "b", 10, 20
rs1.Fields.Append "c", 10, 20
rs1.Fields.Append "d", 10, 20
ff = Array("a", "b", "c", "d")
vv = Array("aaaa", "bbbb", "cccc", "dddd")
rs1.Open
rs1.AddNew ff, vv
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()