VBÈçºÎÉú³ÉWINDOW XP·ç¸ñ½çÃ棡
ËäÈ»WindowsXPµÄ½çÃæ·Ç³£»ªÀö¡£µ«ÊÇÁîÈËÒź¶µÄÊÇ£¬ÎÒÃÇÓÃVBдµÄ³ÌÐò³ýÁ˲˵¥ºÍ´°¿ÚµÄÍâ¹ÛÊÇXP·ç¸ñÍ⣬ÆäËû¿Ø¼þ»¹ÊÇÒ»Èç¼ÈÍùµÄÊÇÆÕͨ·ç¸ñ¡£ÎÒÏ룬ÓеijÌÐòÔÚXPÏÂÓÐXPµÄ·ç¸ñ£¬VBÒ²Ò»¶¨Óа취ʵÏÖXPµÄ·ç¸ñ¡£ºóÀ´±ÊÕßÔÚÍøÉÏ¿´µ½Ò»Æª½éÉÜXMLµÄÎÄÕ£¬ÓÖÔÚÍøÉÏÕÒµ½ÁËһƪʵÏÖXP·ç¸ñµÄÎÄÕ£¬¾¹ý×Ô¼ºµÄʵ¼ù£¬ÖÕÓÚÕÒµ½ÁËVB³ÌÐòʵÏÖXP·ç¸ñµÄ°ì·¨¡£ÎªÁËʹÆäËûµÄÍøÓѲ»ÖÁÓÚ×ßÏñÎÒÕâÑùµÄ¶àµÄÍä·£¬½«´Ë°ì·¨Ð´³öÀ´£¬Óë´ó¼Ò¹²Í¬Ìá¸ß£¡£¡
¾ßÌåµÄʵÏÖ·½·¨ÈçÏ£º
¢Ù£ºÔÚÄãµÄ´°Ìå¼ÓÈë´úÂë¡£Èç¹ûÊǶà¸ö´°¿Ú£¬¿ÉÒÔ½«´Ë´úÂë·Åµ½Ä£¿éÖС£
´úÂëÈçÏ£º
'ÉùÃ÷APIº¯Êý
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub Form_Initialize()
InitCommonControls
End Sub
×¢Ò⣺ǧÍò²»ÒªÔÚForm_load()ʼþÏÂдInitCommonControlsÕâ¾ä»°£¬·ñÔòÄãµÄ´°Ìå»áÆô¶¯²»ÁË¡££¨²»Òª¹ÖÎÒû¸æËßÄã°¡~~~~£©
¡¡
¢Ú£º½¨Á¢Ò»¸öºÍÄãµÄ.exeͬÃûµÄ.exe.manifestÎļþ£¨¼ÙÈ磺Èç¹ûÄã×îºó±àÒëºÃµÄÎļþÃûΪWindowXPStyle.exe£¬Ôò½¨Á¢Ò»¸öÎļþÃûΪWindowXPStyle.exe.manifestµÄÎļþ£©£¬²¢ÇÒ´ËÎļþ±ØÐë´æÔÚÓÚºÍÄãExeÎļþµÄͬһĿ¼Ï¡£
¡¡
ÒÔWindowXPStyle.exeΪÀý£¬ÔòÕâ¸öWindowXPStyle.exe.manifestµÄÎļþµÄÄÚÈÝÈçÏ£º
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="CompanyName.ProductName.YourApp"
type="win32"
/>
<description>Your app
Ïà¹ØÎĵµ£º
vb¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0 mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔصĺܶలװ³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......
'¶ÁÊý¾Ýµ½¶þ½øÖÆ×Ö¶Î
Public Sub ReadfromBLOB(filed As ADODB.Field, Filen As String)
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
'´«ËͿ鵥λ´óС
Const ChunkSize As Integer = 16384
Dim MediaTemp As String
Dim lngOffset As Long
Di ......
'*********************************************************************
' ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄУ԰ÍøÂçƽ̨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......
ʹÓÃVB°ÑExcelµ¼Èëµ½SqlÊý¾Ý¿âÖУ¬ÆäʵÓм¸ÖÖ·½·¨¡£
ÏÂÃæÎÒ½éÉܵÄÕâÖÖ·½·¨£¬½ÏΪ¼òµ¥¡£
ÆäʵÕâÖÖ·½·¨µÄ»°£¬ÊÇÖ±½ÓʹÓÃT-SQL²Ù×÷µÄ£¬Òò´Ë£¬µ½ÁËVBÀïÃ棬ֱ½ÓeccuteÕâ¸ö´úÂë¾ÍOKÁ˵ġ£
-----------------------------------------------------ÏÂÃæÊÇÔÚT-sqlÖеÄÓï¾ä
if object_id('NewTable') is not null/*ÅжϱíNewTabl ......