snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 19.725
Ik vul een recordset met gegevens in 3 velden.
Met copyfromrecordset .datasource worden alle drie velden weggeschreven
Bij de weergave in het werkblad wil ik slechts de gegevens van twee velden: item_1 en item_2 plaatsen.
Hoe doe ik dat ?
Met copyfromrecordset .datasource worden alle drie velden weggeschreven
Bij de weergave in het werkblad wil ik slechts de gegevens van twee velden: item_1 en item_2 plaatsen.
Hoe doe ik dat ?
Code:
Sub M_snb()
sn =sheet2.cells(1).currentregion
With CreateObject("ADODB.recordset")
.Fields.Append "item_1", 5 ' 5: double
.Fields.Append "item_2", 5 ' 5: double
.Fields.Append "item_3", 202, 250 ' 202: text ; 250 characters
.Open
For j = 1 To UBound(sn)
.AddNew
.Fields("item_1") = j
.Fields("item_2") = sn(j, 1)
.Fields("item_3") = sn(j, 1)
.Update
Next
Sheet2.Cells(2, 9).CopyFromRecordset .DataSource
End With
end sub