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¡¢ÉÏÊö´úÂëÒѾ¿ÉÒÔÁË¡£
Ŷ£¬Ã÷°×ÁË£¡·Ç³£¸Ðл£¡½áÌû£¡
Ïà¹ØÎÊ´ð£º
CREATE TABLE Product(model integer,
maker varchar(20),
CONSTRAINT SAND PRIMARY KEY (model),
CONSTRAINT PANDA FOREIGN KEY (model) REFERENCES PC (model)
ON DELETE CASCADE ......
¸÷λ¸ßÊֺã¬Âé·³°ïÎÒ¿´ÏÂÕâ¸öÊý¾Ý¿âÁ¬½ÓÎÊÌ⣺
×öÁËÒ»¸öBBSµ«ÊÇÊý¾Ý¿â¾ÍÊÇÁ¬½Ó²»ÉÏ¡£´íÎó´úÂëÈçÏÂ
HTTP Status 500 -
------------------------------------------------------------------------------- ......
´ó¼Ò°ïÏÂæÁË
Çë½ÌÒ»¸öSQL²éѯµÄÎÊÌâ
±ÈÈçÎÒÏÖÔÚ²éѯ
SELECT * from XS WHERE רҵÃû='¼ÆËã»ú'
²éѯÍê³ÉÖ®ºóÎҿɲ»¿ÉÒÔÔÚÉϴβéѯµÄ»ù´¡Ö®ÉÏÔÚ½øÐÐÏà¹Ø²éÑ¯ÄØ£¿
±ÈÈçÎÒÔÚ²éÍê¼ÆËã»úרҵµÄËùÓÐѧÉúÖ®ºó£¬Ïë²é³ö¼ ......
vcÖÐÓÃodbcµÄ·½·¨·ÃÎÊaccessÊý¾Ý¿â£¬Óõ½ÁËcdatabaseÀàºÍcrecordsetÀà¡£Êý¾ÝÔ´ÔÚ´°¿Ú³õʼ»¯µÄʱºò±»´ò¿ªg_datasource.Open("data",FALSE,FALSE); µã»÷Ò»¸ö°´Å¥Æô¶¯Ò»¸ö¶¨Ê±Æ÷£¬ÔÚ¶¨Ê±Æ÷ÄÚÍê³ÉÒÔϲÙ×÷£¬¶¨ ......
±¾ÈËÊǸÕѧϰDelphi×Å£¬ÏÖÓöµ½ÈçÏÂÒ»¸öÎÊÌ⣺
ÎÒÏëÔÚListBoxÖÐÏÔʾAccessÊý¾Ý¿âTB±íµÄPeople×Ö¶ÎÀïÃæµÄ¼Ç¼¡£
ÀýÈ磺
TB±íÖеÄ×Ö¶ÎPeopleÀïÃæ¼Ç¼£ºA,B,C,D......
ÔÚListBoxÖÐÏÔʾ£¬ListBox.Item[0]:=A
......