[ASP] Custom RecordSet (사용자정의 레코드셋)

Custom RecordSet (정적 레코드셋)
사용자에 의해 RecordSet을 생성하여 사용할 수 있도록 함.

Function GetRecordset()
  Dim rs
 
  Set rs = server.CreateObject("ADODB.RECORDSET") 
  rs.fields.append "Date",adVarChar,10
  rs.fields.append "Time",adVarChar,11
  rs.fields.append "From",adVarChar,129
  rs.fields.append "To",adVarChar,129
  rs.fields.append "Message",adVarChar,364
 rs.Open
  
  for i = 1 to 50
   rs.AddNew
   rs.Fields("Date") = "6/12/2004"
   rs.Fields("Time") = "10:10:00 PM"
   rs.Fields("From") = "Me"
   rs.Fields("To") = "You"
   rs.Fields("Message") = "Message"
   rs.Update
  next
  
  Set GetRecordset = rs
 End Function

 

Fields.Append 하는 곳에서 에러 발생시 아래 링크 참고.

http://blog.naver.com/PostView.nhn?blogId=metalzang&Redirect=View&logNo=130115959341&isAfterWrite=true&isMrblogPost=false&isHappyBeanLeverage=true&contentLength=1511

출처 : http://forums.aspfree.com/asp-development-5/custom-recordset-only-allowing-me-to-add-one-record-31312.html