我的图书管理系统

  
     Rds1.SQL ="select 借书证号,编号,姓名 from tjsz  where   ltrim(rtrim(借书证号)) >= '"&trim(jszh1.value)&"'  and ltrim(rtrim(借书证号)) <= '"&trim(jszh2.value)&"' order by  借书证号 "
 
     
     
  ELSE
  
     Rds1.SQL ="select 借书证号,编号,姓名 from tjsz  where    ltrim(rtrim(借书证号)) ='"&trim(jszh1.value)&" ' order by  借书证号  "
     
   END IF    
   
   rds1.ExecuteOptions = 1    
   
   Rds1.Refresh 
         
   end sub 
   
    
   
    Sub Excel_Click()
       
    
         
   Set xlApp = CreateObject("Excel.Application") 
 
   xlApp.Visible = True 
 
   Set xlBook =xlApp.Workbooks.Add
   
   'On Error Resume Next 
 
  ' Set xlBook = xlApp.Workbooks.Add
 
   'Open("c:\temp\tjh.xls")
 
   Set xlSheet = xlBook.Worksheets(1)
 
  
   'Set xlSheet = xlBook.Worksheets(1) 

     xlSheet.Cells(3, 2) = "借书证目录表"

   for k=0 to rds1.Recordset.fields.count-1 
   
     xlsheet.cells(4,k+1)=rds1.Recordset.fields(k).name
     
    next 
   

    rds1.Recordset.movefirst
    
     while not rds1.Recordset.eof


     For j = 0 To  rds1.Recordset.fields.count-1 

  

      If isnull(rds1.Recordset.fields(j))=false  then   ' or trim(rds1.Recordset.fields(j))<>"" then
    
      
         if IsNumeric(rds1.Recordset.fields(j)) = true  Then
    
         '  msgbox "tt1"
         '  msgbox rds1.Recordset.fields(j)
    
            xlSheet.Cells(i + 5, j + 1) = trim(cstr(rds1.Recordset.fields(j)))
               
         else        

        '   msgbox "tt2"
        '   msgbox rds1.Recordset.fields(j)
          
      
          xlSheet.Cells(i + 5, j + 1) = trim(cstr(rds1.Recordset.fields(j)))

       End If
 
    
    
    end if   

    Next
   
    i=i+1
    rds1.Recordset.movenext
    
 wend 

end sub 
	
</script>
<p align="right"><img src="../images/xkrj.gif">
</body>
</html>