开发中有时需要结果集是自定义的,而不是从数据库中得到。这时需要自己构建结果集,构建方法如下:
Dim rs As New ADODB.Recordset
'构造新的结果集
rs.Fields.Append "NO", adVarChar, 10
rs.Fields.Append "Module Serial No", adVarChar, 20
rs.Fields.Append "Module Type", adVarChar, 5
rs.Fields.Append "Uoc [V]", adDouble, 126
rs.Fields.Append "Isc [A]", adDouble, 126
rs.Fields.Append "Umpp [V]", adDouble, 126
rs.Fields.Append "Impp [A]", adDouble, 126
rs.Fields.Append "Pmpp [W]", adDouble, 126
rs.Fields.Append "Pallet No", adVarChar, 17
rs.Fields.Append "Ratedim", adVarChar, 10
rs.Fields.Append "Test Date", adDBDate '
rs.Fields.Append "Cell S/N", adVarChar, 20
rs.Fields.Append "Wafer P/N", adVarChar, 20
rs.Fields.Append "Wafer Batch number", adVarChar, 20
rs.Fields.Append "Cell Description", adChar, 40
rs.Fields.Append "Wafer Description", adChar, 40
rs.Fields.Append "Cell Code", adVarChar, 18
rs.Fields.Append "Wafer PO", adVarChar, 20
rs.Fields.Append "Cell date", adVarChar, 18
rs.Fields.Append "Module date", adVarChar, 20
rs.Open , , adOpenKeyset, adLockOptimistic
‘-----------------给结果集赋值-----------------
rs.AddNew
rs.Fields.Item("NO") = rowNo
rs.Fields.Item("Module Serial No") = value1
rs.Fields.Item("Module Type") = value1
rs.Fields.Item("Uoc [V]") = value1
rs.Fields.Item("Isc [A]") = value1
rs.Fields.Item("Umpp [V]") = value1
rs.Fields.Item("Impp [A]") = value1
rs.Fields.Item("Pmpp [W]") = value1
rs.Fields.Item("Pallet No") = value1
rs.Fields.Item("Ratedim") = value1
rs.Fields.Item("Test Date") = value1
rs.Fields.Item("Cell S/N") = value1
rs.Fields.Item("Wafer P/N") = value1
rs.Fields.Item("Wafer Batch number") = value1
rs.Fields.Item("Cell Description") = value1
rs.Fields.Item("Wafer Description") = value1
rs.Fields.Item("Cell Code") = batterycode
rs.Fields.Item("Wafer PO") = value1
rs.Fields.Item("Cell date") = value1
rs.Fields.Item("Module date") = value1)
rs.Update