VB6.0构建自定义的结果集

开发中有时需要结果集是自定义的，而不是从数据库中得到。这时需要自己构建结果集，构建方法如下：

       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