librarydoc.txt

来自「里面包括图书馆的基本功能」· 文本 代码 · 共 28 行

'Dim objRs As Recordset, objSource As Recordset
   'objCmd("书名") = "%" & bookName & "%"
   'objCmd("作者") = "%" & txtAuthor & "%"
   'objCmd("出版社") = "%" & txtPress & "%"
   'Set objRs = objCmd.Execute()
   'Set objSource = New Recordset
   'For i = 0 To objRs.Fields.Count - 1
    '   objSource.Fields.Append objRs.Fields(i).Name, adVarChar, objRs.Fields(i).DefinedSize
   'Next
   'objSource.Open
   'While Not objRs.EOF
    '     objSource.AddNew
     '    objSource!书号 = objRs!书号
      '   objSource!书名 = objRs!书名
       '  objSource!版别 = objRs!版别
        ' objSource!作者 = objRs!作者
         'objSource!出版社 = objRs!出版社
         'objSource!数量 = objRs!数量
         'objSource!城市 = objRs!城市
         'objSource!页数 = objRs!页数
         'objSource!价格 = objRs!价格
         'objSource!摘要 = objRs!摘要
         'objSource!外借数 = objRs!外借数
         'objRs.MoveNext
    'Wend
    'If objSource.RecordCount > 0 Then objSource.MoveFirst
    
    'Set DataGrid1.DataSource = objSource