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
Ïà¹ØÎĵµ£º
1. ASC(X)£¬Chr(X)£º×ª»»×Ö·û×Ö·ûÂë
[¸ñʽ]£º
P=Asc(X) ·µ»Ø×Ö·û´®XµÄµÚÒ»¸ö×Ö·ûµÄ×Ö·ûÂë
P=Chr(X) ·µ»Ø×Ö·ûÂëµÈÓÚXµÄ×Ö·û
[·¶Àý]£º
(1)P=Chr(65)
‘ Êä³ö×Ö·ûA,ÒòΪAµÄASCIIÂëµÈÓÚ65   ......
Ò»¡£Êý¾ÝÀàÐÍ
Byte 1
×Ö½Ú ÎÞ·ûºÅ
Interger 2
×Ö½Ú
Long 4
×Ö½Ú
Float 4
×Ö½Ú
Double 8
×Ö½Ú
String
Date
Boolean
Currency
Variant
2.
±ä³¤×Ö·û´®ºÍ¶¨³¤×Ö·û
ϵͳĬÈϳõʼֵΪ¿Õ×Ö·û´®;
±ä³¤×Ö·û´®£ºdi ......
Ê®Ììѧ»áASP.net֮ʵսϵÁУ¨C#ºÍVb.netË«°æ±¾£©
µÚÒ»Ìì
ÎÒÈÏΪASP.NET±ÈASPÄѺܶ࣬ϣÍû´ó¼Ò×öºÃ×¼±¸¡£ÄÑÄÑÔÚʵÏÖͬһ¸öЧ¹ûÓкܶ෽·¨£¬´ó¼Ò»òÐí»áÒÉ»ó¡£Ê®Ììѧ»áϵÁн̳̻áÇåÎúµÄд³ö¸÷ÖÖ·½·¨£¬Èôó¼ÒÄÜÉÙÒ»µã¿²¿À¡£ÔÚASPÀïÃæ£¬´ó¼Ò¼¸ºõ¶¼ÊÇʹÓÃVB£¬Êý¾Ý¿âÂҲÎÞ·ÇÊÇSQLºÍACCESS¡£ÔÚASP.NETÀïÃæ£¬Êý¾Ý¿â»¹ÊÇÕ ......
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 ......
C#×Ô¼ºÃ»ÓÐInputboxÕâ¸öÀ࣬µ«ÊÇInputboxÒ²ÂùºÃÓõģ¬ËùÒÔÓÐÁ½ÖÖ·½·¨¿ÉÒÔʹÓÃ
Ò»£º.¼ä½Óµ÷ÓÃvbÖеÄInputbox¹¦ÄÜ
1¡£ÔÚÏîÄ¿ÖÐÌí¼Ó¶ÔMicrosoft.VisualBasicÒýÓÃ
2¡£ÔÚÏîÄ¿ÖÐÌí¼ÓÃüÃû¿Õ¼äUsing Microsoft.VisualBasic;
&n ......