vbʹÓÃopen·½·¨¶ÁдÎļþ
vbʹÓÃopen·½·¨¶ÁдÎļþ
£¨Ò»£©´ò¿ªºÍ¹Ø±ÕÎļþ
¡¡¡¡1¡¢Ë³ÐòÎļþ
¡¡¡¡´ò¿ªË³ÐòÎļþ£¬ÎÒÃÇ¿ÉÒÔʹÓÃOpenÓï¾ä¡£ËüµÄ¸ñʽÈçÏ£º
Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
¡¡¡¡ËµÃ÷£º
¡¡¡¡£¨1£©²ÎÊýpathname ±íʾҪ´ò¿ªµÄÎļþÃû£¬ÎļþÃû¿ÉÒÔ°üº¬ÓÐÇý¶¯Æ÷ºÍĿ¼
¡¡
¡¡£¨2£©Input Output
ºÍAppendÓÃÓÚÉèÖÃ˳ÐòÎļþµÄ´ò¿ª·½Ê½¡£ÆäÖУ¬Input±íʾ´Ó´ò¿ªµÄÎļþÖжÁÈ¡Êý¾Ý¡£ÒÔÕâÖÖ·½Ê½´ò¿ªÎļþʱ£¬Îļþ±ØÐë´æÔÚ£¬·ñÔò»á²úÉú´íÎó¡£
Output±íʾÏò´ò¿ªµÄÎļþÖÐдÈëÊý¾Ý¡£ÒÔÕâÖÖ·½Ê½´ò¿ªÎļþʱ£¬ÎļþÖÐÔÓеÄÊý¾Ý½«±»¸²¸Ç£¬ÐµÄÊý¾Ý½«´ÓÎļþ¿ªÊ¼Ð´Èë¡£Èç¹ûÎļþ²»´æÔÚ£¬Ôò´´½¨Ò»¸öÐÂÎÄ
¼þ¡£Append±íʾÏò´ò¿ªµÄÎļþÖÐÌí¼ÓÊý¾Ý¡£ÒÔÕâÖÖ·½Ê½´ò¿ªÊ±£¬ÎļþÖÐÔÓеÄÊý¾Ý½«±»±£Áô£¬ÐµÄÊý¾Ý½«´ÓÎļþΪ¿ªÊ¼Ìí¼Ó¡£Èç¹ûÎļþ²»´æÔÚ£¬Ôò´´½¨Ò»¸öÐÂ
Îļþ¡£
¡¡¡¡£¨3£©As[#]filenumber ×Ó¾äÓÃÓÚΪ´ò¿ªµÄÎļþÖ¸¶¨ÎļþºÅ.¶ÔÎļþ½øÐжÁд²Ù×÷ʱ,ÒªÓÃÎļþºÅ±íʾ¸ÃÎļþ.ÎļþºÅÊǽéÓÚ1~511Ö®¼äµÄÕûÊý,¼È¿ÉÒÔÊÇÊý×Ö,ÓÖ¿ÉÒÔÊDZäÁ¿.Ò²¿ÉÒÔÊ¡ÂÔ²»ÓÃ.
¡¡¡¡(4)µ±ÔÚÎļþÓë³ÌÐòÖ®¼ä¿½±´Êý¾Ýʱ,Len=buffersize×Ó¾äÖ¸¶¨»º³åÇøµÄ×Ö·ûÊý.
¡¡¡¡ÀýÈç:
Open App.Path + "\test.dat" For Output As 1
Open App.Path + "\test.dat" For Output As 1
¡¡¡¡ÕâÁ½¾ä´úÂëÔÚµ±Ç°Ó¦ÓóÌÐòËùÔÚĿ¼Ï´´½¨ÁËÒ»¸öÃûΪtest.datµÄÎı¾Îļþ,·ÖÅäÎļþºÅΪ1.
Open App.Path + "\test.dat" For Input As [#]filenumber
¡¡¡¡ÕâÌõÓï¾äÊÇ´ÓÎı¾ÎļþÖжÁÈ¡Êý¾Ý.
Open App.Path + "\test.dat" For Append As [#]filenumber
¡¡¡¡ÕâÌõÓï¾äÔòÊÇÏñÎı¾ÎļþÖÐÌí¼ÓÊý¾Ý
¡¡¡¡2¡¢Ëæ»úÎļþ
¡¡¡¡²Ù×÷Ëæ»úÎļþ֮ǰ,Ê×ÏȱØÐ붨ÒåÓÃÓÚ±£´æÊý¾ÝÏîµÄ¼Ç¼ÀàÐÍ.¸Ã¼Ç¼ÊÇÓû§×Ô¶¨ÒåÊý¾ÝÀàÐÍ,ËûÃÇÊÇËæ»úÎļþÖд洢Êý¾ÝµÄ»ù±¾½á¹¹.ÀýÈç:
Type Student
¡¡No As Integer
¡¡Name As String * 20
¡¡age As Integer
End Type
Dim Stud As Student ‘¶¨ÒåÒ»¸ö¿ÉÒÔ´æ·ÅѧÉú²ÄÁϵıäÁ¿
¡¡¡¡Ëæ»úÎļþÖÐ,ËùÓеÄÊý¾Ý¶¼½«±£´æµ½Èô¸É¸ö½á¹¹ÎªStudentÀàÐ͵ļǼÖÐ, ¶ø´ÓËæ»úÎļþÖжÁ³öµÄÊý¾ÝÔò¿ÉÒÔ´æ·Åµ½±äÁ¿StudÖÐ.
¡¡¡¡Ö®ºóÎÒÃǾͿÉÒÔ´ò¿ª²¢¶ÁдÎļþÁË.ÏÂÃæÊÇ´ò¿ªËæ»úÎļþµÄÓï·¨¸ñʽ:
Open filename For Random as [#]filenumber Len = Reclengt
Ïà¹ØÎĵµ£º
Option Explicit
Private Type UNICODE_STRING
Length As Integer
MaximumLength As Integer
Buffer As Long
End Type
Private Type OBJECT_ATTRIBUTES
Length As Long
RootDirectory As Long
  ......
½ñÌìÔÚ×öVBÏîÄ¿µÄʱºò£¬Ê¹ÓÃÁËListBox¿Ø¼þÀ´»ñȡһЩÁбíÏÓÃÁ˲ŷ¢ÏÖûÓÐListViewºÃÓã¬ListViewÓÐItems£¨SelectItem£©¿ÉÒÔ¶¨Î»µ½µ±Ç°µÄÑ¡ÖÐÏ¶øListBoxûÓУ»ListViewÓÐTag¿ÉÒÔÉ趨ѡÖÐÏîµÄ±êʾ£¬ListBoxûÓС£ÉÏÍøÒ²ÕÒ²»µ½ÔÒò£¬ÖªµÀÈ¥ÔĶÁMSDNºÍ×Ô¼º²âÊÔ¡£
Ö®ºóÖÕÓÚÕÒµ½ÁËÎÊÌâµÄ¹Ø¼ü¡£
ʼþ1£ºÌí¼ÓListBoxÏ ......
ÔÚVBÖÐÒªÏëµ÷ÓÃExcel£¬ÐèÒª´ò¿ªVB±à³Ì»·¾³“¹¤³Ì”²Ëµ¥ÖеēÒýÓÔÏîÄ¿£¬²¢Ñ¡È¡ÏîÄ¿ÖеēMicrosoft Excel 11.0 object library”Ïî¡£ÓÉÓÚÄãµÄExcel°æ±¾²»Í¬£¬ËùÒÔÕâ¸öÑ¡ÏîµÄ°æ±¾ºÅÒ²ÊDz»Í¬µÄ¡£
ÒòΪEXCELÊÇÒÔ²ã´Î½á¹¹×éÖ¯¶ÔÏóµÄ£¬Æä¶ÔÏóÄ£ÐÍÖк¬ÓÐÐí¶à²»Í¬µÄ¶ÔÏóÔªËØ¡£
&n ......
ASP.NetÖÐʹÓÃVB.Netµ÷Óô洢¹ý³Ì²¢µÃµ½·µ»ØÖµ
À´Ô´£ºqqreadÂÛ̳ ×÷Õߣº ³ö´¦£ºÇÉÇɶÁÊé 2006-08-03 ½øÈëÌÖÂÛ×é
//´æ´¢¹ý³Ì´úÂë
¡¡CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum ¡¡varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS
¡¡Insert Into SMB_In ......