access vba Ôõô°ÑexcelÎļþת»»³Épdf¸ñʽ£¿
rt
µ÷ÓÃ Worksheet.PrintOut ·½·¨
µÄǰÌáÊDz»ÊÇ£¬ÔËÐгÌÐòµÄϵͳ»·¾³
Àï±ØÐë°²×°ÓÐexcel£¿
Êǵ쬱ØÐë°²×°EXCEL¡£·ñÔòÄã¾ÍÐèÒª×Ô¼ºÀ´ÓóÌÐò´¦ÀíXLSÎļþµÄ¸ñʽ£¬Õâ¸ö¾ÍÐèÒª»¨ºÜ´óµÄ¾«Á¦ÁË¡£
Dim excel As Object
Dim workbook As Object
Dim worksheet As Object
Set excel = CreateObject("excel.application")
Set workbook = excel.Workbooks.Open("c:\20090914.xls")
Set worksheet = workbook.ActiveSheet
worksheet.PrintOut
workbook.Close False
ÕâÊÇÎÒ´ÓÍøÉÏÕÒµ½µÄexcel´òÓ¡Êä³öµÄ´úÂ룬µ«Êdzöpdf·½ÃæµÄ´úÂ뻹ûÕÒµ½£¬
ÇëÁ½Î»¸ßÊÖÖ¸µãһϣ¡×îºÃÄÜÌùµãÏà¹ØµÄ´úÂ룬лÁË£¡
1¡¢°²×°PDF´òÓ¡»ú£¬ÍøÉÏÓУ»
2¡¢ÉèΪĬÈÏ´òÓ¡»ú£»
3¡¢ÉÏÊö´úÂëÒѾ¿ÉÒÔÁË¡£
Ŷ£¬Ã÷°×ÁË£¡·Ç³£¸Ðл£¡½áÌû£¡
Ïà¹ØÎÊ´ð£º
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
×î½üѧϰasp£¬µ±Á·Ï°µ½Á¬½ÓÊý¾Ý¿âµÄʱºò£¬ÆµÆµ³ö´í£¬¿É¾ÍÊDz»ÖªµÀ´íÔÚÔõôµØ·½£¬Çë¸ßÊÖ°ïæ¿´¿´£¡£¡Ð»Ð»£¡
°üº¬Îļþxx.asp¡¢xxsave.asp¡¢conn.aspÒÔ¼°student1.mdbºÍ±íxxgl¡¡
xx.aspΪ£º
<html>
<hea ......
ÎÒ²éѯaccess£¨97£©µÄʱºòÀÏÊÇÌáʾ²ÎÊý²»×㣬µ«ÊÇÎÒÔÚaccess²éѯÕâÌõÓï¾äÊÇûÓдíÎóµÄ¡£ÊÇÔõô»ØÊÂÄØ£¿
SQL code:
SELECT * from wcj WHERE Pno = '3' And TRim(Conclusion) = 'ºÏ¸ñ' and (NET) is null
S ......
´ó¼Ò°ïÏÂæÁË
Çë½ÌÒ»¸öSQL²éѯµÄÎÊÌâ
±ÈÈçÎÒÏÖÔÚ²éѯ
SELECT * from XS WHERE רҵÃû='¼ÆËã»ú'
²éѯÍê³ÉÖ®ºóÎҿɲ»¿ÉÒÔÔÚÉϴβéѯµÄ»ù´¡Ö®ÉÏÔÚ½øÐÐÏà¹Ø²éÑ¯ÄØ£¿
±ÈÈçÎÒÔÚ²éÍê¼ÆËã»úרҵµÄËùÓÐѧÉúÖ®ºó£¬Ïë²é³ö¼ ......